MACRO 00050038 &NAME ACB &DDNAME=,&EXLST=0,&MACRF=, C00100038 &JFCB=0,&BUFND=0,&BUFNI=0,&PASSWD=0, C00150038 &BLKSIZE=0,&LRECL=0,&BUFSP=0, C00200038 &CCTYPE=,&STRNO=1,&CATALOG=NO, C00250040 &BSTRNO=0,&MAREA=0,&MLEN=0,&CRA=, C00300040 &AM=,&APPLID=0,&USERPTR=0, C00350040 &PARMS=,&PARM2=,&PARM3= 00400040 .* 00450040 .* CHANGE LEVEL = 0 @ZA34940 00500040 .* DATE OF LAST CHANGE = 3 OCT 78 ( 78*276 ) @ZA34940 00550040 .* 00600040 .* FUNCTION - THIS MACRO CONTAINS THE PROTOTYPE STATEMENT 00650040 .* FOR THE ACB MACRO. 00700040 .* THE FUNCTION OF THIS MACRO IS TO DETERMINE 00750040 .* IF THE PROGRAM ISSUING THE ACB MACRO IS 00800040 .* A VTAM USER OR A VSAM USER AND TO INVOKE 00850040 .* MACRO ACBVS FOR VSAM OR ISTACB1 FOR VTAM. 00900040 .* 00950040 .* CHANGE ACTIVITY 01000040 .* CBMM SPLIT SUPPORT @ZA34940 01050040 .* 01100040 AIF ('&AM' EQ 'VTAM').VTACB IS IT VTAM 01150040 AIF ('&AM' EQ 'VSAM').VSACB IS IT VSAM 01200040 AIF ('&AM' EQ '').VSACB IF NULL, DEFAULT VSAM 01250040 .* 01300040 IDAVSERR 3,AM,&AM ISSUE ERROR MSG 01350040 MEXIT 01400040 .* 01450040 .VTACB ANOP 01500040 &NAME ISTACB1 DDNAME=&DDNAME,EXLST=&EXLST, C01550040 MACRF=&MACRF,JFCB=&JFCB,BUFND=&BUFND, C01600040 BUFNI=&BUFNI,PASSWD=&PASSWD, C01650040 BLKSIZE=&BLKSIZE,LRECL=&LRECL, C01700040 BUFSP=&BUFSP,CCTYPE=&CCTYPE, C01750040 STRNO=&STRNO,CATALOG=&CATALOG, C01800040 BSTRNO=&BSTRNO,MAREA=&MAREA,MLEN=&MLEN, C01850040 CRA=&CRA,AM=&AM,APPLID=&APPLID, C01900040 USERPTR=&USERPTR, C01950040 PARMS=&PARMS,PARM2=&PARM2,PARM3=&PARM3 02000040 .* 02050040 MEXIT 02100040 .* 02150040 .* 02200040 .VSACB ANOP 02250040 &NAME ACBVS DDNAME=&DDNAME,EXLST=&EXLST, C02300040 MACRF=&MACRF,JFCB=&JFCB,BUFND=&BUFND, C02350040 BUFNI=&BUFNI,PASSWD=&PASSWD, C02400040 BLKSIZE=&BLKSIZE,LRECL=&LRECL, C02450040 BUFSP=&BUFSP,CCTYPE=&CCTYPE, C02500040 STRNO=&STRNO,CATALOG=&CATALOG, C02550040 BSTRNO=&BSTRNO,MAREA=&MAREA,MLEN=&MLEN, C02600040 CRA=&CRA,AM=&AM,APPLID=&APPLID, C02650040 USERPTR=&USERPTR, C02700040 PARMS=&PARMS,PARM2=&PARM2,PARM3=&PARM3 02750040 .* 02800040 MEND 02850040