执行 COBOL 程序静态调用 COBOL/DB2 子程序所涉及的步骤

Question

我有一个纯 COBOL 的主程序和一个 COBOL-DB2 子程序。我使用 cobol-db2 编译器进行了编译，返回代码为 4（仅提供信息警告）。然后，我将它们都绑定在一起。现在我正在尝试使用 JCL DB2 执行主程序，但是，它似乎无法调用子程序，甚至无法执行运行步骤。 这是我的 JCL DB2 运行 mainprog 调用 subprog：

//GO       EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=4M,COND=(4,LT)  
//STEPLIB  DD   DSN=DSN910.DB9G.RUNLIB.LOAD,                    
//         DISP=SHR                                             
//         DD   DISP=SHR,DSN=DSN910.DB9G.SDSNEXIT               
//         DD   DISP=SHR,DSN=DSN910.SDSNLOAD                    
//         DD   DISP=SHR,DSN=ISP.SISPLOAD                       
//         DD   DISP=SHR,DSN=GDDM.SADMMOD                       
//SYSOUT   DD   SYSOUT=*                                        
//SYUDUMP  DD   SYSOUT=*                                        
//CEEDUMP  DD   SYSOUT=*                                        
//TRANFILE DD   DSN=PROJECT.ABC.TRANKSDS,DISP=SHR              
//MGMTREPT DD   DSN=PROJECT.ABC.MGMTREPT,                      
//         UNIT=SYSDA,DISP=(NEW,CATLG),                         
//         SPACE=(32,(3,3)),                                    
//         DCB=(RECFM=FB,LRECL=81,BLKSIZE=81)                         
//SYSPRINT DD   SYSOUT=*                       
//SYSTSPRT DD   SYSOUT=*                       
//SYSTSIN  DD   *                              
  DSN SYSTEM(DB9G)                             
  RUN PROGRAM(ABCREPRT) PLAN(DSNTIA91)         
  END                                          
/*                                              

那么这是JCL的SDSF，返回码=0：

 NP   DDNAME   StepName ProcStep DSID 
      JESMSGLG JES2                 2 
      JESJCL   JES2                 3 
      JESYSMSG JES2                 4 

如果执行成功，GO stepname 不应该也出现吗？

Answer 1

如果该步骤确实开始，我至少希望//SYSTSPRT 上出现READY 消息。所以，是的，该列表中应该有一个SYSTSPRT 的条目。您是否查看了 SDSF 中的 OUTPUT 队列以查看您的作业的某些输出是否进入了该队列而不是 HOLD 队列？

您可以将//SYSTSIN 中的DSN ... END 序列替换为一些TSO 命令，例如LISTA，看看这是否会产生一些输出。