返回指導教學

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.    

返回指導教學