/************************************************************/ 00100006 /* */ 00200006 /* 'REPAIRV ' FUNCTION DATA TABLE DECLARATIONS */ 00300006 /* */ 00400006 /************************************************************/ 00500006 %IF BASEFDT = 'YES' 00600006 %THEN 00700006 %GO TO BASEFDT1; 00800006 00900006 DCL 1 FDTTBL BDY(WORD), 01000006 %GO TO BASEFDT2; 01100006 %BASEFDT1:; 01200006 01300006 DCL 1 FDTTBL BASED BDY(WORD), 01400006 %BASEFDT2:; 01500006 2 FDTVERB CHAR(8), /* FUNCTION VERBNAME */ 01600006 2 FDTPTR(*) PTR(31); /* SCALAR DATA POINTERS */ 01700006 01800006 /* DATA DECLARATIONS OF SCALAR DATA ITEMS */ 01900006 02000006 /* 'DISPLAY'PARAMETER */ 02100006 DCL DISPL BASED(FDTPTR( 1)); 02200006 02300006 /* 'ERRORS'PARAMETER */ 02400006 DCL ERROR BASED(FDTPTR( 2)); 02500006 02600006 /* 'ALL'PARAMETER */ 02700006 DCL ALLA BASED(FDTPTR( 3)); 02800006 02900006 /* 'INFILE'PARAMETER/PASSWORD */ 03000006 DCL 1 INFIL BASED(FDTPTR( 4)) BDY(HWORD), 03100006 2 INFILPLN FIXED(8), /* PASSWORD LENGTH */ 03200006 2 INFILPAS CHAR(8), /* PASSWORD VALUE */ 03300006 2 INFILLEN FIXED(8), /* DATA ITEM LENGTH */ 03400006 2 INFILVAL CHAR( 8); /* DATA ITEM VALUE */ 03500006 03600006 /* 'INDATASET'PARAMETER/PASSWORD */ 03700006 DCL 1 INDS BASED(FDTPTR( 5)) BDY(HWORD), 03800006 2 INDSPLN FIXED(8), /* PASSWORD LENGTH */ 03900006 2 INDSPAS CHAR(8), /* PASSWORD VALUE */ 04000006 2 INDSPOS FIXED(8), /* ASTERISK POSITION */ 04100006 2 INDSFLG BIT(8), /* DATA SET FLAGS */ 04200006 3 INDSFUQ BIT(1), /* FLAG-ON IF UNQUALIFIED */ 04300006 2 INDSMLN FIXED(8), /* MEMBER NAME LENGTH */ 04400006 2 INDSMEM CHAR(8), /* MEMBER NAME */ 04500006 2 INDSLEN FIXED(8), /* CATALOGUED NAME LENGTH */ 04600006 2 INDSVAL CHAR(44); /* CATALOGUED NAME */ 04700006 04800006 /* 'FULLREPAIR'PARAMETER */ 04900006 DCL FULLR BASED(FDTPTR( 6)); 05000006 05100006 /* 'DATASETRANGE'PARAMETER */ 05200006 DCL DSRNG BASED(FDTPTR( 7)); 05300006 05400006 /* 'REPAIRRANGE'PARAMETER */ 05500006 DCL DRRNG BASED(FDTPTR( 8)); 05600006 05700006 /* 'STAGINGRANGE' PARAMETER */ 05800006 DCL STAGR BASED(FDTPTR( 9)); 05900006 06000006 /* 'LENGTH'PARAMETER */ 06100006 DCL DLENG BASED(FDTPTR( 10)); 06200006 DCL DLENGCNT FIXED(31) BASED(ADDR(FDTPTR( 10))); 06300006 06400006 /* 'IDONLY'PARAMETER */ 06500006 DCL IDONL BASED(FDTPTR( 11)); 06600006 06700006 /* 'FULL RECORD'PARAMETER */ 06800006 DCL FREC BASED(FDTPTR( 12)); 06900006 07000006 /* 'OUTFILE'PARAMETER */ 07100006 DCL 1 DOUTF BASED(FDTPTR( 13)) BDY(HWORD), 07200006 2 DOUTFPLN FIXED(8), /* PASSWORD LENGTH */ 07300006 2 DOUTFPAS CHAR(8), /* PASSWORD VALUE */ 07400006 2 DOUTFLEN FIXED(8), /* DATA ITEM LENGTH */ 07500006 2 DOUTFVAL CHAR( 8); /* DATA ITEM VALUE */ 07600006 07700006 /* 'OUTDATASET'PARAMETER */ 07800006 DCL 1 DOTDS BASED(FDTPTR( 14)) BDY(HWORD), 07900006 2 DOTDSPLN FIXED(8), /* PASSWORD LENGTH */ 08000006 2 DOTDSPAS CHAR(8), /* PASSWORD VALUE */ 08100006 2 DOTDSPOS FIXED(8), /* ASTERISK POSITION */ 08200006 2 DOTDSFLG BIT(8), /* DATA SET FLAGS */ 08300006 3 DOTDSFUQ BIT(1), /* FLAG-ON IF UNQUALIFIED */ 08400006 2 DOTDSMLN FIXED(8), /* MEMBER NAME LENGTH */ 08500006 2 DOTDSMEM CHAR(8), /* MEMBER NAME */ 08600006 2 DOTDSLEN FIXED(8), /* CATALOGUED NAME LENGTH */ 08700006 2 DOTDSVAL CHAR(44); /* CATALOGUED NAME */ 08800006 08900006 /* 'HEXADECIMAL'PARAMETER */ 09000006 DCL HEXA BASED(FDTPTR( 15)); 09100006 09200006 /* 'CHARACTER'PARAMETER */ 09300006 DCL CHARA BASED(FDTPTR( 16)); 09400006 09500006 /* 'DUMP'PARAMETER */ 09600006 DCL DUMP BASED(FDTPTR( 17)); 09700006 09800006 /* 'VOLSER STAGINGRNGE'PARAMETER */ 09900006 DCL 1 VOLSR BASED(FDTPTR( 18)) BDY(HWORD), 10000006 2 VOLSRPLN FIXED(8), /* PASSWORD LENGTH */ 10100006 2 VOLSRPAS CHAR(8), /* PASSWORD VALUE */ 10200006 2 VOLSRPOS FIXED(8), /* ASTERISK POSITION */ 10300006 2 VOLSRFLG BIT(8), /* DATA SET FLAGS */ 10400006 3 VOLSRFUQ BIT(1), /* FLAG-ON IF UNQUALIFIED */ 10500006 2 VOLSRMLN FIXED(8), /* MEMBER NAME LENGTH */ 10600006 2 VOLSRMEM CHAR(8), /* MEMBER NAME */ 10700006 2 VOLSRLEN FIXED(8), /* CATALOGUED NAME LENGTH */ 10800006 2 VOLSRVAL CHAR(44); /* CATALOGUED NAME */ 10900006 11000006 /* 'FROM CCHHR STGRNGE'PARAMETER */ 11100006 DCL 1 DCCHR BASED(FDTPTR( 19)) BDY(HWORD), 11200006 2 DCCHRLEN FIXED(8), /* DATA ITEM LENGTH */ 11300006 2 DCCHRVAL CHAR( 5); /* DATA ITEM VALUE */ 11400006 11500006 /* 'TO HHR STAGINGRNGE'PARAMETER */ 11600006 DCL 1 DREC BASED(FDTPTR( 20)) BDY(HWORD), 11700006 2 DRECLEN FIXED(8), /* DATA ITEM LENGTH */ 11800006 2 DRECVAL CHAR( 3); /* DATA ITEM VALUE */ 11900006 12000006 /* 'VOLSER DATASETRANGE'PARAMETER */ 12100006 DCL 1 VOLDS BASED(FDTPTR( 21)) BDY(HWORD), 12200006 2 VOLDSPLN FIXED(8), /* PASSWORD LENGTH */ 12300006 2 VOLDSPAS CHAR(8), /* PASSWORD VALUE */ 12400006 2 VOLDSPOS FIXED(8), /* ASTERISK POSITION */ 12500006 2 VOLDSFLG BIT(8), /* DATA SET FLAGS */ 12600006 3 VOLDSFUQ BIT(1), /* FLAG-ON IF UNQUALIFIED */ 12700006 2 VOLDSMLN FIXED(8), /* MEMBER NAME LENGTH */ 12800006 2 VOLDSMEM CHAR(8), /* MEMBER NAME */ 12900006 2 VOLDSLEN FIXED(8), /* CATALOGUED NAME LENGTH */ 13000006 2 VOLDSVAL CHAR(44); /* CATALOGUED NAME */ 13100006 13200006 /* 'FROM CCHHR DATASETRANGE'PARAMETER */ 13300006 DCL 1 DSCHR BASED(FDTPTR( 22)) BDY(HWORD), 13400006 2 DSCHRLEN FIXED(8), /* DATA ITEM LENGTH */ 13500006 2 DSCHRVAL CHAR( 5); /* DATA ITEM VALUE */ 13600006 13700006 /* 'TO CCHHR OF DATASETRANGE'PARAMETER */ 13800006 DCL 1 DSCHH BASED(FDTPTR( 23)) BDY(HWORD), 13900006 2 DSCHHLEN FIXED(8), /* DATA ITEM LENGTH */ 14000006 2 DSCHHVAL CHAR( 5); /* DATA ITEM VALUE */ 14100006 14200006 /* 'VOLSER REPAIRRANGE'PARAMETER */ 14300006 DCL 1 VOLRR BASED(FDTPTR( 24)) BDY(HWORD), 14400006 2 VOLRRPLN FIXED(8), /* PASSWORD LENGTH */ 14500006 2 VOLRRPAS CHAR(8), /* PASSWORD VALUE */ 14600006 2 VOLRRPOS FIXED(8), /* ASTERISK POSITION */ 14700006 2 VOLRRFLG BIT(8), /* DATA SET FLAGS */ 14800006 3 VOLRRFUQ BIT(1), /* FLAG-ON IF UNQUALIFIED */ 14900006 2 VOLRRMLN FIXED(8), /* MEMBER NAME LENGTH */ 15000006 2 VOLRRMEM CHAR(8), /* MEMBER NAME */ 15100006 2 VOLRRLEN FIXED(8), /* CATALOGUED NAME LENGTH */ 15200006 2 VOLRRVAL CHAR(44); /* CATALOGUED NAME */ 15300006 15400006 /* 'FROM CCHHR REPAIRRANGE'PARAMETER */ 15500006 DCL 1 RRCHR BASED(FDTPTR( 25)) BDY(HWORD), 15600006 2 RRCHRLEN FIXED(8), /* DATA ITEM LENGTH */ 15700006 2 RRCHRVAL CHAR( 5); /* DATA ITEM VALUE */ 15800006 15900006 /* 'TO CCHHR REPAIRRANGE'PARAMETER */ 16000006 DCL 1 RRCHH BASED(FDTPTR( 26)) BDY(HWORD), 16100006 2 RRCHHLEN FIXED(8), /* DATA ITEM LENGTH */ 16200006 2 RRCHHVAL CHAR( 5); /* DATA ITEM VALUE */ 16300006 16400006 /* 'KEYLENGTH OF LENGTH'PARAMETER */ 16500006 DCL DKEYLPTR(110) PTR(31) BASED(FDTPTR( 28)); 16600006 DCL 1 DKEYL BASED BDY(WORD), 16700006 2 DKEYLVAL FIXED(31); /* NUMERIC VALUE */ 16800006 16900006 /* 'DATALENGTH OF LENGTH'PARAMETER */ 17000006 DCL DATALPTR(110) PTR(31) BASED(FDTPTR( 29)); 17100006 DCL 1 DATAL BASED BDY(WORD), 17200006 2 DATALVAL FIXED(31); /* NUMERIC VALUE */ 17300006 17400006 /* 'VTOCHEADER PARAMETER'PARAMETER */ 17500006 DCL DPVTC BASED(FDTPTR( 30)); 17600006 17700006 /* 'VTOCHEADER'PARAMETER */ 17800006 DCL 1 DVTCS BASED(FDTPTR( 31)) BDY(HWORD), 17900006 2 DVTCSPLN FIXED(8), /* PASSWORD LENGTH */ 18000006 2 DVTCSPAS CHAR(8), /* PASSWORD VALUE */ 18100006 2 DVTCSPOS FIXED(8), /* ASTERISK POSITION */ 18200006 2 DVTCSFLG BIT(8), /* DATA SET FLAGS */ 18300006 3 DVTCSFUQ BIT(1), /* FLAG-ON IF UNQUALIFIED */ 18400006 2 DVTCSMLN FIXED(8), /* MEMBER NAME LENGTH */ 18500006 2 DVTCSMEM CHAR(8), /* MEMBER NAME */ 18600006 2 DVTCSLEN FIXED(8), /* CATALOGUED NAME LENGTH */ 18700006 2 DVTCSVAL CHAR(44); /* CATALOGUED NAME */ 18800006 18900006 /* 'COPY'PARAMETER */ 19000006 DCL COPY BASED(FDTPTR( 35)); 19100006 19200006 /* 'INFILE'PARAMETER/PASSWORD */ 19300006 DCL 1 CINFL BASED(FDTPTR( 36)) BDY(HWORD), 19400006 2 CINFLPLN FIXED(8), /* PASSWORD LENGTH */ 19500006 2 CINFLPAS CHAR(8), /* PASSWORD VALUE */ 19600006 2 CINFLLEN FIXED(8), /* DATA ITEM LENGTH */ 19700006 2 CINFLVAL CHAR( 8); /* DATA ITEM VALUE */ 19800006 19900006 /* 'INDATASET'PARAMETER/PASSWORD */ 20000006 DCL 1 CINDS BASED(FDTPTR( 37)) BDY(HWORD), 20100006 2 CINDSPLN FIXED(8), /* PASSWORD LENGTH */ 20200006 2 CINDSPAS CHAR(8), /* PASSWORD VALUE */ 20300006 2 CINDSPOS FIXED(8), /* ASTERISK POSITION */ 20400006 2 CINDSFLG BIT(8), /* DATA SET FLAGS */ 20500006 3 CINDSFUQ BIT(1), /* FLAG-ON IF UNQUALIFIED */ 20600006 2 CINDSMLN FIXED(8), /* MEMBER NAME LENGTH */ 20700006 2 CINDSMEM CHAR(8), /* MEMBER NAME */ 20800006 2 CINDSLEN FIXED(8), /* CATALOGUED NAME LENGTH */ 20900006 2 CINDSVAL CHAR(44); /* CATALOGUED NAME */ 21000006 21100006 /* 'STAGINGRANGE 'PARAMETER */ 21200006 DCL CSRNG BASED(FDTPTR( 38)); 21300006 21400006 /* 'DATASETRANGE'PARAMETER */ 21500006 DCL CDSRG BASED(FDTPTR( 39)); 21600006 21700006 /* 'LENGTH FOR COPY'PARAMETER */ 21800006 DCL CLEN BASED(FDTPTR( 40)); 21900006 DCL CLENCNT FIXED(31) BASED(ADDR(FDTPTR( 40))); 22000006 22100006 /* 'OUTFILE'PARAMETER/PASSWORD */ 22200006 DCL 1 COFIL BASED(FDTPTR( 41)) BDY(HWORD), 22300006 2 COFILPLN FIXED(8), /* PASSWORD LENGTH */ 22400006 2 COFILPAS CHAR(8), /* PASSWORD VALUE */ 22500006 2 COFILLEN FIXED(8), /* DATA ITEM LENGTH */ 22600006 2 COFILVAL CHAR( 8); /* DATA ITEM VALUE */ 22700006 22800006 /* 'CATALOG'PARAMETER/PASSWORD */ 22900006 DCL 1 CCATL BASED(FDTPTR( 42)) BDY(HWORD), 23000006 2 CCATLPLN FIXED(8), /* PASSWORD LENGTH */ 23100006 2 CCATLPAS CHAR(8), /* PASSWORD VALUE */ 23200006 2 CCATLPOS FIXED(8), /* ASTERISK POSITION */ 23300006 2 CCATLFLG BIT(8), /* DATA SET FLAGS */ 23400006 3 CCATLFUQ BIT(1), /* FLAG-ON IF UNQUALIFIED */ 23500006 2 CCATLMLN FIXED(8), /* MEMBER NAME LENGTH */ 23600006 2 CCATLMEM CHAR(8), /* MEMBER NAME */ 23700006 2 CCATLLEN FIXED(8), /* CATALOGUED NAME LENGTH */ 23800006 2 CCATLVAL CHAR(44); /* CATALOGUED NAME */ 23900006 24000006 /* 'VOLSER DATASETRANGE'PARAMETER */ 24100006 DCL 1 CVOLD BASED(FDTPTR( 43)) BDY(HWORD), 24200006 2 CVOLDPLN FIXED(8), /* PASSWORD LENGTH */ 24300006 2 CVOLDPAS CHAR(8), /* PASSWORD VALUE */ 24400006 2 CVOLDPOS FIXED(8), /* ASTERISK POSITION */ 24500006 2 CVOLDFLG BIT(8), /* DATA SET FLAGS */ 24600006 3 CVOLDFUQ BIT(1), /* FLAG-ON IF UNQUALIFIED */ 24700006 2 CVOLDMLN FIXED(8), /* MEMBER NAME LENGTH */ 24800006 2 CVOLDMEM CHAR(8), /* MEMBER NAME */ 24900006 2 CVOLDLEN FIXED(8), /* CATALOGUED NAME LENGTH */ 25000006 2 CVOLDVAL CHAR(44); /* CATALOGUED NAME */ 25100006 25200006 /* 'FROM CCHHR OF DATASET RANGE'PARAMETER */ 25300006 DCL 1 CDCHR BASED(FDTPTR( 44)) BDY(HWORD), 25400006 2 CDCHRLEN FIXED(8), /* DATA ITEM LENGTH */ 25500006 2 CDCHRVAL CHAR( 5); /* DATA ITEM VALUE */ 25600006 25700006 /* 'TO HHR DATASET RANGE'PARAMETER */ 25800006 DCL 1 CDHHR BASED(FDTPTR( 45)) BDY(HWORD), 25900006 2 CDHHRLEN FIXED(8), /* DATA ITEM LENGTH */ 26000006 2 CDHHRVAL CHAR( 3); /* DATA ITEM VALUE */ 26100006 26200006 /* 'VOLSER STAGINGRANGE'PARAMETER */ 26300006 DCL 1 CVOLS BASED(FDTPTR( 46)) BDY(HWORD), 26400006 2 CVOLSPLN FIXED(8), /* PASSWORD LENGTH */ 26500006 2 CVOLSPAS CHAR(8), /* PASSWORD VALUE */ 26600006 2 CVOLSPOS FIXED(8), /* ASTERISK POSITION */ 26700006 2 CVOLSFLG BIT(8), /* DATA SET FLAGS */ 26800006 3 CVOLSFUQ BIT(1), /* FLAG-ON IF UNQUALIFIED */ 26900006 2 CVOLSMLN FIXED(8), /* MEMBER NAME LENGTH */ 27000006 2 CVOLSMEM CHAR(8), /* MEMBER NAME */ 27100006 2 CVOLSLEN FIXED(8), /* CATALOGUED NAME LENGTH */ 27200006 2 CVOLSVAL CHAR(44); /* CATALOGUED NAME */ 27300006 27400006 /* 'CCHHR STAGINGRANGE'PARAMETER */ 27500006 DCL 1 CCCHR BASED(FDTPTR( 47)) BDY(HWORD), 27600006 2 CCCHRLEN FIXED(8), /* DATA ITEM LENGTH */ 27700006 2 CCCHRVAL CHAR( 5); /* DATA ITEM VALUE */ 27800006 27900006 /* 'TO RECORD STAGINGRANGE'PARAMETER */ 28000006 DCL 1 CRECR BASED(FDTPTR( 48)) BDY(HWORD), 28100006 2 CRECRLEN FIXED(8), /* DATA ITEM LENGTH */ 28200006 2 CRECRVAL CHAR( 1); /* DATA ITEM VALUE */ 28300006 28400006 /* ' KEYLENGTH OF LENGTH'PARAMETER */ 28500006 DCL CKEYLPTR(110) PTR(31) BASED(FDTPTR( 50)); 28600006 DCL 1 CKEYL BASED BDY(WORD), 28700006 2 CKEYLVAL FIXED(31); /* NUMERIC VALUE */ 28800006 28900006 /* 'DATALENGTH OF LENGTH'PARAMETER */ 29000006 DCL CDATLPTR(110) PTR(31) BASED(FDTPTR( 51)); 29100006 DCL 1 CDATL BASED BDY(WORD), 29200006 2 CDATLVAL FIXED(31); /* NUMERIC VALUE */ 29300006 29400006 /* 'VTOCHEADER COPY'PARAMETER */ 29500006 DCL CVTOC BASED(FDTPTR( 52)); 29600006 29700006 /* 'VTOCHEADER'PARAMETER */ 29800006 DCL 1 CVTCS BASED(FDTPTR( 53)) BDY(HWORD), 29900006 2 CVTCSPLN FIXED(8), /* PASSWORD LENGTH */ 30000006 2 CVTCSPAS CHAR(8), /* PASSWORD VALUE */ 30100006 2 CVTCSPOS FIXED(8), /* ASTERISK POSITION */ 30200006 2 CVTCSFLG BIT(8), /* DATA SET FLAGS */ 30300006 3 CVTCSFUQ BIT(1), /* FLAG-ON IF UNQUALIFIED */ 30400006 2 CVTCSMLN FIXED(8), /* MEMBER NAME LENGTH */ 30500006 2 CVTCSMEM CHAR(8), /* MEMBER NAME */ 30600006 2 CVTCSLEN FIXED(8), /* CATALOGUED NAME LENGTH */ 30700006 2 CVTCSVAL CHAR(44); /* CATALOGUED NAME */ 30800006 30900006 /* 'DEBLOCK'PARAMETER */ 31000006 DCL DBLOC BASED(FDTPTR( 70)); 31100006 31200006 /* 'FILE'PARAMETER/PASSWORD */ 31300006 DCL 1 DBFIL BASED(FDTPTR( 71)) BDY(HWORD), 31400006 2 DBFILPLN FIXED(8), /* PASSWORD LENGTH */ 31500006 2 DBFILPAS CHAR(8), /* PASSWORD VALUE */ 31600006 2 DBFILLEN FIXED(8), /* DATA ITEM LENGTH */ 31700006 2 DBFILVAL CHAR( 8); /* DATA ITEM VALUE */ 31800006 31900006 /* 'DATASET'PARAMETER/PASSWORD */ 32000006 DCL 1 DBDS BASED(FDTPTR( 72)) BDY(HWORD), 32100006 2 DBDSPLN FIXED(8), /* PASSWORD LENGTH */ 32200006 2 DBDSPAS CHAR(8), /* PASSWORD VALUE */ 32300006 2 DBDSPOS FIXED(8), /* ASTERISK POSITION */ 32400006 2 DBDSFLG BIT(8), /* DATA SET FLAGS */ 32500006 3 DBDSFUQ BIT(1), /* FLAG-ON IF UNQUALIFIED */ 32600006 2 DBDSMLN FIXED(8), /* MEMBER NAME LENGTH */ 32700006 2 DBDSMEM CHAR(8), /* MEMBER NAME */ 32800006 2 DBDSLEN FIXED(8), /* CATALOGUED NAME LENGTH */ 32900006 2 DBDSVAL CHAR(44); /* CATALOGUED NAME */ 33000006 33100006 /* 'RANGE 'PARAMETER */ 33200006 DCL DBRNG BASED(FDTPTR( 73)); 33300006 33400006 /* 'LENGTH'PARAMETER */ 33500006 DCL DBLST BASED(FDTPTR( 74)); 33600006 DCL DBLSTCNT FIXED(31) BASED(ADDR(FDTPTR( 74))); 33700006 33800006 /* 'VOLSER RANGE'PARAMETER */ 33900006 DCL 1 DBVOL BASED(FDTPTR( 75)) BDY(HWORD), 34000006 2 DBVOLPLN FIXED(8), /* PASSWORD LENGTH */ 34100006 2 DBVOLPAS CHAR(8), /* PASSWORD VALUE */ 34200006 2 DBVOLPOS FIXED(8), /* ASTERISK POSITION */ 34300006 2 DBVOLFLG BIT(8), /* DATA SET FLAGS */ 34400006 3 DBVOLFUQ BIT(1), /* FLAG-ON IF UNQUALIFIED */ 34500006 2 DBVOLMLN FIXED(8), /* MEMBER NAME LENGTH */ 34600006 2 DBVOLMEM CHAR(8), /* MEMBER NAME */ 34700006 2 DBVOLLEN FIXED(8), /* CATALOGUED NAME LENGTH */ 34800006 2 DBVOLVAL CHAR(44); /* CATALOGUED NAME */ 34900006 35000006 /* 'FROM CCHH OF RANGE'PARAMETER */ 35100006 DCL 1 DBCCH BASED(FDTPTR( 76)) BDY(HWORD), 35200006 2 DBCCHLEN FIXED(8), /* DATA ITEM LENGTH */ 35300006 2 DBCCHVAL CHAR( 4); /* DATA ITEM VALUE */ 35400006 35500006 /* 'TO HH OF RANGE'PARAMETER */ 35600006 DCL 1 DBHHH BASED(FDTPTR( 77)) BDY(HWORD), 35700006 2 DBHHHLEN FIXED(8), /* DATA ITEM LENGTH */ 35800006 2 DBHHHVAL CHAR( 2); /* DATA ITEM VALUE */ 35900006 36000006 /* 'LENGTH OF KEY FOR LENGTH'PARAMETER */ 36100006 DCL DBKEYPTR(110) PTR(31) BASED(FDTPTR( 79)); 36200006 DCL 1 DBKEY BASED BDY(WORD), 36300006 2 DBKEYVAL FIXED(31); /* NUMERIC VALUE */ 36400006 36500006 /* 'DATALENGTH OF LENGTH'PARAMETER */ 36600006 DCL DBDATPTR(110) PTR(31) BASED(FDTPTR( 80)); 36700006 DCL 1 DBDAT BASED BDY(WORD), 36800006 2 DBDATVAL FIXED(31); /* NUMERIC VALUE */ 36900006 37000006 /* 'MODIFY'PARAMETER */ 37100006 DCL MODIF BASED(FDTPTR( 90)); 37200006 37300006 /* 'NEWDATA'PARAMETER */ 37400006 DCL MNDAT BASED(FDTPTR( 91)); 37500006 37600006 /* 'NEWKEY'PARAMETER */ 37700006 DCL MNKEY BASED(FDTPTR( 92)); 37800006 37900006 /* 'NEWCOUNT'PARAMETER */ 38000006 DCL 1 MNCNT BASED(FDTPTR( 93)) BDY(HWORD), 38100006 2 MNCNTLEN FIXED(8), /* DATA ITEM LENGTH */ 38200006 2 MNCNTVAL CHAR( 8); /* DATA ITEM VALUE */ 38300006 38400006 /* 'INFILE'PARAMETER/PASSWORD */ 38500006 DCL 1 MINFL BASED(FDTPTR( 94)) BDY(HWORD), 38600006 2 MINFLPLN FIXED(8), /* PASSWORD LENGTH */ 38700006 2 MINFLPAS CHAR(8), /* PASSWORD VALUE */ 38800006 2 MINFLLEN FIXED(8), /* DATA ITEM LENGTH */ 38900006 2 MINFLVAL CHAR( 8); /* DATA ITEM VALUE */ 39000006 39100006 /* 'INDATASET'PARAMETER/PASSWORD */ 39200006 DCL 1 MINDS BASED(FDTPTR( 95)) BDY(HWORD), 39300006 2 MINDSPLN FIXED(8), /* PASSWORD LENGTH */ 39400006 2 MINDSPAS CHAR(8), /* PASSWORD VALUE */ 39500006 2 MINDSPOS FIXED(8), /* ASTERISK POSITION */ 39600006 2 MINDSFLG BIT(8), /* DATA SET FLAGS */ 39700006 3 MINDSFUQ BIT(1), /* FLAG-ON IF UNQUALIFIED */ 39800006 2 MINDSMLN FIXED(8), /* MEMBER NAME LENGTH */ 39900006 2 MINDSMEM CHAR(8), /* MEMBER NAME */ 40000006 2 MINDSLEN FIXED(8), /* CATALOGUED NAME LENGTH */ 40100006 2 MINDSVAL CHAR(44); /* CATALOGUED NAME */ 40200006 40300006 /* 'INREPAIRKEY'PARAMETER */ 40400006 DCL MIRK BASED(FDTPTR( 96)); 40500006 40600006 /* 'INDATASETADDRESS'PARAMETER */ 40700006 DCL MIDSA BASED(FDTPTR( 97)); 40800006 40900006 /* 'INREPAIRRANGE'PARAMETER */ 41000006 DCL MIRNG BASED(FDTPTR( 98)); 41100006 41200006 /* 'OUTREPAIRKEY'PARAMETER/PASSWORD */ 41300006 DCL MORK BASED(FDTPTR(102)); 41400006 41500006 /* 'OUTDATASETADDRESS 'PARAMETER */ 41600006 DCL MODSA BASED(FDTPTR(103)); 41700006 41800006 /* 'OUTFILE'PARAMETER/PASSWORD */ 41900006 DCL 1 MOUTF BASED(FDTPTR(104)) BDY(HWORD), 42000006 2 MOUTFPLN FIXED(8), /* PASSWORD LENGTH */ 42100006 2 MOUTFPAS CHAR(8), /* PASSWORD VALUE */ 42200006 2 MOUTFLEN FIXED(8), /* DATA ITEM LENGTH */ 42300006 2 MOUTFVAL CHAR( 8); /* DATA ITEM VALUE */ 42400006 42500006 /* 'OUTDATASET'PARAMETER/PASSWORD */ 42600006 DCL 1 MODS BASED(FDTPTR(105)) BDY(HWORD), 42700006 2 MODSPLN FIXED(8), /* PASSWORD LENGTH */ 42800006 2 MODSPAS CHAR(8), /* PASSWORD VALUE */ 42900006 2 MODSPOS FIXED(8), /* ASTERISK POSITION */ 43000006 2 MODSFLG BIT(8), /* DATA SET FLAGS */ 43100006 3 MODSFUQ BIT(1), /* FLAG-ON IF UNQUALIFIED */ 43200006 2 MODSMLN FIXED(8), /* MEMBER NAME LENGTH */ 43300006 2 MODSMEM CHAR(8), /* MEMBER NAME */ 43400006 2 MODSLEN FIXED(8), /* CATALOGUED NAME LENGTH */ 43500006 2 MODSVAL CHAR(44); /* CATALOGUED NAME */ 43600006 43700006 /* 'OVERFLOW'PARAMETER/PASSWORD */ 43800006 DCL MOVFL BASED(FDTPTR(106)); 43900006 44000006 /* 'VTOCHEADERADDRESS'PARAMETER */ 44100006 DCL MVTOC BASED(FDTPTR(107)); 44200006 44300006 /* 'VTOCHEADERADDRESS VOLSER'PARAMETER */ 44400006 DCL 1 MVTCS BASED(FDTPTR(108)) BDY(HWORD), 44500006 2 MVTCSPLN FIXED(8), /* PASSWORD LENGTH */ 44600006 2 MVTCSPAS CHAR(8), /* PASSWORD VALUE */ 44700006 2 MVTCSPOS FIXED(8), /* ASTERISK POSITION */ 44800006 2 MVTCSFLG BIT(8), /* DATA SET FLAGS */ 44900006 3 MVTCSFUQ BIT(1), /* FLAG-ON IF UNQUALIFIED */ 45000006 2 MVTCSMLN FIXED(8), /* MEMBER NAME LENGTH */ 45100006 2 MVTCSMEM CHAR(8), /* MEMBER NAME */ 45200006 2 MVTCSLEN FIXED(8), /* CATALOGUED NAME LENGTH */ 45300006 2 MVTCSVAL CHAR(44); /* CATALOGUED NAME */ 45400006 45500006 /* 'VTOCHEADERADDRESS CCHHR'PARAMETER */ 45600006 DCL 1 MVTCR BASED(FDTPTR(109)) BDY(HWORD), 45700006 2 MVTCRLEN FIXED(8), /* DATA ITEM LENGTH */ 45800006 2 MVTCRVAL CHAR( 5); /* DATA ITEM VALUE */ 45900006 46000006 /* 'VOLSER INREPAIRKEY'PARAMETER */ 46100006 DCL 1 MIRVO BASED(FDTPTR(110)) BDY(HWORD), 46200006 2 MIRVOPLN FIXED(8), /* PASSWORD LENGTH */ 46300006 2 MIRVOPAS CHAR(8), /* PASSWORD VALUE */ 46400006 2 MIRVOPOS FIXED(8), /* ASTERISK POSITION */ 46500006 2 MIRVOFLG BIT(8), /* DATA SET FLAGS */ 46600006 3 MIRVOFUQ BIT(1), /* FLAG-ON IF UNQUALIFIED */ 46700006 2 MIRVOMLN FIXED(8), /* MEMBER NAME LENGTH */ 46800006 2 MIRVOMEM CHAR(8), /* MEMBER NAME */ 46900006 2 MIRVOLEN FIXED(8), /* CATALOGUED NAME LENGTH */ 47000006 2 MIRVOVAL CHAR(44); /* CATALOGUED NAME */ 47100006 47200006 /* 'CCHHR INREPAIRKEY'PARAMETER */ 47300006 DCL 1 MIRCH BASED(FDTPTR(111)) BDY(HWORD), 47400006 2 MIRCHLEN FIXED(8), /* DATA ITEM LENGTH */ 47500006 2 MIRCHVAL CHAR( 5); /* DATA ITEM VALUE */ 47600006 47700006 /* 'VOLSER INDATASETADDRESS'PARAMETER */ 47800006 DCL 1 MIDVO BASED(FDTPTR(112)) BDY(HWORD), 47900006 2 MIDVOPLN FIXED(8), /* PASSWORD LENGTH */ 48000006 2 MIDVOPAS CHAR(8), /* PASSWORD VALUE */ 48100006 2 MIDVOPOS FIXED(8), /* ASTERISK POSITION */ 48200006 2 MIDVOFLG BIT(8), /* DATA SET FLAGS */ 48300006 3 MIDVOFUQ BIT(1), /* FLAG-ON IF UNQUALIFIED */ 48400006 2 MIDVOMLN FIXED(8), /* MEMBER NAME LENGTH */ 48500006 2 MIDVOMEM CHAR(8), /* MEMBER NAME */ 48600006 2 MIDVOLEN FIXED(8), /* CATALOGUED NAME LENGTH */ 48700006 2 MIDVOVAL CHAR(44); /* CATALOGUED NAME */ 48800006 48900006 /* 'CCHHR INDATASETADDRESS'PARAMETER */ 49000006 DCL 1 MIDCH BASED(FDTPTR(113)) BDY(HWORD), 49100006 2 MIDCHLEN FIXED(8), /* DATA ITEM LENGTH */ 49200006 2 MIDCHVAL CHAR( 5); /* DATA ITEM VALUE */ 49300006 49400006 /* 'VOL SER INREPAIRRANGE'PARAMETER */ 49500006 DCL 1 MRRVO BASED(FDTPTR(114)) BDY(HWORD), 49600006 2 MRRVOPLN FIXED(8), /* PASSWORD LENGTH */ 49700006 2 MRRVOPAS CHAR(8), /* PASSWORD VALUE */ 49800006 2 MRRVOPOS FIXED(8), /* ASTERISK POSITION */ 49900006 2 MRRVOFLG BIT(8), /* DATA SET FLAGS */ 50000006 3 MRRVOFUQ BIT(1), /* FLAG-ON IF UNQUALIFIED */ 50100006 2 MRRVOMLN FIXED(8), /* MEMBER NAME LENGTH */ 50200006 2 MRRVOMEM CHAR(8), /* MEMBER NAME */ 50300006 2 MRRVOLEN FIXED(8), /* CATALOGUED NAME LENGTH */ 50400006 2 MRRVOVAL CHAR(44); /* CATALOGUED NAME */ 50500006 50600006 /* 'FROM CCHH IN RANGE'PARAMETER */ 50700006 DCL 1 MRRCH BASED(FDTPTR(115)) BDY(HWORD), 50800006 2 MRRCHLEN FIXED(8), /* DATA ITEM LENGTH */ 50900006 2 MRRCHVAL CHAR( 4); /* DATA ITEM VALUE */ 51000006 51100006 /* 'TO CCHHR IN RANGE'PARAMETER */ 51200006 DCL 1 MRRHH BASED(FDTPTR(116)) BDY(HWORD), 51300006 2 MRRHHLEN FIXED(8), /* DATA ITEM LENGTH */ 51400006 2 MRRHHVAL CHAR( 2); /* DATA ITEM VALUE */ 51500006 51600006 /* 'OFFSET OF NEWDATA'PARAMETER */ 51700006 DCL 1 MNDOF BASED(FDTPTR(117)) BDY(WORD), 51800006 2 MNDOFVAL FIXED(31); /* NUMERIC VALUE */ 51900006 52000006 /* 'DATA STRING'PARAMETER */ 52100006 DCL 1 MNDST BASED(FDTPTR(118)) BDY(HWORD), 52200006 2 MNDSTLEN FIXED(8), /* DATA ITEM LENGTH */ 52300006 2 MNDSTVAL CHAR(255); /* DATA ITEM VALUE */ 52400006 52500006 /* 'OFFSET OF NEWKEY'PARAMETER */ 52600006 DCL 1 MNKOF BASED(FDTPTR(119)) BDY(WORD), 52700006 2 MNKOFVAL FIXED(31); /* NUMERIC VALUE */ 52800006 52900006 /* 'KEY STRING'PARAMETER */ 53000006 DCL 1 MNKST BASED(FDTPTR(120)) BDY(HWORD), 53100006 2 MNKSTLEN FIXED(8), /* DATA ITEM LENGTH */ 53200006 2 MNKSTVAL CHAR(255); /* DATA ITEM VALUE */ 53300006 53400006 /* 'VOLSER OUTREPAIRKEY'PARAMETER */ 53500006 DCL 1 MORVO BASED(FDTPTR(121)) BDY(HWORD), 53600006 2 MORVOPLN FIXED(8), /* PASSWORD LENGTH */ 53700006 2 MORVOPAS CHAR(8), /* PASSWORD VALUE */ 53800006 2 MORVOPOS FIXED(8), /* ASTERISK POSITION */ 53900006 2 MORVOFLG BIT(8), /* DATA SET FLAGS */ 54000006 3 MORVOFUQ BIT(1), /* FLAG-ON IF UNQUALIFIED */ 54100006 2 MORVOMLN FIXED(8), /* MEMBER NAME LENGTH */ 54200006 2 MORVOMEM CHAR(8), /* MEMBER NAME */ 54300006 2 MORVOLEN FIXED(8), /* CATALOGUED NAME LENGTH */ 54400006 2 MORVOVAL CHAR(44); /* CATALOGUED NAME */ 54500006 54600006 /* 'CCHHR INDEX OF OUTREPAIRKEY'PARAMETER */ 54700006 DCL 1 MORCH BASED(FDTPTR(122)) BDY(HWORD), 54800006 2 MORCHLEN FIXED(8), /* DATA ITEM LENGTH */ 54900006 2 MORCHVAL CHAR( 5); /* DATA ITEM VALUE */ 55000006 55100006 /* 'VOLSER OUTDATASETADDRESS'PARAMETER */ 55200006 DCL 1 MODVO BASED(FDTPTR(123)) BDY(HWORD), 55300006 2 MODVOPLN FIXED(8), /* PASSWORD LENGTH */ 55400006 2 MODVOPAS CHAR(8), /* PASSWORD VALUE */ 55500006 2 MODVOPOS FIXED(8), /* ASTERISK POSITION */ 55600006 2 MODVOFLG BIT(8), /* DATA SET FLAGS */ 55700006 3 MODVOFUQ BIT(1), /* FLAG-ON IF UNQUALIFIED */ 55800006 2 MODVOMLN FIXED(8), /* MEMBER NAME LENGTH */ 55900006 2 MODVOMEM CHAR(8), /* MEMBER NAME */ 56000006 2 MODVOLEN FIXED(8), /* CATALOGUED NAME LENGTH */ 56100006 2 MODVOVAL CHAR(44); /* CATALOGUED NAME */ 56200006 56300006 /* 'CCHHR OUTDATASETADDRESS'PARAMETER */ 56400006 DCL 1 MODCH BASED(FDTPTR(124)) BDY(HWORD), 56500006 2 MODCHLEN FIXED(8), /* DATA ITEM LENGTH */ 56600006 2 MODCHVAL CHAR( 5); /* DATA ITEM VALUE */ 56700006