JCL - SORTIN 动态添加

Question

想知道如何在 SORT 步骤中包含具有 SORTIN 内容的文件，这意味着该文件是动态创建的，其内容是这样的

//SORTIN DD DSN=DES.LQHISE03.ENTRADA,DISP=SHR

Answer 1

第 1 步：请拥有以下 3 个数据集。

数据集 1：工作卡和执行声明。

//JOBNAME JOB ('ACCOUNT INFORMATION'),          
//    JOBCARD,CLASS=2,MSGCLASS=H,NOTIFY=&SYSUID 
//STEP1   EXEC PGM=SORT   

数据集 2：SORTIN 内容 - 这应该是动态创建的文件。

//SORTIN   DD DSN=DES.LQHISE03.ENTRADA,DISP=SHR

数据集 3：其余内容

//SORTOUT DD DSN=OUTPUT.DATASET.NAME,       
//        DISP=(,CATLG,DELETE),             
//        SPACE=(CYL,(100,0),RLSE),         
//        DCB=(LRECL=80,RECFM=FB,BLKSIZE=0) 
//SYSOUT  DD SYSOUT=*                       
//SYSIN   DD *                              
SORT FIELDS=COPY
/*
//IDCAMS   EXEC PGM=IDCAMS,COND=(0,LT,STEP1)
//SYSPRINT DD SYSOUT=*
//DD1   DD DISP=SHR,DSN=YOUR.PDS
DELETE 'YOUR.PDS(MEMBER)' FILE(DD1)
/*                          

第 2 步：连接数据集。

//STEP2   EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*                       
//SYSUT1   DD DSN=Dataset 1,DISP=SHR             
//         DD DSN=Dataset 2,DISP=SHR             
//         DD DSN=Dataset 3,DISP=SHR             
//SYSUT2   DD DSN=Sort Step,
//        DISP=(,CATLG,DELETE),             
//        SPACE=(CYL,(100,0),RLSE),         
//        DCB=(LRECL=80,RECFM=FB,BLKSIZE=0)            
//SYSIN    DD DUMMY 

第 3 步：让 IEBGENER 将排序步骤(步骤 2 的输出(作为 PDS 中的成员编写。

//STEP3   EXEC PGM=IEBGENER,COND=(0,LT,STEP2)
//SYSUT1   DD DSN=*.STEP2.SYSUT2,DISP=SHR                         
//SYSUT2   DD DSN=YOUR.PDS(MEMBER),DISP=SHR           
//SYSPRINT DD SYSOUT=*                                        
//SYSIN    DD DUMMY

现在，您将在 PDS 内的成员中拥有完整的 JCL(注意：PDS 内的成员将在 SORT 作业完成后删除(。您只需要提交成员。您可以使用IKJEFT01实用程序来运行 TSO 函数 LISTDS。此函数显示数据集属性。如果存在会员，则发出RC 0，您可以添加代码以提交会员，否则您可以发出一些返回代码(表示会员不可用(。更多细节在这里