JCL - SORTIN动态添加

Question

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

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

Answer 1

步骤1:请有以下3个数据集。

数据集1:作业卡和EXEC语句。

//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中的成员将被删除)。你只需要提交会员。您可以使用IKJEFT01实用程序来运行TSO函数LISTDS。此函数显示数据集属性。如果存在成员，则会发出RC 0&您可以添加代码来提交成员，否则您可能会发出一些返回代码(以表示该成员不可用)。更多细节here