For SYSTEM 2000 Version: 11.6
Problem Status: ZD -- ZAP DISTRIBUTED
Description of Problem:
CALL EXIT 9 BEFORE INITIALIZAITON OF VARIABLES FOR KEEP FILE DD NAME. THIS WILL ALLOW DYNAMIC ALLOCATION OF THE KEEP FILE IN EXIT 9. ALSO IN EXIT9, VA
Note: Please send email to s2k@sas.com telling us which problem fixes you have downloaded so we can keep track of the fixes at your site in case questions or problems arise.
Top of Zap Deck:
* IBM R11.6 BUG 4429 OS * THIS ZAP WILL CAUSE KEEPFILE DSN AND VOL SER TO BE PASSED TO EXIT 9 * FOR KEEP AND APPLY PROCESSING. VARIABLE ADBBUF IN THE USER EXIT PARM * LIST WILL POINT THE AREA THAT HAS THE KEEPFILE DATA. THE KEEPFILE DATA * AREA CAN BE MAPPED WITH THE FOLLOWING DSECT: * * KPVOLS DS 5CL6 KEEP FILE VOLUME SERIALS * KPDS DS H KEEP FILE DATA SET SEQUENCE NUMBER * KPDSN DS 44C KEEP FILE DATA SET NAME * KPUSR DS 20C KEEP FILE USER SUPPLIED INFORMATION * * DSN FOR THE KEEP FILE WILL BE AVAILABLE ONLY IF DSN SYNTAX WAS USED * ON THE SAVE OR RESTORE COMMAND. THE FOLLOWING ILLUSTRATES WHAT INFO * IS AVAILABLE TO EXIT 9: * * SAVE.... DSN=.../DSN=... KEEPFILE DSN IS RECORDED IN FILE 3 * AND POINTED TO BY UPTDSN IN FILE 1. SUBSEQUENT * KEEP COMMAND WILL CAUSE THE DSN TO BE RETRIEVED FROM * FILE 3 AND PASSED TO EXIT 9. * KEEP FIRST KEEP AFTER ABOVE SAVE, KPDSN HAS DSN OF KEEP FILE. * KEEP SECOND KEEP AFTER ABOVE SAVE, KPVOLS HAS VOL SER AND KPDSN * HAS DSN OF KEEP FILE. * SAVE... /: R116 NEW SYNTAX. NO DSN OR VOL SER SPECIFIED. * KEEP FIRST KEEP AFTER SAVE WITH NEW SYNTAX, KPVOLS AND KPDSN * BOTH ARE BINARY ZEROS NO INFO AVAILABLE TO EXIT 9. * KEEP SECOND KEEP, KPVOLS HAS VOL SER OF KEEP FILE (PUT IN FILE * 1 ON PREV KEEP). * RESTORE... DSN=.../DSN=... * APPLY KPDSN HAS DSN OF KEEP FILE. * NAME S2K00 MOUNT VER 007A 4110,D050,58F0,CE20 VER 0170 9140,A071 REP 007A 5830,A068,47F0,30EE REP 0170 47F0,C18A NAME S2EXIT S2EXIT VER 0250 58F1,0010,58FF,0000,41F0,1520 REP 0250 0700,0700,0700,0700,41F0,F064 NAME S2K00 S2KPATCH VER 00EE 0000,0000,0000,0000,0000,0000,0000,0000 VER 00FE 0000,0000,0000,0000,0000,0000,0000,0000 VER 010E 0000,0000,0000,0000,0000,0000,0000,0000 VER 011E 0000,0000,0000,0000,0000,0000,0000,0000 VER 012E 0000,0000,0000,0000,0000,0000,0000,0000 VER 013E 0000,0000,0000,0000,0000,0000,0000,0000 VER 014E 0000,0000 REP 00EE 4110,D050,58F0,CE20,05EF,92D2,D0DF,5810 REP 00FE A00C,D20B,1218,6520,D201,1236,652C,5800 REP 010E 6530,1200,4780,3128,4140,1238,4150,0004 REP 011E 4160,6530,58F0,CE38,05EF,5860,9000,5840 REP 012E D2DC,9140,A071,47E0,314A,4110,CEAC,5010 REP 013E D2C0,4110,D2C0,58F0,A06C,05EF,5830,D2D8 REP 014E 47F0,C088 CHECKSUM 0CAC5C8B
End of Zap Deck