返回指導教學
MSOut.cbl
IDENTIFICATION DIVISION.
program-id. pgm1.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
DATA DIVISION.
*
* IMS TOC Connector for Java - 多重區段輸出範例
*
*********************************************************************/
* */
* (c) Copyright IBM Corp. 1998 */
* All Rights Reserved */
* 授權資料 - IBM 財產 */
* */
* 保證責任免責聲明。 */
* */
* 下列(括住的)程式碼只提供給您用來 */
* 協助您開發您的應用程式。 */
* 該程式碼以「現狀」提供。IBM 不提供任何明示或默示保證,*/
* 包括且不限於 */
* 本程式碼之功能或效能之 */
* 可售性及符合特定效用之保證。 */
* 您因使用所產生之程式碼而肇生之任何損害, */
* IBM 概不負責,即使已被告知該等損害之可能性 */
* ,亦同。*/
* */
* 分送。 */
* */
* 此所產生之程式碼得免費分送、複製、變更, */
* 及併入其他軟體,惟需符合下列條件: */
* - 需完整保留上列版權聲明及免責聲明 */
* - 本軟體不得轉售 */
* */
*********************************************************************/
*
LINKAGE SECTION.
01 INPUT-MSG.
02 IN-LL PICTURE S9(3) COMP.
02 IN-ZZ PICTURE S9(3) COMP.
02 IN-TRCD PICTURE X(5).
02 IN-DATA1 PICTURE X(6).
02 IN-DATA2 PICTURE X(6).
01 OUTPUT-MSG.
02 OUT-ALLSEGS PICTURE X(99) VALUE SPACES.
01 OUTPUT-SEG1.
02 OUT-LL PICTURE S9(3) COMP VALUE +0.
02 OUT-ZZ PICTURE S9(3) COMP VALUE +0.
02 OUT-DATA1 PICTURE X(12) VALUE SPACES.
01 OUTPUT-SEG2.
02 OUT-LL PICTURE S9(3) COMP VALUE +0.
02 OUT-ZZ PICTURE S9(3) COMP VALUE +0.
02 OUT-DATA1 PICTURE X(13) VALUE SPACES.
02 OUT-DATA2 PICTURE X(14) VALUE SPACES.
01 OUTPUT-SEG3.
02 OUT-LL PICTURE S9(3) COMP VALUE +0.
02 OUT-ZZ PICTURE S9(3) COMP VALUE +0.
02 OUT-DATA1 PICTURE X(15) VALUE SPACES.
02 OUT-DATA2 PICTURE X(16) VALUE SPACES.
02 OUT-DATA3 PICTURE X(17) VALUE SPACES.
PROCEDURE DIVISION.
返回指導教學