TITLE '********** ICKCL01: CREATE 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 ICKCL01 CSECT , 0002 00013000 @MAINENT DS 0H 0002 00014000 USING *,@15 0002 00015000 B @PROLOG 0002 00016000 DC AL1(16) 0002 00017000 DC C'ICKCL01 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(28),0(@01) 0002 00033000 * 0177 00034000 EJECT 00035000 * 0178 00036000 */***** B E G I N E X E C U T I O N *****************************/ 00037000 * 0178 00038000 * IF GDTDBG = NULLPTR 0178 00039000 * THEN; 0178 00040000 L @10,@PC00001 0178 00041000 L @10,GDTDBG(,@10) 0178 00042000 LTR @10,@10 0178 00043000 BZ @RT00178 0178 00044000 * ELSE 0180 00045000 * CALL ICKDB010(GDTTBL,'CL00'); 0180 00046000 * 0180 00047000 L @10,@PC00001 0180 00048000 ST @10,@AL00001 0180 00049000 LA @15,@CC00506 0180 00050000 ST @15,@AL00001+4 0180 00051000 MVI @AL00001+4,X'80' 0180 00052000 L @15,GDTDBG(,@10) 0180 00053000 LA @01,@AL00001 0180 00054000 BALR @14,@15 0180 00055000 * RESPECIFY VOL1 BASED(ADDR(VLBLREC)); 0181 00056000 @RT00178 DS 0H 0182 00057000 * CONDCODE = SUCCESS; 0182 00058000 * 0182 00059000 SLR @10,@10 0182 00060000 L @15,@PC00001+24 0182 00061000 ST @10,CONDCODE(,@15) 0182 00062000 */* BUILD EMPTY VOLUME LABEL IMAGE */ 00063000 * VOL1 = ' '; 0183 00064000 LA @15,VLBLREC 0183 00065000 MVI VOL1+1(@15),C' ' 0183 00066000 MVC VOL1+2(78,@15),VOL1+1(@15) 0183 00067000 MVI VOL1(@15),C' ' 0183 00068000 * VOL1ID = 'VOL'; 0184 00069000 MVC VOL1ID(3,@15),@CC00511 0184 00070000 * VOL1NUM = '1'; 0185 00071000 * 0185 00072000 MVI VOL1NUM(@15),C'1' 0185 00073000 */* PLACE INPUT VOLUME SERIAL IN VOLUME LABEL IMAGE */ 00074000 * VOL1SER = VOLSER; 0186 00075000 * 0186 00076000 L @14,@PC00001+8 0186 00077000 MVC VOL1SER(6,@15),VOLSER(@14) 0186 00078000 */* PLACE OWNER-ID IN VOLUME LABEL IMAGE */ 00079000 * VOL1OWNR = OWNERID; 0187 00080000 * 0187 00081000 L @14,@PC00001+12 0187 00082000 MVC VOL1OWNR(14,@15),OWNERID(@14) 0187 00083000 */* PLACE VTOC LOCATION IN VOLUME LABEL IMAGE */ 00084000 * VTOCTRK = VTOCLOC; 0188 00085000 L @14,@PC00001+16 0188 00086000 MVC VTOCTRK(4,@15),VTOCLOC(@14) 0188 00087000 * VTOCREC = 1; 0189 00088000 * 0189 00089000 MVI VTOCREC(@15),X'01' 0189 00090000 */* IF USER VOLUME LABELS REQUESTED */ 00091000 * IF LABELS > 0 0190 00092000 * 0190 00093000 */* THEN SET ACCESSIBILITY BYTE */ 00094000 * THEN VOL1ACC = 'F0'X | LABELS; 0190 00095000 * 0190 00096000 L @14,@PC00001+20 0190 00097000 L @14,LABELS(,@14) 0190 00098000 CR @14,@10 0190 00099000 BNH @RF00190 0190 00100000 O @14,@CF00513 0191 00101000 STC @14,VOL1ACC(,@15) 0191 00102000 */* WRITE_VOLUME_LABEL */ 00103000 * CALL ICKWL01(GDTTBL 0192 00104000 * ,VOLIB 0192 00105000 * ,VOL1 0192 00106000 * ,LABELS 0192 00107000 * ,RETCODE); 0192 00108000 * 0192 00109000 @RF00190 L @10,@PC00001 0192 00110000 ST @10,@AL00001 0192 00111000 L @10,@PC00001+4 0192 00112000 ST @10,@AL00001+4 0192 00113000 LA @10,VLBLREC 0192 00114000 ST @10,@AL00001+8 0192 00115000 L @10,@PC00001+20 0192 00116000 ST @10,@AL00001+12 0192 00117000 LA @10,RETCODE 0192 00118000 ST @10,@AL00001+16 0192 00119000 L @15,@CV00514 0192 00120000 LA @01,@AL00001 0192 00121000 BALR @14,@15 0192 00122000 */* IF NOT SUCCESSFUL */ 00123000 * IF RETCODE ^= SUCCESS 0193 00124000 * 0193 00125000 */* THEN SET ERROR CODE (CONDCODE=1) */ 00126000 * THEN 0193 00127000 L @10,RETCODE 0193 00128000 LTR @10,@10 0193 00129000 BZ @RF00193 0193 00130000 * DO; 0194 00131000 * 0194 00132000 * CONDCODE = NWTVLBL; 0195 00133000 L @10,@PC00001+24 0195 00134000 MVC CONDCODE(4,@10),@CF00169 0195 00135000 * END; 0196 00136000 * 0196 00137000 */* END-PROCEDURE CREATE_VOLUME_LABEL */ 00138000 * IF GDTDBG = NULLPTR 0197 00139000 * THEN; 0197 00140000 @RF00193 L @10,@PC00001 0197 00141000 L @10,GDTDBG(,@10) 0197 00142000 LTR @10,@10 0197 00143000 BZ @RT00197 0197 00144000 * ELSE 0199 00145000 * CALL ICKDB010(GDTTBL,'CL99'); 0199 00146000 L @10,@PC00001 0199 00147000 ST @10,@AL00001 0199 00148000 LA @15,@CC00515 0199 00149000 ST @15,@AL00001+4 0199 00150000 MVI @AL00001+4,X'80' 0199 00151000 L @15,GDTDBG(,@10) 0199 00152000 LA @01,@AL00001 0199 00153000 BALR @14,@15 0199 00154000 * CALL ICKSAEP0(GDTTBL,MODID); 0200 00155000 * 0200 00156000 @RT00197 L @10,@PC00001 0200 00157000 ST @10,@AL00001 0200 00158000 LA @15,MODID 0200 00159000 ST @15,@AL00001+4 0200 00160000 MVI @AL00001+4,X'80' 0200 00161000 L @15,GDTEPL(,@10) 0200 00162000 LA @01,@AL00001 0200 00163000 BALR @14,@15 0200 00164000 * END ICKCL01 0201 00165000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 00166000 */*%INCLUDE SYSLIB (DMSDF01 ) * 00167000 */*%INCLUDE SYSLIB (DMSDF00 ) * 00168000 */*@INCLUDE SYSLIB (DMSDF02 ) * 00169000 */*%INCLUDE SYSLIB (DMSDF08 ) * 00170000 *; 0201 00171000 @DATA DS 0H 00172000 @DATD DSECT 00173000 DS 0F 00174000 @SA00001 DS 18F 00175000 @PC00001 DS 7F 00176000 @AL00001 DS 5A 00177000 @ZTEMPS DS C 00178000 @ZTEMPND EQU * 00179000 @ZLEN EQU @ZTEMPND-@ZTEMPS 00180000 ICKCL01 CSECT 00181000 DS 0F 00182000 @CF00169 DC F'1' 00183000 @CF00513 DC XL4'F0' 00184000 @DATD DSECT 00185000 DS 0D 00186000 LISTSCAN DS A 00187000 IOCSPTR DS A 00188000 OPNPTR DS A 00189000 DDSTRU DS A 00190000 FSADDR DS A 00191000 DMPINDEX DS A 00192000 RETCODE DS F 00193000 LISTPTR DS A 00194000 SETRC DS H 00195000 TESTRC DS H 00196000 LISTLN DS FL1 00197000 VLBLREC DS CL80 00198000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00199000 @ENDDATD EQU * 00200000 ICKCL01 CSECT 00201000 DS 0F 00202000 @SIZDATD DC AL1(0) 00203000 DC AL3(@ENDDATD-@DATD) 00204000 @CV00514 DC V(ICKWL01) 00205000 DS 0D 00206000 @CC00506 DC C'CL00' 00207000 @CC00515 DC C'CL99' 00208000 @CC00511 DC C'VOL' 00209000 MODID DC CL4'CL01' 00210000 PTCHCL01 DS CL256 00211000 ORG PTCHCL01 00212000 @NM00019 DC 256X'00' 00213000 ORG PTCHCL01+256 00214000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00215000 @01 EQU 01 00216000 @02 EQU 02 00217000 @03 EQU 03 00218000 @04 EQU 04 00219000 @05 EQU 05 00220000 @06 EQU 06 00221000 @07 EQU 07 00222000 @08 EQU 08 00223000 @09 EQU 09 00224000 @10 EQU 10 00225000 @11 EQU 11 00226000 @12 EQU 12 00227000 @13 EQU 13 00228000 @14 EQU 14 00229000 @15 EQU 15 00230000 REG12 EQU @12 00231000 REG0 EQU @00 00232000 REG1 EQU @01 00233000 REG10 EQU @10 00234000 REG11 EQU @11 00235000 REG13 EQU @13 00236000 REG14 EQU @14 00237000 REG15 EQU @15 00238000 REG2 EQU @02 00239000 REG3 EQU @03 00240000 REG4 EQU @04 00241000 REG5 EQU @05 00242000 REG6 EQU @06 00243000 REG7 EQU @07 00244000 REG8 EQU @08 00245000 REG9 EQU @09 00246000 RTNREG EQU @15 00247000 ICKSAEP0 EQU 0 00248000 TRACE1 EQU 0 00249000 OLDERID1 EQU TRACE1 00250000 TRACE2 EQU 0 00251000 STAEPARM EQU 0 00252000 STAEPFX EQU STAEPARM 00253000 IOCSTR EQU 0 00254000 IOCDSO EQU IOCSTR+13 00255000 IOCRFM EQU IOCSTR+14 00256000 IOCMAC EQU IOCSTR+15 00257000 IOCMSG EQU IOCSTR+16 00258000 OPNAGL EQU 0 00259000 OPNOPT EQU OPNAGL 00260000 OPNRFM EQU OPNAGL+1 00261000 OPNTYP EQU OPNAGL+2 00262000 OPNMOD EQU OPNAGL+3 00263000 UVOLLIST EQU 0 00264000 UVOLENT EQU UVOLLIST+2 00265000 DARGLIST EQU 0 00266000 DARGSTID EQU DARGLIST+8 00267000 DARGARY EQU DARGLIST+20 00268000 DARGINS EQU DARGARY 00269000 DARGINL EQU DARGARY+2 00270000 FMTLIST EQU 0 00271000 FMTFLGS EQU FMTLIST 00272000 FMTSPF EQU FMTLIST+2 00273000 FMTRFNO EQU FMTSPF 00274000 FMTILEN EQU FMTRFNO 00275000 FMTIOFF EQU FMTLIST+4 00276000 FMTTRBC EQU FMTIOFF 00277000 FMTSTO EQU FMTTRBC 00278000 FMTOCOL EQU FMTLIST+6 00279000 FMTCNVF EQU FMTLIST+10 00280000 ICKDB010 EQU 0 00281000 DMPITM EQU 0 00282000 DMPARY EQU 0 00283000 VOL1 EQU 0 00284000 VOL1ID EQU VOL1 00285000 VOL1NUM EQU VOL1+3 00286000 VOL1SER EQU VOL1+4 00287000 VOL1ACC EQU VOL1+10 00288000 VOL1VTOC EQU VOL1+11 00289000 VOL1OWNR EQU VOL1+37 00290000 DMPTRM EQU 0 00291000 ICKDVCL0 EQU 0 00292000 ICKDVIN0 EQU 0 00293000 ICKDVON0 EQU 0 00294000 ICKDVOP0 EQU 0 00295000 ICKIOCL0 EQU 0 00296000 ICKIOGT0 EQU 0 00297000 ICKIOIT0 EQU 0 00298000 ICKIOOP0 EQU 0 00299000 ICKIOPT0 EQU 0 00300000 ICKIOTM0 EQU 0 00301000 ICKSACL0 EQU 0 00302000 ICKSADE0 EQU 0 00303000 ICKSAFP0 EQU 0 00304000 ICKSAFS0 EQU 0 00305000 ICKSAGP0 EQU 0 00306000 ICKSAGS0 EQU 0 00307000 ICKSALD0 EQU 0 00308000 ICKSAPR0 EQU 0 00309000 ICKSASC0 EQU 0 00310000 ICKSASN0 EQU 0 00311000 ICKSAST0 EQU 0 00312000 ICKSATI0 EQU 0 00313000 ICKSAVC0 EQU 0 00314000 ICKSAWO0 EQU 0 00315000 ICKTPEA0 EQU 0 00316000 ICKTPES0 EQU 0 00317000 ICKTPPR0 EQU 0 00318000 ICKTPRE0 EQU 0 00319000 ICKTPRS0 EQU 0 00320000 LISTTEST EQU 0 00321000 NEWERID1 EQU 5 00322000 NEWERID2 EQU 5 00323000 GDTTBL EQU 0 00324000 GDTTR1 EQU GDTTBL+8 00325000 GDTTR2 EQU GDTTBL+12 00326000 GDTDIN EQU GDTTBL+44 00327000 GDTDOP EQU GDTTBL+48 00328000 GDTDBG EQU GDTTBL+52 00329000 GDTDVO EQU GDTTBL+56 00330000 GDTPRT EQU GDTTBL+60 00331000 GDTESS EQU GDTTBL+64 00332000 GDTESA EQU GDTTBL+68 00333000 GDTRST EQU GDTTBL+72 00334000 GDTRES EQU GDTTBL+76 00335000 GDTCAL EQU GDTTBL+80 00336000 GDTGSP EQU GDTTBL+84 00337000 GDTFSP EQU GDTTBL+88 00338000 GDTGPL EQU GDTTBL+92 00339000 GDTFPL EQU GDTTBL+96 00340000 GDTLOD EQU GDTTBL+100 00341000 GDTDEL EQU GDTTBL+104 00342000 GDTPRL EQU GDTTBL+108 00343000 GDTEPL EQU GDTTBL+112 00344000 GDTTIM EQU GDTTBL+116 00345000 GDTIIO EQU GDTTBL+120 00346000 GDTTIO EQU GDTTBL+124 00347000 GDTOPN EQU GDTTBL+136 00348000 GDTCLS EQU GDTTBL+140 00349000 GDTGET EQU GDTTBL+144 00350000 GDTPUT EQU GDTTBL+148 00351000 GDTSNP EQU GDTTBL+160 00352000 GDTWTO EQU GDTTBL+168 00353000 GDTSCR EQU GDTTBL+172 00354000 GDTVCK EQU GDTTBL+176 00355000 GDTDVC EQU GDTTBL+180 00356000 GDTSTE EQU GDTTBL+188 00357000 VOLIB EQU 0 00358000 VOLSER EQU 0 00359000 OWNERID EQU 0 00360000 VTOCLOC EQU 0 00361000 LABELS EQU 0 00362000 CONDCODE EQU 0 00363000 @NM00018 EQU VOL1VTOC 00364000 VTOCTRK EQU @NM00018 00365000 VTOCREC EQU @NM00018+4 00366000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00367000 GDTCVR EQU GDTTBL+184 00368000 GDTSPR EQU GDTTBL+164 00369000 GDTABH EQU GDTTBL+156 00370000 GDTABT EQU GDTTBL+152 00371000 GDTTOH EQU GDTTBL+132 00372000 GDTRIP EQU GDTTBL+128 00373000 GDTDVH EQU GDTTBL+40 00374000 GDTIOH EQU GDTTBL+36 00375000 GDTSAH EQU GDTTBL+32 00376000 GDTTPH EQU GDTTBL+28 00377000 GDTRIH EQU GDTTBL+24 00378000 GDTSTH EQU GDTTBL+20 00379000 GDTDBH EQU GDTTBL+16 00380000 GDTPRM EQU GDTTBL+4 00381000 GDTHDR EQU GDTTBL 00382000 VOL1STDV EQU VOL1+79 00383000 @NM00021 EQU VOL1+51 00384000 VOL1OLDO EQU VOL1OWNR+4 00385000 VOL1OEXT EQU VOL1OWNR 00386000 @NM00020 EQU VOL1+16 00387000 @NM00017 EQU DMPARY+15 00388000 DMPARYTP EQU DMPARY+14 00389000 DMPARYEX EQU DMPARY+12 00390000 DMPARYIC EQU DMPARY+10 00391000 DMPARYSZ EQU DMPARY+8 00392000 DMPARYNM EQU DMPARY 00393000 @NM00016 EQU DMPITM+15 00394000 DMPITMTP EQU DMPITM+14 00395000 DMPITMLN EQU DMPITM+12 00396000 DMPITMPT EQU DMPITM+8 00397000 DMPITMNM EQU DMPITM 00398000 @NM00015 EQU FMTCNVF+1 00399000 FMTBS EQU FMTCNVF+1 00400000 FMTSS EQU FMTCNVF+1 00401000 FMTAL EQU FMTCNVF+1 00402000 FMTZS EQU FMTCNVF+1 00403000 @NM00014 EQU FMTCNVF 00404000 FMTPU EQU FMTCNVF 00405000 FMTBD EQU FMTCNVF 00406000 FMTBHD EQU FMTCNVF 00407000 FMTBHA EQU FMTCNVF 00408000 FMTBH EQU FMTCNVF 00409000 FMTOLEN EQU FMTLIST+8 00410000 FMTRIO EQU FMTOCOL 00411000 FMTSPT EQU FMTSTO 00412000 FMTSTL EQU FMTILEN 00413000 @NM00013 EQU FMTFLGS+1 00414000 FMTHDF EQU FMTFLGS 00415000 FMTDFF EQU FMTFLGS 00416000 FMTSTF EQU FMTFLGS 00417000 FMTREPF EQU FMTFLGS 00418000 FMTBDF EQU FMTFLGS 00419000 FMTIDF EQU FMTFLGS 00420000 FMTSCF EQU FMTFLGS 00421000 FMTEOLF EQU FMTFLGS 00422000 DARGDTM EQU DARGARY+4 00423000 DARGPCT EQU DARGINL 00424000 DARGREP EQU DARGINS 00425000 @NM00012 EQU DARGLIST+19 00426000 DARGIND EQU DARGLIST+18 00427000 DARGRETL EQU DARGLIST+16 00428000 DARGCNT EQU DARGLIST+14 00429000 DARGILP EQU DARGLIST+12 00430000 DARGSENT EQU DARGSTID+3 00431000 DARGSMOD EQU DARGSTID 00432000 DARGRETP EQU DARGLIST+4 00433000 DARGDBP EQU DARGLIST 00434000 UVOLVOL EQU UVOLENT+4 00435000 UVOLDEV EQU UVOLENT 00436000 UVOLCNT EQU UVOLLIST 00437000 OPNRSVD EQU OPNAGL+28 00438000 OPNVOL EQU OPNAGL+24 00439000 OPNBLK EQU OPNAGL+20 00440000 OPNREC EQU OPNAGL+16 00441000 OPNDSN EQU OPNAGL+12 00442000 OPNDDN EQU OPNAGL+8 00443000 OPNIOC EQU OPNAGL+4 00444000 @NM00011 EQU OPNMOD 00445000 OPNMODRC EQU OPNMOD 00446000 OPNMODAC EQU OPNMOD 00447000 @NM00010 EQU OPNTYP 00448000 OPNTYPSO EQU OPNTYP 00449000 OPNTYPSI EQU OPNTYP 00450000 @NM00009 EQU OPNRFM 00451000 OPNRFMBK EQU OPNRFM 00452000 OPNRFMSF EQU OPNRFM 00453000 OPNRFMUN EQU OPNRFM 00454000 OPNRFMVR EQU OPNRFM 00455000 OPNRFMFX EQU OPNRFM 00456000 @NM00008 EQU OPNOPT 00457000 OPNOPTJM EQU OPNOPT 00458000 OPNOPTKS EQU OPNOPT 00459000 OPNOPTBK EQU OPNOPT 00460000 OPNOPTUP EQU OPNOPT 00461000 OPNOPTOT EQU OPNOPT 00462000 OPNOPTIN EQU OPNOPT 00463000 IOCEXT EQU IOCSTR+36 00464000 IOCRRN EQU IOCSTR+32 00465000 @NM00007 EQU IOCSTR+30 00466000 IOCPNM EQU IOCSTR+28 00467000 IOCCBP EQU IOCSTR+24 00468000 IOCDSN EQU IOCSTR+20 00469000 @NM00006 EQU IOCSTR+17 00470000 @NM00005 EQU IOCMSG 00471000 IOCMSGOP EQU IOCMSG 00472000 IOCMACPA EQU IOCMAC 00473000 @NM00004 EQU IOCMAC 00474000 IOCMACBK EQU IOCMAC 00475000 IOCMACUP EQU IOCMAC 00476000 IOCMACOT EQU IOCMAC 00477000 IOCMACIN EQU IOCMAC 00478000 @NM00003 EQU IOCRFM 00479000 IOCRFMBK EQU IOCRFM 00480000 IOCRFMSF EQU IOCRFM 00481000 IOCRFMUN EQU IOCRFM 00482000 IOCRFMVR EQU IOCRFM 00483000 IOCRFMFX EQU IOCRFM 00484000 @NM00002 EQU IOCDSO 00485000 IOCDSOPS EQU IOCDSO 00486000 IOCKYL EQU IOCSTR+12 00487000 IOCTRN EQU IOCSTR+8 00488000 IOCDLN EQU IOCSTR+4 00489000 IOCDAD EQU IOCSTR 00490000 STAEWORK EQU STAEPARM+32 00491000 STARPTR EQU STAEPFX+28 00492000 STASPTR EQU STAEPFX+24 00493000 STALEN EQU STAEPFX+20 00494000 STAID EQU STAEPFX+16 00495000 STAEPA EQU STAEPFX+12 00496000 STAGDT EQU STAEPFX+8 00497000 STABPTR EQU STAEPFX+4 00498000 STAFPTR EQU STAEPFX 00499000 NEWID2 EQU TRACE2+95 00500000 OLDERID2 EQU TRACE2 00501000 NEWID1 EQU TRACE1+95 00502000 CALLID EQU OLDERID1+90 00503000 @NM00001 EQU OLDERID1 00504000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 00505000 @ENDDATA EQU * 00506000 END ICKCL01,(C'PLS1701',0701,78192) 00507000