Hi all, I'm reviewing a JES3 IATUX29 exit and assessing need or not to xlate over to JES2 - the IATUX29 code only does the following executable stmts - my question is are the two flags being updated really required - it appears to be ancient history (one references RINGCHK=NO - aka 3420 vintage???) - I believe this should really only apply to tape - anyone want to opine on the logic of this "ancient" code and whether it really should exist anymore in today's modern tape world? (client only have VTS tape - no executable tapes):
Executable Code: L R6,JDABADDR USING JDABSTRT,R6 OI JDABFLG3,JDABNOXP OI JDABFLG2,JDABRNGC JDAB Control Block Flag Layout: * DEFINITION OF JDABFLG2 * *---------------------------------------------------------------------* JDABINTW EQU X'80' - INTRDR wait flag @QCC JDABNSMF EQU X'40' DONT CREATE SMF RECORD JDABDJNS EQU X'20' - THIS IS A NON-STANDARD DJC JOB JDABRNGC EQU X'10' RINGCHK = NO JDABR208 EQU X'08' - Reserved flag @QAC JDABR204 EQU X'04' - Reserved flag @QAC JDABOTSO EQU X'02' - JOB ORIGINATED FROM TSO OR 0009@RXC * DEFINITION OF JDABFLG3 * *---------------------------------------------------------------------* JDABORJP EQU X'80' - INPUT FROM RJP TERMINAL JDABOIJP EQU X'40' - JOB ORIGIN IS IJP JDABNOXP EQU X'20' BYPASS EXPDT CHECK JDABJRNL EQU X'10' JOB HAS JOURNAL DATA SET JDABVRFY EQU X'08' PASSWORD VERIFICATION @ZA82103 * NOT REQUIRED @ZA82103 JDABENCP EQU X'04' PASSWORDS ARE ENCRYPTED @NPA JDABSWLM EQU X'02' Job was selected by a @RWA * managed initiator @RWA JDABNTSV EQU X'01' Job is a NETSERV @SRA ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
