如何使用SYSIN?

时间:2014-06-07 04:39:46

标签: jcl zos

我需要完成一项练习并执行必要的应用程序 分发有关信用卡业务交易的信息,最终目标是在网页上显示交易确认。

我目前的步骤: “运行发布应用程序的JCL必须有一个DD 调用SYSIN以允许应用程序从发布中读取 使用STDIN文件句柄的ZOS.CONTEST3.TXNS文件。“

ZOS.CONTEST3.TXNS包含有关要发布的操作的信息。

我只需要像这样实现一个名为SYSIN的DD语句指向'ZOS.CONTEST3.TXNS'吗?

//SYSIN DD DSN=ZOS.CONTEST3.TXNS,DISP=SHR

JCL代码:

//EXECPUB JOB MSGCLASS=H
//PUBLISH  EXEC PGM=PUBAPP,REGION=1024K,        
//         PARM='MQ03 USER_ID'                  
//STEPLIB  DD DSN=USER_ID.PRTTHREE.LOAD,DISP=SHR
//         DD DSN=WMQ.V701.SCSQLOAD,DISP=SHR    
//         DD DSN=WMQ.V701.SCSQANLE,DISP=SHR    
//         DD DSN=WMQ.V701.SCSQAUTH,DISP=SHR    
//STDOUT   DD SYSOUT=*                          
//STDERR   DD SYSOUT=*                          
//SYSPRINT DD SYSOUT=* 

我已提交作业,这是SDSF中的LOG(没有SYSIN): (在“ST工作状态”中没有提交的作业......)

SDSF SYSLOG   6203.101 MVST MVST 06/07/2014 0W   30042      COLUMNS   1  80   
COMMAND INPUT ===>                                            SCROLL ===> PAGE

N 0200000 ZTT1     14158 04:13:08.90 JOB06616 00000281  $HASP100 EXECPUB  ON INTRDR                            FROM TSU06615  
S                                                       USER_ID                 
N 0000000 ZTT1     14158 04:13:08.90 JOB06616 00000290  IRR010I  USERID USER_ID  IS ASSIGNED TO THIS JOB.          
N 0020000 ZTT1     14158 04:13:08.94 JOB06616 00000281  ICH70001I USER_ID  LAST ACCESS AT 03:58:54 ON SATURDAY, JUNE 7, 2014  
N 4000000 ZTT1     14158 04:13:08.94 JOB06616 00000090  $HASP373 EXECPUB  STARTED - INIT 1    - CLASS A - SYS MVST  
N 0000000 ZTT1     14158 04:13:08.94 JOB06616 00000090  IEF403I EXECPUB - STARTED - TIME=04.13.08   
N 0020000 ZTT1     14158 04:13:08.97 JOB06616 00000281  CSV003I REQUESTED MODULE PUBAPP   NOT FOUND  
N 00A0000 ZTT1     14158 04:13:08.97 JOB06616 00000090  CSV028I ABEND806-04  JOBNAME=EXECPUB   STEPNAME=PUBLISH   
N 0000000 ZTT1     14158 04:13:08.97          00000290  IEA989I SLIP TRAP ID=X806 MATCHED.  JOBNAME=EXECPUB , ASID=002E.     

M 0020000 ZTT1     14158 04:13:08.97 JOB06616 00000281  IEA995I SYMPTOM DUMP OUTPUT 402  
D                                         402 00000281  SYSTEM COMPLETION CODE=806  REASON CODE=00000004 
D                                         402 00000281   TIME=04.13.08  SEQ=02152  CPU=0000  ASID=002E 
D                                         402 00000281   PSW AT TIME OF ERROR  070C1000   813DAC4E  ILC 2  INTC 0D  
D                                         402 00000281     NO ACTIVE MODULE FOUND
D                                         402 00000281     NAME=UNKNOWN         
D                                         402 00000281     DATA AT PSW  013DAC48 - 8400181E  0A0D18FB  180C181D  
D                                         402 00000281     AR/GR 0: 99FE0D16/00001E00   1: 00000000/84806000     
D                                         402 00000281           2: 00000000/00000000   3: 00000000/00000000  
D                                         402 00000281           4: 00000000/00000000   5: 00000000/006FF548  
D                                         402 00000281           6: 00000000/000000FF   7: 00000000/00000000  
D                                         402 00000281           8: 00000000/006B1250   9: 00000000/013DB138   
D                                         402 00000281           A: 00000000/00000000   B: 00000000/00000000  
D                                         402 00000281           C: 00000000/00000000   D: 00000000/006B1250 
D                                         402 00000281           E: 00000000/84806000   F: 00000000/00000004   
E                                         402 00000281   END OF SYMPTOM DUMP    
M 0000000 ZTT1     14158 04:13:08.98 JOB06616 00000090  IEF450I EXECPUB PUBLISH - ABEND=S806 U0000 REASON=00000004 403
E                                         403 00000090          TIME=04.13.08   

N 0004000 ZTT1     14158 04:13:08.98 JOB06616 00000290  -                                         --TIMINGS (MINS.)--   
S                                                        ----PAGING COUNTS---   
N 0004000 ZTT1     14158 04:13:08.98 JOB06616 00000290  -JOBNAME  STEPNAME PROCSTEP    RC   EXCP    CPU    SRB  CLOCK   SERV  PG  
S                                                          PAGE   SWAP    VIO SWAPS STEPNO     
N 0004000 ZTT1     14158 04:13:08.98 JOB06616 00000290  -EXECPUB           PUBLISH  *S806     18    .00    .00    .00   2248   0  
S                                                             0      0      0     0     1       
N 0000000 ZTT1     14158 04:13:08.98 JOB06616 00000090  IEF404I EXECPUB - ENDED - TIME=04.13.08 
N 0004000 ZTT1     14158 04:13:08.98 JOB06616 00000290  -EXECPUB  ENDED.  NAME-                     TOTAL CPU TIME=   .00  TOTAL 
S                                                        ELAPSED TIME=   .00    
N 4000000 ZTT1     14158 04:13:08.98 JOB06616 00000090  $HASP395 EXECPUB  ENDED 
N C000000 ZTT1     14158 04:13:09.00          00000090  $HASP309 INIT 1    INACTIVE ******** C=A       
MR0000000 ZTT1     14158 04:20:44.63 STARTUP  00000090  $HASP003 RC=(52),D 411  
DR                                        411 00000090  $HASP003 RC=(52),D JQ  - NO SELECTABLE ENTRIES FOUND     
ER                                        411 00000090  $HASP003           MATCHING SPECIFICATION

感谢您的关注!

1 个答案:

答案 0 :(得分:1)

运行此jobstep的问题在于:

CSV003I REQUESTED MODULE PUBAPP   NOT FOUND  
CSV028I ABEND806-04  JOBNAME=EXECPUB   STEPNAME=PUBLISH 

这意味着PUBAPP不在您//STEPLIB DD上指定的任何加载库中。

可能是:程序无法编译/链接/绑定;它被链接/绑定到错误的库; STEPLIB包含错误的库; STEPLIB包含一个缺少的库。

记住这是一场比赛,一路上可能有很少的陷阱。