MACRO 00100002 &NAME VMSGGEN &SYS=,&TBLNO=,&COMPID=,&MCSDFLT=,&RTGDFLT=,&DSCDFLT=, X00150002 &MLWDFLT= 00200002 GBLC &VSYS,&VCID 00250002 GBLA &VTBL,&VMCS,&VRTG,&VDSC,&VMLW,&MMCNT1,&MMCNT2,&MMCNT3 00300002 &VCID SETC 'IST' 00350002 &MMCNT1 SETA 0 00400002 &MMCNT3 SETA 0 00450002 &VTBL SETA 11 00500002 &VMCS SETA 0 00550002 &VRTG SETA 8 00600002 &VDSC SETA 5 00650002 &VMLW SETA 0 00700002 .VMCKSYS ANOP 00750002 AIF ('&SYS' EQ '').VMTERM IS THERE A SYS PARMETER 00800002 AIF ('&SYS' EQ 'EDOS').VMEDOS 00850002 AIF ('&SYS' EQ 'VS1').VMVS1 00900002 AIF ('&SYS' EQ 'VS2').VMVS2 00950002 .VMTERM ANOP 01000002 MNOTE 8,'SYS=(&SYS) NOT VALID PARMETER ABORT PROCESSING' 01050002 &VSYS SETC 'ABORT' 01100002 AGO .VMEND 01150002 .VMEDOS ANOP 01200002 &VSYS SETC 'E' 01250002 AGO .VMCKTBL 01300002 .VMVS1 ANOP 01350002 &VSYS SETC 'A' 01400002 AGO .VMCKTBL 01450002 .VMVS2 ANOP 01500002 &VSYS SETC 'M' 01550002 AGO .VMCKTBL 01600002 .VMCKTBL ANOP 01650002 AIF ('&TBLNO' EQ '').VMCKCID IS THERE A TABLE PARMETER 01700002 &VTBL SETA &TBLNO+1 01750002 .VMCKCID ANOP 01800002 &MMCNT2 SETA &VTBL 01850002 AIF ('&COMPID' EQ '').VMCKMCS IS THERE A COMPONENT ID 01900002 &VCID SETC '&COMPID' 01950002 .VMCKMCS ANOP 02000002 AIF ('&MCSDFLT' EQ '').VMCKRTG IS THERE A MCS PARMETER 02050002 &VMCS SETA &MCSDFLT 02100002 .VMCKRTG ANOP 02150002 AIF ('&RTGDFLT' EQ '').VMCKDSC IS THERE A RTG PARMETER 02200002 &VRTG SETA &RTGDFLT 02250002 .VMCKDSC ANOP 02300002 AIF ('&DSCDFLT' EQ '').VMCKMLW IS THERE A DSC PARMETER 02350002 &VDSC SETA &DSCDFLT 02400002 .VMCKMLW ANOP 02450002 AIF ('&MLWDFLT' EQ '').VMEND IS THERE A MLW PARMETER 02500002 &VMLW SETA &MLWDFLT 02550002 .VMEND ANOP 02600002 MEND 02650002