TITLE '********** ICKVLBL: DEFINE USER VOLUME LABEL ********00001000 *********' 00002000 MACRO 00003000 GETMAIN &R,&LV= 00004000 L REG15,0(REG1) GDTTBL ADDRESS 00005000 L REG15,GDTPRL(REG15) PROL ROUTINE ADDRESS 00006000 CNOP 2,4 BOUNDARY ALIGNMENT 00007000 LA REG14,*+14 RETURN ADDRESS 00008000 BALR REG1,REG15 LINKAGE TO PROL ROUTINE 00009000 DC A(MODID) MODULE ID ADDRESS 00010000 DC A(@SIZDATD) AUTOMATIC STORAGE SIZE ADDRESS 00011000 MEND 00012000 ICKVLBL CSECT , 0002 00013000 @MAINENT DS 0H 0002 00014000 USING *,@15 0002 00015000 B @PROLOG 0002 00016000 DC AL1(16) 0002 00017000 DC C'ICKVLBL 78.192' 0002 00018000 DROP @15 00019000 @PROLOG STM @14,@12,12(@13) 0002 00020000 BALR @12,0 0002 00021000 @PSTART DS 0H 0002 00022000 USING @PSTART,@12 0002 00023000 L @00,@SIZDATD 0002 00024000 GETMAIN R,LV=(0) 00025000 LR @11,@01 0002 00026000 USING @DATD,@11 0002 00027000 ST @13,@SA00001+4 0002 00028000 LM @00,@01,20(@13) 0002 00029000 ST @11,8(,@13) 0002 00030000 LR @13,@11 0002 00031000 XC @ZTEMPS(@ZLEN),@ZTEMPS 00032000 MVC @PC00001(12),0(@01) 0002 00033000 * 0176 00034000 EJECT 00035000 * 0177 00036000 */***** B E G I N E X E C U T I O N *****************************/ 00037000 * 0177 00038000 * IF GDTDBG = NULLPTR 0177 00039000 * THEN; 0177 00040000 L @10,@PC00001 0177 00041000 L @10,GDTDBG(,@10) 0177 00042000 LTR @10,@10 0177 00043000 BZ @RT00177 0177 00044000 * ELSE 0179 00045000 * CALL ICKDB010(GDTTBL,'UL00'); 0179 00046000 * 0179 00047000 L @10,@PC00001 0179 00048000 ST @10,@AL00001 0179 00049000 LA @15,@CC00479 0179 00050000 ST @15,@AL00001+4 0179 00051000 MVI @AL00001+4,X'80' 0179 00052000 L @15,GDTDBG(,@10) 0179 00053000 LA @01,@AL00001 0179 00054000 BALR @14,@15 0179 00055000 */* BUILD EMPTY VOLUME LABEL IMAGE */ 00056000 * UVOLN = ' '; 0180 00057000 * 0180 00058000 @RT00177 L @10,@PC00001+8 0180 00059000 MVI UVOLN+1(@10),C' ' 0180 00060000 MVC UVOLN+2(78,@10),UVOLN+1(@10) 0180 00061000 MVI UVOLN(@10),C' ' 0180 00062000 */* END-PROCEDURE DEFINE_USER_VOLUME_LABEL */ 00063000 * IF GDTDBG = NULLPTR 0181 00064000 * THEN; 0181 00065000 L @10,@PC00001 0181 00066000 L @10,GDTDBG(,@10) 0181 00067000 LTR @10,@10 0181 00068000 BZ @RT00181 0181 00069000 * ELSE 0183 00070000 * CALL ICKDB010(GDTTBL,'UL99'); 0183 00071000 L @10,@PC00001 0183 00072000 ST @10,@AL00001 0183 00073000 LA @15,@CC00481 0183 00074000 ST @15,@AL00001+4 0183 00075000 MVI @AL00001+4,X'80' 0183 00076000 L @15,GDTDBG(,@10) 0183 00077000 LA @01,@AL00001 0183 00078000 BALR @14,@15 0183 00079000 * CALL ICKSAEP0(GDTTBL,MODID); 0184 00080000 @RT00181 L @10,@PC00001 0184 00081000 ST @10,@AL00001 0184 00082000 LA @15,MODID 0184 00083000 ST @15,@AL00001+4 0184 00084000 MVI @AL00001+4,X'80' 0184 00085000 L @15,GDTEPL(,@10) 0184 00086000 LA @01,@AL00001 0184 00087000 BALR @14,@15 0184 00088000 * END ICKVLBL 0185 00089000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 00090000 */*%INCLUDE SYSLIB (DMSDF01 ) * 00091000 */*%INCLUDE SYSLIB (DMSDF00 ) * 00092000 */*@INCLUDE SYSLIB (DMSDF02 ) * 00093000 *; 0185 00094000 @DATA DS 0H 00095000 @DATD DSECT 00096000 DS 0F 00097000 @SA00001 DS 18F 00098000 @PC00001 DS 3F 00099000 @AL00001 DS 2A 00100000 @ZTEMPS DS C 00101000 @ZTEMPND EQU * 00102000 @ZLEN EQU @ZTEMPND-@ZTEMPS 00103000 ICKVLBL CSECT 00104000 DS 0F 00105000 @DATD DSECT 00106000 DS 0D 00107000 LISTSCAN DS A 00108000 IOCSPTR DS A 00109000 OPNPTR DS A 00110000 DDSTRU DS A 00111000 FSADDR DS A 00112000 DMPINDEX DS A 00113000 LISTPTR DS A 00114000 SETRC DS H 00115000 TESTRC DS H 00116000 LISTLN DS FL1 00117000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00118000 @ENDDATD EQU * 00119000 ICKVLBL CSECT 00120000 DS 0F 00121000 @SIZDATD DC AL1(0) 00122000 DC AL3(@ENDDATD-@DATD) 00123000 DS 0D 00124000 @CC00479 DC C'UL00' 00125000 @CC00481 DC C'UL99' 00126000 MODID DC CL4'VLBL' 00127000 PTCHCL01 DS CL256 00128000 ORG PTCHCL01 00129000 @NM00018 DC 256X'00' 00130000 ORG PTCHCL01+256 00131000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00132000 @01 EQU 01 00133000 @02 EQU 02 00134000 @03 EQU 03 00135000 @04 EQU 04 00136000 @05 EQU 05 00137000 @06 EQU 06 00138000 @07 EQU 07 00139000 @08 EQU 08 00140000 @09 EQU 09 00141000 @10 EQU 10 00142000 @11 EQU 11 00143000 @12 EQU 12 00144000 @13 EQU 13 00145000 @14 EQU 14 00146000 @15 EQU 15 00147000 REG12 EQU @12 00148000 REG0 EQU @00 00149000 REG1 EQU @01 00150000 REG10 EQU @10 00151000 REG11 EQU @11 00152000 REG13 EQU @13 00153000 REG14 EQU @14 00154000 REG15 EQU @15 00155000 REG2 EQU @02 00156000 REG3 EQU @03 00157000 REG4 EQU @04 00158000 REG5 EQU @05 00159000 REG6 EQU @06 00160000 REG7 EQU @07 00161000 REG8 EQU @08 00162000 REG9 EQU @09 00163000 RTNREG EQU @15 00164000 ICKSAEP0 EQU 0 00165000 TRACE1 EQU 0 00166000 OLDERID1 EQU TRACE1 00167000 TRACE2 EQU 0 00168000 STAEPARM EQU 0 00169000 STAEPFX EQU STAEPARM 00170000 IOCSTR EQU 0 00171000 IOCDSO EQU IOCSTR+13 00172000 IOCRFM EQU IOCSTR+14 00173000 IOCMAC EQU IOCSTR+15 00174000 IOCMSG EQU IOCSTR+16 00175000 OPNAGL EQU 0 00176000 OPNOPT EQU OPNAGL 00177000 OPNRFM EQU OPNAGL+1 00178000 OPNTYP EQU OPNAGL+2 00179000 OPNMOD EQU OPNAGL+3 00180000 UVOLLIST EQU 0 00181000 UVOLENT EQU UVOLLIST+2 00182000 DARGLIST EQU 0 00183000 DARGSTID EQU DARGLIST+8 00184000 DARGARY EQU DARGLIST+20 00185000 DARGINS EQU DARGARY 00186000 DARGINL EQU DARGARY+2 00187000 FMTLIST EQU 0 00188000 FMTFLGS EQU FMTLIST 00189000 FMTSPF EQU FMTLIST+2 00190000 FMTRFNO EQU FMTSPF 00191000 FMTILEN EQU FMTRFNO 00192000 FMTIOFF EQU FMTLIST+4 00193000 FMTTRBC EQU FMTIOFF 00194000 FMTSTO EQU FMTTRBC 00195000 FMTOCOL EQU FMTLIST+6 00196000 FMTCNVF EQU FMTLIST+10 00197000 ICKDB010 EQU 0 00198000 DMPITM EQU 0 00199000 DMPARY EQU 0 00200000 DMPTRM EQU 0 00201000 ICKDVCL0 EQU 0 00202000 ICKDVIN0 EQU 0 00203000 ICKDVON0 EQU 0 00204000 ICKDVOP0 EQU 0 00205000 ICKIOCL0 EQU 0 00206000 ICKIOGT0 EQU 0 00207000 ICKIOIT0 EQU 0 00208000 ICKIOOP0 EQU 0 00209000 ICKIOPT0 EQU 0 00210000 ICKIOTM0 EQU 0 00211000 ICKSACL0 EQU 0 00212000 ICKSADE0 EQU 0 00213000 ICKSAFP0 EQU 0 00214000 ICKSAFS0 EQU 0 00215000 ICKSAGP0 EQU 0 00216000 ICKSAGS0 EQU 0 00217000 ICKSALD0 EQU 0 00218000 ICKSAPR0 EQU 0 00219000 ICKSASC0 EQU 0 00220000 ICKSASN0 EQU 0 00221000 ICKSAST0 EQU 0 00222000 ICKSATI0 EQU 0 00223000 ICKSAVC0 EQU 0 00224000 ICKSAWO0 EQU 0 00225000 ICKTPEA0 EQU 0 00226000 ICKTPES0 EQU 0 00227000 ICKTPPR0 EQU 0 00228000 ICKTPRE0 EQU 0 00229000 ICKTPRS0 EQU 0 00230000 LISTTEST EQU 0 00231000 NEWERID1 EQU 5 00232000 NEWERID2 EQU 5 00233000 GDTTBL EQU 0 00234000 GDTTR1 EQU GDTTBL+8 00235000 GDTTR2 EQU GDTTBL+12 00236000 GDTDIN EQU GDTTBL+44 00237000 GDTDOP EQU GDTTBL+48 00238000 GDTDBG EQU GDTTBL+52 00239000 GDTDVO EQU GDTTBL+56 00240000 GDTPRT EQU GDTTBL+60 00241000 GDTESS EQU GDTTBL+64 00242000 GDTESA EQU GDTTBL+68 00243000 GDTRST EQU GDTTBL+72 00244000 GDTRES EQU GDTTBL+76 00245000 GDTCAL EQU GDTTBL+80 00246000 GDTGSP EQU GDTTBL+84 00247000 GDTFSP EQU GDTTBL+88 00248000 GDTGPL EQU GDTTBL+92 00249000 GDTFPL EQU GDTTBL+96 00250000 GDTLOD EQU GDTTBL+100 00251000 GDTDEL EQU GDTTBL+104 00252000 GDTPRL EQU GDTTBL+108 00253000 GDTEPL EQU GDTTBL+112 00254000 GDTTIM EQU GDTTBL+116 00255000 GDTIIO EQU GDTTBL+120 00256000 GDTTIO EQU GDTTBL+124 00257000 GDTOPN EQU GDTTBL+136 00258000 GDTCLS EQU GDTTBL+140 00259000 GDTGET EQU GDTTBL+144 00260000 GDTPUT EQU GDTTBL+148 00261000 GDTSNP EQU GDTTBL+160 00262000 GDTWTO EQU GDTTBL+168 00263000 GDTSCR EQU GDTTBL+172 00264000 GDTVCK EQU GDTTBL+176 00265000 GDTDVC EQU GDTTBL+180 00266000 GDTSTE EQU GDTTBL+188 00267000 N EQU 0 00268000 UVOLN EQU 0 00269000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00270000 GDTCVR EQU GDTTBL+184 00271000 GDTSPR EQU GDTTBL+164 00272000 GDTABH EQU GDTTBL+156 00273000 GDTABT EQU GDTTBL+152 00274000 GDTTOH EQU GDTTBL+132 00275000 GDTRIP EQU GDTTBL+128 00276000 GDTDVH EQU GDTTBL+40 00277000 GDTIOH EQU GDTTBL+36 00278000 GDTSAH EQU GDTTBL+32 00279000 GDTTPH EQU GDTTBL+28 00280000 GDTRIH EQU GDTTBL+24 00281000 GDTSTH EQU GDTTBL+20 00282000 GDTDBH EQU GDTTBL+16 00283000 GDTPRM EQU GDTTBL+4 00284000 GDTHDR EQU GDTTBL 00285000 @NM00017 EQU DMPARY+15 00286000 DMPARYTP EQU DMPARY+14 00287000 DMPARYEX EQU DMPARY+12 00288000 DMPARYIC EQU DMPARY+10 00289000 DMPARYSZ EQU DMPARY+8 00290000 DMPARYNM EQU DMPARY 00291000 @NM00016 EQU DMPITM+15 00292000 DMPITMTP EQU DMPITM+14 00293000 DMPITMLN EQU DMPITM+12 00294000 DMPITMPT EQU DMPITM+8 00295000 DMPITMNM EQU DMPITM 00296000 @NM00015 EQU FMTCNVF+1 00297000 FMTBS EQU FMTCNVF+1 00298000 FMTSS EQU FMTCNVF+1 00299000 FMTAL EQU FMTCNVF+1 00300000 FMTZS EQU FMTCNVF+1 00301000 @NM00014 EQU FMTCNVF 00302000 FMTPU EQU FMTCNVF 00303000 FMTBD EQU FMTCNVF 00304000 FMTBHD EQU FMTCNVF 00305000 FMTBHA EQU FMTCNVF 00306000 FMTBH EQU FMTCNVF 00307000 FMTOLEN EQU FMTLIST+8 00308000 FMTRIO EQU FMTOCOL 00309000 FMTSPT EQU FMTSTO 00310000 FMTSTL EQU FMTILEN 00311000 @NM00013 EQU FMTFLGS+1 00312000 FMTHDF EQU FMTFLGS 00313000 FMTDFF EQU FMTFLGS 00314000 FMTSTF EQU FMTFLGS 00315000 FMTREPF EQU FMTFLGS 00316000 FMTBDF EQU FMTFLGS 00317000 FMTIDF EQU FMTFLGS 00318000 FMTSCF EQU FMTFLGS 00319000 FMTEOLF EQU FMTFLGS 00320000 DARGDTM EQU DARGARY+4 00321000 DARGPCT EQU DARGINL 00322000 DARGREP EQU DARGINS 00323000 @NM00012 EQU DARGLIST+19 00324000 DARGIND EQU DARGLIST+18 00325000 DARGRETL EQU DARGLIST+16 00326000 DARGCNT EQU DARGLIST+14 00327000 DARGILP EQU DARGLIST+12 00328000 DARGSENT EQU DARGSTID+3 00329000 DARGSMOD EQU DARGSTID 00330000 DARGRETP EQU DARGLIST+4 00331000 DARGDBP EQU DARGLIST 00332000 UVOLVOL EQU UVOLENT+4 00333000 UVOLDEV EQU UVOLENT 00334000 UVOLCNT EQU UVOLLIST 00335000 OPNRSVD EQU OPNAGL+28 00336000 OPNVOL EQU OPNAGL+24 00337000 OPNBLK EQU OPNAGL+20 00338000 OPNREC EQU OPNAGL+16 00339000 OPNDSN EQU OPNAGL+12 00340000 OPNDDN EQU OPNAGL+8 00341000 OPNIOC EQU OPNAGL+4 00342000 @NM00011 EQU OPNMOD 00343000 OPNMODRC EQU OPNMOD 00344000 OPNMODAC EQU OPNMOD 00345000 @NM00010 EQU OPNTYP 00346000 OPNTYPSO EQU OPNTYP 00347000 OPNTYPSI EQU OPNTYP 00348000 @NM00009 EQU OPNRFM 00349000 OPNRFMBK EQU OPNRFM 00350000 OPNRFMSF EQU OPNRFM 00351000 OPNRFMUN EQU OPNRFM 00352000 OPNRFMVR EQU OPNRFM 00353000 OPNRFMFX EQU OPNRFM 00354000 @NM00008 EQU OPNOPT 00355000 OPNOPTJM EQU OPNOPT 00356000 OPNOPTKS EQU OPNOPT 00357000 OPNOPTBK EQU OPNOPT 00358000 OPNOPTUP EQU OPNOPT 00359000 OPNOPTOT EQU OPNOPT 00360000 OPNOPTIN EQU OPNOPT 00361000 IOCEXT EQU IOCSTR+36 00362000 IOCRRN EQU IOCSTR+32 00363000 @NM00007 EQU IOCSTR+30 00364000 IOCPNM EQU IOCSTR+28 00365000 IOCCBP EQU IOCSTR+24 00366000 IOCDSN EQU IOCSTR+20 00367000 @NM00006 EQU IOCSTR+17 00368000 @NM00005 EQU IOCMSG 00369000 IOCMSGOP EQU IOCMSG 00370000 IOCMACPA EQU IOCMAC 00371000 @NM00004 EQU IOCMAC 00372000 IOCMACBK EQU IOCMAC 00373000 IOCMACUP EQU IOCMAC 00374000 IOCMACOT EQU IOCMAC 00375000 IOCMACIN EQU IOCMAC 00376000 @NM00003 EQU IOCRFM 00377000 IOCRFMBK EQU IOCRFM 00378000 IOCRFMSF EQU IOCRFM 00379000 IOCRFMUN EQU IOCRFM 00380000 IOCRFMVR EQU IOCRFM 00381000 IOCRFMFX EQU IOCRFM 00382000 @NM00002 EQU IOCDSO 00383000 IOCDSOPS EQU IOCDSO 00384000 IOCKYL EQU IOCSTR+12 00385000 IOCTRN EQU IOCSTR+8 00386000 IOCDLN EQU IOCSTR+4 00387000 IOCDAD EQU IOCSTR 00388000 STAEWORK EQU STAEPARM+32 00389000 STARPTR EQU STAEPFX+28 00390000 STASPTR EQU STAEPFX+24 00391000 STALEN EQU STAEPFX+20 00392000 STAID EQU STAEPFX+16 00393000 STAEPA EQU STAEPFX+12 00394000 STAGDT EQU STAEPFX+8 00395000 STABPTR EQU STAEPFX+4 00396000 STAFPTR EQU STAEPFX 00397000 NEWID2 EQU TRACE2+95 00398000 OLDERID2 EQU TRACE2 00399000 NEWID1 EQU TRACE1+95 00400000 CALLID EQU OLDERID1+90 00401000 @NM00001 EQU OLDERID1 00402000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 00403000 @ENDDATA EQU * 00404000 END ICKVLBL,(C'PLS1822',0701,78192) 00405000