返回指導教學
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.
返回指導教學