Hi Crni
I don't have a STEP5 in my stage 2 jobstream, but then I did mess
a round with the JCL quite extensively.
The ASM and LINK for DFSIDLB0 is below, I didn't see any error
messages as far as I can recall,
HTH, JJ
//STEP3? EXEC? PGM=IEUASM,PARM='LOAD,NODECK',REGION=1024K
//SYSLIB?? DD? DSNAME=SYS1.MACLIB,DISP=SHR
//???????? DD? DSNAME=HERC01.IGEN,DISP=(OLD,PASS),
//???????????? UNIT=3390,VOL=SER=PUB013
//SYSGO??? DD?
UNIT=SYSDA,DISP=(,PASS),DCB=(LRECL=80,BLKSIZE=400,???? ?
//???????????? RECFM=FB),SPACE=(TRK,(10,10),RLSE)
//SYSPRINT DD?
SYSOUT=A,DCB=(LRECL=121,BLKSIZE=605,RECFM=FBA),??????? ?
//???????????? SPACE=(605,(100,50),RLSE,,ROUND)
//SYSUT1 DD??? UNIT=SYSDA,DISP=(,DELETE),SPACE=(1700,(100,50))
//SYSUT2 DD??? UNIT=SYSDA,DISP=(,DELETE),SPACE=(1700,(100,50))
//SYSUT3 DD???
UNIT=(SYSDA,SEP=(SYSLIB,SYSUT1,SYSUT2)),DISP=(,DELETE),
//???????????? SPACE=(1700,(100,50))
//SYSIN? DD??? *
DFSISCD? CSECT
???????? PRINT OFF
???????? DLIBATCH CENDA=Z9,SPVSVC=255
???????? ISCD???? SECTYPE=CSECT
???????? END
/*
//STEP4? EXEC? PGM=IEWL,PARM='REUS,NCAL',REGION=110K
//SYSPRINT DD?
SYSOUT=A,DCB=(LRECL=121,BLKSIZE=605,RECFM=FBA),??????? ?
//???????????? SPACE=(605,(10,10),RLSE,,ROUND)
//SYSLIN?? DD? DSNAME=*.STEP3.SYSGO,DISP=(OLD,DELETE)
//???????? DD? DDNAME=SYSIN
//SYSOBJ?? DD?
VOLUME=SER=PUB013,DISP=(OLD,PASS),?????????????????? ?
//???????????? DSNAME=HERC01.IRES,UNIT=3390
//SYSLMOD? DD?
VOLUME=SER=PUB013,DISP=(OLD,PASS),?????????????????? ?
//???????????? DSNAME=HERC01.IRES,UNIT=3390
//SYSUT1?? DD?
UNIT=(SYSDA,SEP=(SYSLIN,SYSLMOD)),DISP=(,DELETE),????? ?
//???????????? SPACE=(1700,(100,50))
//SYSIN??? DD? *
? INCLUDE SYSOBJ(DFSIOS10)?? OSAM OPEN ROUTINE
? INCLUDE SYSOBJ(DFSISMM0)?? STORAGE MANAGEMENT MODULE
? INCLUDE SYSOBJ(DFSIDLO0)?? DL/I OPEN MODULE
? INCLUDE SYSOBJ(DFSIDLC0)?? DL/I CLOSE MODULE
? INCLUDE SYSOBJ(DFSIDBA0)?? DL/I BATCH ANALYZER
? INCLUDE SYSOBJ(DFSIBKB0)?? DL/I BATCH BLOCK MODULE
? ENTRY DFSSTART
? NAME DFSIDLB0(R)???????? DL/I BATCH NUCLEUS
/*
On 07/01/2024 08:14, Crni Mrki, DK4BN
wrote:
toggle quoted message
Show quoted text
Hello JJ.
How are you manage to generate DFSIDLB0, DL/I batch nucleus on
MVS.
I have "IFO078 ? ? ?UNDEFINED OP CODE" for DLIBATCH and
ISCD mnemonics in STEP5 of sysgen2 job.
I can not find where it is defined.
To
Kevin (and everyone), I took a look at the DL/I COBOL
application that you provided. Sadly, not much luck so far (as
below), but I'll take another look when I have some time. I
did the DL/I download from the AWS tape, and the stage 1 and
stage 2 IMSGEN worked fine.
So I ran the DL/I application in MVT/HASP, on the basis that
it ought to work, and would provide some sort of baseline. The
PSBGEN, COBOL compile, and link, all went fine. But the DBDGEN
gave me several MNOTE-style errors, which I thought I had
fixed, but maybe not. The DLIBATCH execution failed 0C5 as
soon as the COBOL program got control. I suspect that the
parameter list passed by DFSIRC00 was invalid, but I still
have some work to to on the dump.
I then tried MVS (TK4-) and it actually went further. Once
again, all started out OK with the exception of the DBDGEN
(same error messages, unsurprisingly). The COBOL program got
control, outputted an "I've started" message, opened a QSAM
file and read several input records, which it used to create a
DL/I segment, but when COBOL did an ISRT call on the DL/I
database there was an error message from an SVC 19 module. The
message was complaining that it couldn't open a DCB because it
couldn't find the appropriate DD statement, but it was obvious
that the DDNAME had been somehow overwritten with garbage.
If there's anyone out there in MVS land who has a long memory
and can recall DL/I, and who remembers any error situations
such as those above, then I'd appreciate any ideas about what
has gone wrong - so it's (1) strange DBDGEN MNOTE messages (2)
0C5 in DL/I batch (3) open error in DL/I batch with garbled DD
name.
I'll keep trying, but time is up for a little while; hopefully
I'll get back to it some time in the future.
JJ
|
