/********************************************************************/ 00092003 /* MACCOMP Y30LB22 SC1DR/BL0019 @Y30LB22*/ 00094003 /* MACSTAT Y30LB22 74/192/341040 @Y30LB22*/ 00096003 /* */00098003 /* NAME: IEZCOPYV @Y30LB22*/ 00098403 /* */00098803 /* FUNCTION: MAPPING MACRO @Y30LB22*/ 00098903 /* A COPY VOL RECORD IS CONTAINED IN THE MSVI @Y30LB22*/ 00099203 /* DATA SET FOR EACH COPY VOLUME CONTAINED @Y30LB22*/ 00124803 /* IN THE MASS STORAGE FACILITY @Y30LB22*/ 00131103 /* @Y30LB22*/ 00133103 /* STATUS: CHANGE LEVEL = 0 @Y30LB22*/ 00137403 /* */00143703 /********************************************************************/ 00150003 DCL 00200003 1 COPYV BASED(COPYVPTR) BDY(WORD), /*@Y30LB22*/ 00250003 2 COPNAME CHAR(13), /* KEY OF VOLUME @Y30LB22*/ 00300003 3 COPV CHAR(5), /* LETTER V & 4 BLANKS @Y30LB22*/ 00350003 3 COPSERNO CHAR(6), /* SER NO OF COPIED VOL @Y30LB22*/ 00400003 3 COPID CHAR(2), /* RECORD NUMBER ID @Y30LB22*/ 00450003 4 COPBLANK CHAR(1), /* BLANK @Y30LB22*/ 00500003 4 COPNO FIXED(8), /* BIN NO OF COPIED REC @Y30LB22*/ 00550003 2 COPRES6 CHAR(1), /* RESERVED @Y30LB22*/ 00560003 2 COPFLAGA BIT(32), /* INDICATOR FLAGS @Y30LB22*/ 00600003 3 COPTYPE BIT(16), /* RECORD TYPE FLAGS @Y30LB22*/ 00650003 4 COPRES1 BIT(3), /* RESERVED @Y30LB22*/ 00700003 4 COPCOPYV BIT(1), /* COPY VOL RECORD @Y30LB22*/ 00750003 4 COPRES2 BIT(12), /* RESERVED @Y30LB22*/ 00800003 3 COPGROUP BIT(1), /* VOL BELONGS TO GROUP @Y30LB22*/ 00850003 3 COPVSAM BIT(1), /* BELONGS TO VSAM CAT @Y30LB22*/ 00900003 3 COPGENUS BIT(1), /* GENERAL USE TYPE VOL @Y30LB22*/ 00950003 3 COPRSTD BIT(1), /* RESTRICTED TYPE VOL @Y30LB22*/ 01000003 3 COPBKUP BIT(1), /* COPY IS A BKUP COPY @Y30LB22*/ 01050003 3 COPBIND BIT(1), /* ATTRIBUTE WAS BIND @Y30LB22*/ 01100003 3 COPEXCL BIT(1), /* ATTRIBUTE-EXCLUSIVE @Y30LB22*/ 01150003 3 COPDAERA BIT(1), /* ATTRIBUTE DASDERASE @Y30LB22*/ 01200003 3 COPRONLY BIT(1), /* ATTRIBUTE-READ ONLY @Y30LB22*/ 01250003 3 COPDLSPF BIT(1), /* DOWN LEVEL SPACE FLG @Y30LB22*/ 01300003 3 * BIT(6), /* UNUSED @Y30LB22*/ 01350003 2 * BIT(16), /* UNUSED @Y30LB22*/ 01400003 2 COPRCVYF BIT(32), /* RECOVERY FIELDS @Y30LB22*/ 01410003 3 COPSATIA BIT(16), /* STATUS INDICATOR @Y30LB22*/ 01450003 4 COPIVCRE BIT(1), /* INCOMPLETE CREATE @Y30LB22*/ 01500003 4 COPIVCPY BIT(1), /* INCOMPLETE VOL. COPY @Y30LB22*/ 01550003 4 COPVSMIS BIT(1), /* VOL SER. MISMATCH @Y30LB22*/ 01600003 4 COPRES3 BIT(13), /* RESERVED @Y30LB22*/ 01650003 3 COPMISCF BIT(16), /* MISCL. FLAG @Y30LB22*/ 01660003 4 COPHOLD BIT(1), /* COPY PLACEHOLDER @Y30LB22*/ 01670003 4 * BIT(15), /* UNUSED @Y30LB22*/ 01680003 2 COPCSN1 CHAR(12), /* SER NO OF 1ST CART. @Y30LB22*/ 01700003 2 COPLIB1 FIXED(8), /* ID OF LIB FOR CSN1 @Y30LB22*/ 01750003 3 COPRES4 BIT(6), /* RESERVED @Y30LB22*/ 01760003 3 COPLID1 BIT(2), /* LIBRARY ID 1 @Y30LB22*/ 01770003 4 COP1BIT1 BIT(1), /* LIBRARY NO. @Y30LB22*/ 01780003 4 COP1BIT2 BIT(1), /* LIBRARY NO. @Y30LB22*/ 01790003 2 COPCSN2 CHAR(12), /* SER NO OF 2ND CART. @Y30LB22*/ 01800003 2 COPLIB2 FIXED(8), /* ID OF LIB FOR CSN2 @Y30LB22*/ 01850003 3 COPRES5 BIT(6), /* RESERVED @Y30LB22*/ 01860003 3 COPLID2 BIT(2), /* LIBRARY ID 2 @Y30LB22*/ 01870003 4 COP2BIT1 BIT(1), /* LIBRARY NO. @Y30LB22*/ 01880003 4 COP2BIT2 BIT(1), /* LIBRARY NO. @Y30LB22*/ 01890003 2 COPDATE CHAR(4), /* DATE COPY WAS MADE @Y30LB22*/ 01900003 2 COPDTREM CHAR(4), /* DATE VOL WAS EJECTED @Y30LB22*/ 01950003 2 COPDESCR CHAR(30), /* DESCRIPTIVE INFO @Y30LB22*/ 02000003 2 COPDEST CHAR(30), /* DEST. AFTER EJECTED @Y30LB22*/ 02050003 2 COPOWNER CHAR(10), /* NAME/ID OF OWNER @Y30LB22*/ 02100003 2 COPFRESP FIXED(15), /* NO OF FREE CYL ON @Y30LB22 02200003 VOL AT TIME OF COPY @Y30LB22*/ 02250003 2 COPLEXT FIXED(15), /* NO. CYL IN LARGEST @Y30LB22 02300003 FREE EXTENT AT TIME @Y30LB22 02310003 OF COPY @Y30LB22*/ 02320003 2 COPFREXT FIXED(31), /* NO. OF FREE EXTENTS @Y30LB22 02400003 AT TIME OF COPY @Y30LB22*/ 02450003 2 * CHAR(28); /* UNUSED @Y30LB22*/ 02500003