/********************************************************************/ 00210004 /* */ 00220004 /* MACRO NAME = IDAPDFCD */ 00230004 /* */ 00240004 /* DESCRIPTIVE NAME = VSAM OPEN/CLOSE/EOV PROBLEM DETERMINATION */ 00242004 /* MESSAGE FUNCTION CODES. */ 00244004 /* */ 00246004 /* FUNCTION = TO IDENTIFY THE FUNCTION BEING PERFORMED WHEN THE */ 00248004 /* PROBLEM OCCURED. THIS CODE IS INCLUDED IN THE */ 00248404 /* PROBLEM DETERMINATION MESSAGE. */ 00248804 /* */ 00249204 /* CONTROL BLOCK STRUCTURE = NONE */ 00249604 /* */ 00249704 /* INCLUDED MACROS = NONE */ 00249804 /* */ 00249904 /* METHOD OF ACCESS = PL/S - NO DECLARES NECESSARY */ 00266604 /* */ 00276604 /* STATUS = VS1 RELEASE 4, VS2 RELEASE 3. */ 00278604 /* */ 00280604 /* DATE OF LAST CHANGE = 06/06/78 @ZA33246*/ 00282637 /* */ 00283004 /********************************************************************/ 00283104 DCL 00283304 (PDF1 CONSTANT(1), /* IDA0192C--INITIALIZATION */ 00300004 PDF2 CONSTANT(2), /* IDA0A92C--OBTAIN ASSOCIATED 00350004 DATA SET CI NUMBERS */ 00400004 PDF3 CONSTANT(3), /* IDA0192C--OBTAIN DATA SET 00450004 ATTRIBUTES */ 00500004 PDF4 CONSTANT(4), /* IDA0192C--GET VOL INFO */ 00550004 PDF5 CONSTANT(5), /* IDA0192C--UPDATE OPEN 00600004 INDICATOR IN CATALOG */ 00650004 PDF6 CONSTANT(6), /* IDA0192C--UPDATE CATALOG 00700004 FOR CLOSE */ 00750004 PDF7 CONSTANT(7), /* IDA0192C--GET VOL TIME STAMP */ 00800004 PDF8 CONSTANT(8), /* IDA0192C--RECORD MANAGEMENT 00850004 CATALOG UPDATE */ 00860004 PDF9 CONSTANT(9), /* IDA0192C--UPDATE PREFORMAT 00900004 INDICATOR IN CATALOG */ 00950004 PDF10 CONSTANT(10), /* IDA0192C--RETRIEVE 44 BYTE 00960004 CLUSTER NAME */ 00970004 PDF11 CONSTANT(11), /* IDA0192C--RETRIEVE 44 BYTE 00980004 ELEMENTARY DATA SET NAME */ 00990004 PDF20 CONSTANT(20), /* IDA0192V--INITIALIZATION */ 01000004 PDF21 CONSTANT(21), /* IDA0192V--CHECK VOL TIMESTAMP */ 01050004 PDF22 CONSTANT(22), /* IDA0192V--HANDLE MESSAGES */ 01100004 PDF23 CONSTANT(23), /* IDA0192V--MOUNT VOLUME */ 01150004 PDF24 CONSTANT(24), /* IDA0192V--MSS JES3 @ZA33246*/ 01170037 PDF30 CONSTANT(30), /* IDA0192S--INITIALIZATION */ 01200004 PDF31 CONSTANT(31), /* IDA0192S--BUILD SMF RECORD */ 01250004 PDF40 CONSTANT(40), /* IDA0192D--INITIALIZATION */ 01260004 PDF41 CONSTANT(41), /* IDA0192D--BUILD UCB LIST */ 01270004 PDF42 CONSTANT(42), /* IDA0192D--BUILD 01280004 ACQUIRE/RELINQUISH LIST */ 01290004 PDF43 CONSTANT(43)) /* IDA0192D--ACQUIRE/RELINQUISH 01292004 EXTENTS */ 01294004 FIXED(8); 01296004 DCL 01298004 (PDF50 CONSTANT(50), /* IDA0192Z--INITIALIZATION */ 01300004 PDF51 CONSTANT(51), /* IDA0192Z--DETERMINE NUMBER 01350004 OF BUFFERS NEEDED */ 01400004 PDF52 CONSTANT(52), /* IDA0192Z--BUILD BUFFERS */ 01450004 PDF53 CONSTANT(53), /* IDA0192Z--BUILD CNTRL BLOCKS */ 01500004 PDF54 CONSTANT(54), /* IDA0192Y--BUILD STRING BLOCKS */ 01502037 PDF60 CONSTANT(60), /* IDA0192B--MOD INITIALIZATION */ 01510004 PDF61 CONSTANT(61), /* IDA0192B--LOCATE DATA SET 01520004 ATTRIBUTES AND 01530004 VALIDITY CHECK */ 01540004 PDF62 CONSTANT(62), /* IDA0192B--VOLUME PROCESSING */ 01542004 PDF63 CONSTANT(63), /* IDA0192B--PREFORMAT EXTENT */ 01544004 PDF84 CONSTANT(84), /* IDA0192B--SUBTASK SHARING */ 01546004 PDF70 CONSTANT(70), /* IDA0192W--INITIALIZATION */ 01550004 PDF71 CONSTANT(71), /* IDA0192W--BUILD CPA */ 01600004 PDF80 CONSTANT(80), /* IFG0193A--READ JFCB */ 01650004 PDF81 CONSTANT(81), /* IDA0192A--INITITALIZATION */ 01700004 PDF82 CONSTANT(82), /* IDA0192A--VERIFY ACB */ 01750004 PDF83 CONSTANT(83), /* IDA0192F--FIX CONTROL BLOCKS */ 01800004 PDF85 CONSTANT(85), /* IDA0192F--MNT AND VERIFY VOLS */ 01900004 PDF87 CONSTANT(87), /* IDA0192A--CONNECT BASE */ 01952004 PDF88 CONSTANT(88), /* IDA0192F--OPEN BASE CLUSTER */ 01954004 PDF89 CONSTANT(89), /* IDA0192F--OPEN UPGRADE AIX */ 01956004 PDF90 CONSTANT(90), /* IDA0192F--OPEN PATH AIX */ 01958004 PDF93 CONSTANT(93), /* IDA0192A--BUILD DUMMY DEB */ 01958104 PDF95 CONSTANT(95), /* IDA0192A--OPEN TERMINATION */ 01958404 PDF96 CONSTANT(96)) /* IDA0192A--OPEN ERROR CLEANUP */ 01958804 FIXED(8); 01960004 DCL 01970004 (PDF100 CONSTANT(100), /* IFG0200V--READ JFCB */ 02000004 PDF101 CONSTANT(101), /* IDA0200T--INITIALIZATION */ 02050004 PDF103 CONSTANT(103), /* IDA0200T--COMPLETE I/O */ 02100004 PDF104 CONSTANT(104), /* IDA0200T--CLOSE PATH */ 02110004 PDF105 CONSTANT(105), /* IDA0200T--CLOSE BASE */ 02120004 PDF106 CONSTANT(106), /* IDA0200T--CLOSE SPHERE */ 02130004 PDF107 CONSTANT(107), /* IDA0200T--CLOSE UPGRADE */ 02140004 PDF108 CONSTANT(108), /* IDA0200T--VMT PROCESSING */ 02142004 PDF110 CONSTANT(110), /* IDA0200B--INITIALIZATION */ 02144004 PDF111 CONSTANT(111), /* IDA0200B--VALIDITY CHECK */ 02146004 PDF112 CONSTANT(112), /* IDA0200B--SMF PROCESSING */ 02148004 PDF113 CONSTANT(113), /* IDA0200B--UPDATE CATALOG */ 02148404 PDF114 CONSTANT(114), /* IDA0200B--RELEASE CONTROL BLK */ 02148804 PDF115 CONSTANT(115), /* IDA0200B--WRITE BUFFER */ 02148937 PDF148 CONSTANT(148), /* IDA0200T--FORCE DLVRP.@Z30SSMD*/ 02149037 PDF149 CONSTANT(149)) /* IDAOCEA2--FORCE DLVRP.@Z30SSMD*/ 02149137 FIXED(8); 02149204 DCL 02149604 (PDF150 CONSTANT(150), /* IGC0002C--READ JFCB */ 02150004 PDF151 CONSTANT(151), /* IDA0231T--INITIALIZATION */ 02200004 PDF153 CONSTANT(153), /* IDA0231T--COMPLETE I/O */ 02250004 PDF154 CONSTANT(154), /* IDA0231T--TCLOSE PATH */ 02260004 PDF155 CONSTANT(155), /* IDA0231T--TCLOSE BASE */ 02270004 PDF156 CONSTANT(156), /* IDA0231T--TCLOSE UPGRADE */ 02280004 PDF157 CONSTANT(157), /* IDA0231B--INITIALIZATION */ 02290004 PDF158 CONSTANT(158), /* IDA0231B--VALIDITY CHECK */ 02296004 PDF159 CONSTANT(159), /* IDA0231B--UPDATE CATALOG */ 02298004 PDF160 CONSTANT(160), /* IDA0231B--SMF PROCESSING */ 02298404 PDF161 CONSTANT(161)) /* IDA0231B--WRITE BUFFER */ 02298504 FIXED(8); 02298804 DCL 02299204 (PDF200 CONSTANT(200), /* IFG0551F--READ JFCB */ 02300004 PDF201 CONSTANT(201), /* IDA0557A--INITIALIZATION */ 02350004 PDF202 CONSTANT(202), /* IDA0557A--LOCATE AND MNT VOL */ 02400004 PDF203 CONSTANT(203), /* IDA0557A--ALLOCATE SPACE */ 02450004 PDF204 CONSTANT(204), /* IDA0557A--SWITCH VOLUMES */ 02500004 PDF205 CONSTANT(205), /* IDA0557A--BLD CONTROL BLOCKS */ 02550004 PDF206 CONSTANT(206), /* IDA0557A--UPDATE SMF RECORD */ 02600004 PDF207 CONSTANT(207), /* IDA0557A--PREFORMAT EXTENT */ 02650004 PDF208 CONSTANT(208), /* IDA0557A--RECORD MANAGEMENT 02700004 CATALOG UPDATE */ 02750004 PDF209 CONSTANT(209)) /* IDA0557A--RESET CNTRL BLOCKS */ 02800004 FIXED(8); 02850004