从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)