返回指導教學

EX01.cbl

IDENTIFICATION DIVISION.                                          
        ENVIRONMENT DIVISION.                                             
        CONFIGURATION SECTION.                                            
        DATA DIVISION. 
       *
       *    IMS Connector for Java - COBOL 交易訊息程式碼
       *
       *********************************************************************/ 
       *                                                                   */ 
       * (c) Copyright IBM Corp. 2003                                     */ 
       * 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(10).                               
            02  IN-CMD         PICTURE X(8).
            02  IN-NAME1       PICTURE X(10).
            02  IN-NAME2       PICTURE X(10).
            02  IN-EXTN        PICTURE X(10).
            02  IN-ZIP         PICTURE X(7).	
						  
        01  OUTPUT-MSG.                                                   
            02  OUT-LL       PICTURE S9(3) COMP VALUE +0.                 
            02  OUT-ZZ       PICTURE S9(3) COMP VALUE +0.                  
            02  OUT-MSG      PICTURE X(40) VALUE SPACES.
            02  OUT-CMD      PICTURE X(8) VALUE SPACES.
            02  OUT-NAME1    PICTURE X(10) VALUE SPACES.
            02  OUT-NAME2    PICTURE X(10) VALUE SPACES.
            02  OUT-EXTN     PICTURE X(10) VALUE SPACES.
            02  OUT-ZIP      PICTURE X(7) VALUE SPACES.
            02  OUT-SEGNO    PICTURE X(4) VALUE SPACES.    		
                        
        PROCEDURE DIVISION.       

返回指導教學