从JCL向PROGRAM传递参数

从JCL向程序传递参数有两种方式

1. 通过EXEC语句

//STEP1 EXEC PGM=ABC,PARM=('F1')

针对这种方式，程序ABC需要于COBOL的LINKAGE SECTION做如下定义

01 LINK-AREA

      05 LINK-LEN        PIC S9(04)       BINARY

      05 LINK-FCN        PIC  X(02)

2.通过SYSIN语句指定输入数据流

//STEP1 EXEC PGM=ABC

//SYSIN DD *

F1001

//*

在这种方式下，程序ABC需要于WORKING-STORAGE节定义接受变量

01 WK-ACCEPT-AREA

      05 WK-ACCEPT-FCN PIC X(02)

      05 WK-ACCEPT-SEQ        PIC 9(03)