/********************************************************************/ 00050004 /* */ 00100004 /* MACRO NAME = IDAPPCDE */ 00150004 /* */ 00160004 /* DESCRIPTIVE NAME = VSAM OPEN/CLOSE/EOV PROBLEM DETERMINATION */ 00170004 /* MESSAGE PROBLEM CODE. */ 00180004 /* */ 00190004 /* FUNCTION = IDENTIFY THE PROBLEM THAT CAUSED THE PROBLEM */ 00192004 /* DETERMINATION MESSAGE. */ 00194004 /* */ 00196004 /* CONTROL BLOCK STRUCTURE = NONE */ 00198004 /* */ 00198404 /* INCLUDED MACROS = NONE */ 00198804 /* */ 00199204 /* METHOD OF ACCESS = PL/S - NO DECLARES NECESSARY */ 00199604 /* */ 00199704 /* CREATED BY: N/A */ 00199804 /* */ 00199904 /* STATUS = VS1 RELEASE 4, VS2 RELEASE 3. */ 00216604 /* */ 00226604 /* DATE OF LAST CHANGE = 11/04/75 @Z40WSRL*/ 00228604 /* */ 00230604 /********************************************************************/ 00232604 DCL 00233304 (PP4 CONSTANT(4), /* I/O ERROR READING JFCB */ 00250004 PP20 CONSTANT(20), /* INSUFFICIENT VIRTUAL STORAGE */ 00300004 PP22 CONSTANT(22), /* I/O ERROR COMPLETING I/O 00350004 REQUESTS */ 00400004 PP28 CONSTANT(28), /* CATALOG DOES NOT EXIST OR IS 00450004 NOT OPEN */ 00500004 PP32 CONSTANT(32), /* CATALOG ENTRY NOT FOUND */ 00510004 PP33 CONSTANT(33), /* CANNOT EXTEND VSAM CATALOG */ 00520004 PP34 CONSTANT(34), /* DATA SET HAS REACHED MAXIMUM 00530004 NUMBER OF EXTENTS */ 00540004 PP35 CONSTANT(35), /* CATALOG RECORD HAS EXCEEDED 00542004 MAX NBR OF OCCURRENCES*/ 00544004 PP36 CONSTANT(36), /* CATALOG I/O ERROR */ 00544404 PP37 CONSTANT(37), /* UNEXPECTED RETURN CODE FROM 00546004 CATALOG */ 00548004 PP38 CONSTANT(38), /* EMPTY PATH DATA SET */ 00548404 PP39 CONSTANT(39), /* EMPTY UPGRADE AIX */ 00549204 PP40 CONSTANT(40), /* SECURITY VIOLATION */ 00550004 PP41 CONSTANT(41), /* BUFFER SPACE TO SMALL */ 00600004 PP44 CONSTANT(44), /* USER BUFFERING AND NOT 00650004 CINV PROCESSING */ 00700004 PP45 CONSTANT(45), /* UNUSABLE DS OPEN FOR INPUT */ 00710004 PP46 CONSTANT(46), /* UNUSABLE DS OPEN FOR OUTPUT */ 00720004 PP47 CONSTANT(47), /* ICI & INCONSISTENT PARAMETERS */ 00730004 PP48 CONSTANT(48), /* RESET AND DS IS AN INDEX */ 00740004 PP49 CONSTANT(49), /* ICI PROCESSING AND CREATE MODE*/ 00742003 PP50 CONSTANT(50), /* UNABLE TO PAGE FIX CNTRL BLKS */ 00750004 PP52 CONSTANT(52), /* UNABLE TO OBTAIN RESOURCE */ 00800004 PP54 CONSTANT(54), /* KEYED ACCESSING AND NOT KSDS */ 00850004 PP56 CONSTANT(56), /* DATA SET NOT CLOSED */ 00900004 PP58 CONSTANT(58), /* INDEX TIMESTAMP LESS THAN 00950004 DATA TIMESTAMP */ 01000004 PP59 CONSTANT(59), /* VOLUME TIMESTAMP ERROR AND 01050004 VOL BEING OPENED FOR INPUT */ 01060004 PP60 CONSTANT(60), /* VOLUME TIMESTAMP ERROR AND 01070004 VOL BEING OPENED FOR OUTPUT */ 01080004 PP68 CONSTANT(68), /* INCONSISTENT DEVICE TYPES */ 01100004 PP72 CONSTANT(72), /* EMPTY DS NOT OPEN FOR OUTPUT */ 01150004 PP76 CONSTANT(76), /* INVALID ACB */ 01200004 PP78 CONSTANT(78), /* INVALID AMBL */ 01200404 PP80 CONSTANT(80), /* DS OPENED FOR CREATE WITH 01202004 STRNO GREATER THAN 1 */ 01204004 PP84 CONSTANT(84), /* RESET SPECIFIED FOR NON-REUSABLE 01206004 DATA SET */ 01208004 PP88 CONSTANT(88), /* RESET SPECIFIED FOR REAL PATH */ 01208404 PP90 CONSTANT(90), /* MSS MOUNT ERROR */ 01210003 PP91 CONSTANT(91), /* MSS DEMOUNT ERROR */ 01220003 PP92 CONSTANT(92), /* MSS ACQUIRE ERROR */ 01230003 PP93 CONSTANT(93), /* MSS RELINQUISH ERROR */ 01240003 PP94 CONSTANT(94), /* MSS UNABLE TO BIND */ 01240403 PP100 CONSTANT(100), /* NO SPACE ON CANDIDATE VOLUMES */ 01242004 PP104 CONSTANT(104), /* NO VOLS AVAILABLE FOR 01244004 SPACE ALLOCATION */ 01246004 PP108 CONSTANT(108), /* UNABLE TO MOUNT VOLUME */ 01248004 PP112 CONSTANT(112), /* UNABLE TO MOUNT VOLUME FOR 01248404 SPACE ALLOCATION */ 01248804 PP116 CONSTANT(116), /* I/O ERROR READING VOLUME LABEL 01250004 OR FORMAT 4 DSCB */ 01300004 PP120 CONSTANT(120), /* LSR/GSR AND CINV SIZE EXCEEDS 01310004 MAXIMUM BUFFER SPACE */ 01312004 PP124 CONSTANT(124), /* LSR/GSR - VSRT DOES NOT EXIST */ 01320004 PP128 CONSTANT(128), /* LSR/GSR - ERROR IN WRTBFR */ 01330004 PP132 CONSTANT(132), /* GSR AND SYSTEM IS VS1 */ 01340004 PP136 CONSTANT(136), /* LSR/GSR AND RESET */ 01342004 PP140 CONSTANT(140), /* LSR/GSR AND ICI */ 01344004 PP144 CONSTANT(144), /* LSR/GSR AND USER BUFFERING */ 01346004 PP148 CONSTANT(148), /* GSR AND CALLER NOT AUTHORIZED */ 01348004 PP152 CONSTANT(152), /* LSR/GSR AND DATA SET IS EMPTY */ 01348404 PP156 CONSTANT(156), /* LSR/GSR AND KEY LENGTH EXCEEDS 01348804 MAXIMUM */ 01348904 PP164 CONSTANT(164), /* LSR/GSR WITH DFR AND SHARE 01349604 OPTION IS 4 */ 01399604 PP168 CONSTANT(168), /* CRA VOL NOT MOUNTED */ 01449604 PP172 CONSTANT(172), /* FMT 4 DSCB INDICATES VOL IS 01499603 UNUSABLE */ 01509604 PP176 CONSTANT(176), /* GSR FORCE DLVRP WAS DONE, 01519603 DUMP WAS TAKEN. @Z30SSMD*/ 01529603 PP180 CONSTANT(180), /* GSR FORCE DLVRP WAS DONE, 01539603 PARTIAL DUMP WAS DONE.@Z30SSMD*/ 01541603 PP184 CONSTANT(184), /* GSR FORCE DLVRP WAS DONE, DUMP 01543604 COULD NOT BE DONE. @Z30SSMD*/ 01545603 PP188 CONSTANT(188), /* SYSTEM DATA SET DOES NOT SUPPORT 01547604 THE LSR OR GSR OPTION @Z40WSRL*/ 01548004 PP192 CONSTANT(192)) /* SYSTEM DATA SET DOES NOT SUPPORT 01548404 PATH OR UPGRADE PROCESSING 01548804 @Z40WSRL*/ 01549204 FIXED(8); 01549604