ibm:vm370-lib:macro:sysusr.macro_src
Table of Contents
SYSUSR Source
References
- Fixes Applied : 1
- This Source Date : Tuesday, January 1, 2013
- Last Fix ID : [HRC033DK]
Source Listing
- SYSUSR.MACRO.txt
- MACRO 00010000
- SYSUSR 00020000
- .* THIS MACRO GENERATES THE LIST OF CP SYSTEM VOLUMES 00030000
- GBLC &SY$USR 00040000
- &SY$USR SETC 'HERE' ANNOUNCE PRESENCE TO SYSLOCS 00050000
- GBLA &USRCNT 00060000
- GBLB &USRTEMP 00070000
- GBLC &USRLST(255) 00080000
- LCLA &INDEX1,&INDEX2,&N 00090000
- LCLB &BIT1,&BIT2 00100000
- LCLC &VOLSER 00110000
- &INDEX1 SETA 1 00120000
- &USRCNT SETA N'&SYSLIST 00130000
- SPACE 00140000
- ENTRY DMKSYSUS,DMKSYSUC 00150000
- DMKSYSUC DC F'&USRCNT' 00160000
- DMKSYSUS DS 0F 00170000
- .LOOP1 AIF (&INDEX1 GT &USRCNT).EXIT 00180000
- ACTR 4096 00190000
- &VOLSER SETC '&SYSLIST(&INDEX1,1)' 00200000
- &INDEX2 SETA 1 00210000
- .LOOP2 AIF (&INDEX2 GE &INDEX1).CONT 00220000
- AIF ('&USRLST(&INDEX2)' EQ '&VOLSER').ERR3 00230000
- &INDEX2 SETA &INDEX2+1 00240000
- AGO .LOOP2 00250000
- .CONT AIF (&INDEX1 GT 255).ERR2 00260000
- AIF (N'&SYSLIST(&INDEX1) GT 1).ERR1 00270000
- &USRLST(&INDEX1) SETC '&VOLSER' 00280000
- DC CL6'&VOLSER',H'-1' 00290000
- &INDEX1 SETA &INDEX1+1 00300000
- AGO .LOOP1 00310000
- .EXIT AIF (&USRCNT LE 0).ERR4 00320000
- SPACE 3 00330000
- MEXIT 00340000
- .ERR1 MNOTE 8,'INVALID PREFERENCE OPTION' 00350000
- MEXIT 00360000
- .ERR2 MNOTE 8,'MORE THAN 255 VOLUMES SPECIFIED' 00370000
- MEXIT 00380000
- .ERR3 MNOTE 8,'DUPLICATE VOLUME SERIAL SPECIFIED' 00390000
- MEXIT 00400000
- .ERR4 MNOTE 0,'NO VOLUMES SPECIFIED' 00410000
- MEND 00420000
ibm/vm370-lib/macro/sysusr.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator