hi.guys.i have to run this jcl code but i encounter this error when i run it
IKJ56700A ENTER JOBNAME CHARACTER(S) -
06.53.24 JOB00611 $HASP165 PRAK040A ENDED AT N1 - JCL ERROR CN(INTERNAL)
***
any ideas?
MACRO
&NAME DFMSD &TYPE=TEXT,&MODE=TEXT,&LANG=TEXT,&STORAGE=AUTO, X
&TIOAPFX=TEXT
MNOTE *,'TYPE=&TYPE,MODE=&MODE,LANG=&LANG,STORAGE=&STORAGE,TIOX
APFX=&TIOAPFX'
AIF ('&TYPE' NE 'MAP').NOMAP
MNOTE *,'PROCESSING TYPE=MAP'
AGO .TSTMODE
.NOMAP MNOTE 8,'TYPE=&TYPE NOT SUPPORTED'
.TSTMODE AIF ('&MODE' NE 'INPUT').BADMODE
MNOTE *,'PROCESSING MODE=INPUT'
AGO .TSTLANG
.BADMODE MNOTE 8,'MODE=&MODE NOT SUPPORTED'
.TSTLANG AIF ('&LANG' NE 'COBOL2').NOTCOB2
MNOTE *,'PREOCESSING LANG=COBOL2'
AGO .TSTSTOR
.NOTCOB2 MNOTE 8,'LANG=&LANG NOT SUPPORTED'
.TSTSTOR AIF ('&STORAGE' NE 'AUTO').NOTAUTO
MNOTE *,'PROCESSING STORAGE=AUTO'
AGO .TSTAPFX
.NOTAUTO MNOTE 8,'STORAGE=&STORAGE NOT SUPPORTED'
.TSTAPFX AIF ('&TIOAPFX' NE 'YES').BADAPFX
MNOTE *,'PROCESSING TIOAPFX=YES'
AGO .EXIT
.BADAPFX MNOTE 8,'TIOAPFX=&TIOAPFX NOT SUPPORTED'
.EXIT MEND
NSET040 DFMSD TYPE=MAP,MODE=INPUT,LANG=COBOL2,STORAGE=AUTO, *
TIOAPFX=YES
nset040 dfmsd type=map,mode=input,lang=cobol2,storage=auto, *
tioapfx=yes
END