I was trying to allocated data id for some data sets using LMINIT, but somehow LMINIT is not being recognized. Can anyone please help me for this.
Here is my code:
XLAYDST = DPFCBPR.UNTE.COPYLIB
"ALLOC FI(INPUT1) DA('"XLAYDST"') SHR REUSE"
"ALLOC FI(OUPUT1) DA("'TEMP0001.COPYLIB'")",
"NEW RECFM(F,B) DIR(10) LRECL(80) BLKSIZE(80)" ,
"TRACKS SPACE(10,10)"
"LMINIT DATAID(INDD) DATASET("'DPFCBPR.UNTE.COPYLIB'")"
SAY 'RC IN : ' RC
"LMINIT DATAID(OUDD) DATASET("'DPFCB.TEMP0001.COPYLIB'")"
SAY 'RC OU : ' RC
"FREE FI(INPUT1 OUPUT1)"
"ALLOC FI(INPUT1) DA('"XLAYDST"') SHR REUSE"
"ALLOC FI(OUPUT1) DA("'TEMP0001.COPYLIB'")",
"NEW RECFM(F,B) DIR(10) LRECL(80) BLKSIZE(80)" ,
"TRACKS SPACE(10,10)"
"LMINIT DATAID(INDD) DATASET("'DPFCBPR.UNTE.COPYLIB'")"
SAY 'RC IN : ' RC
"LMINIT DATAID(OUDD) DATASET("'DPFCB.TEMP0001.COPYLIB'")"
SAY 'RC OU : ' RC
"FREE FI(INPUT1 OUPUT1)"
and output is coming:
IKJ56500I COMMAND LMINIT NOT FOUND
32 *-* "LMINIT DATAID(INDD) DATASET("'DPFCBPR.UNTE.COPYLIB'")"
+++ RC(-3) +++
RC IN : -3
IKJ56500I COMMAND LMINIT NOT FOUND
34 *-* "LMINIT DATAID(OUDD) DATASET("'DPFCB.TEMP0001.COPYLIB'")"
+++ RC(-3) +++
RC OU : -3
***
32 *-* "LMINIT DATAID(INDD) DATASET("'DPFCBPR.UNTE.COPYLIB'")"
+++ RC(-3) +++
RC IN : -3
IKJ56500I COMMAND LMINIT NOT FOUND
34 *-* "LMINIT DATAID(OUDD) DATASET("'DPFCB.TEMP0001.COPYLIB'")"
+++ RC(-3) +++
RC OU : -3
***