Joined: 13 Jul 2010 Posts: 3 Topics: 2 Location: Toronto
Posted: Wed Mar 30, 2011 3:57 pm Post subject: DFHEITAL IEFC621I EXPECTED CONTINUATION NOT RECEIVED
Greetings,
I'm trying to use the DFHEITAL procedure to assemble a CICS program.
I'm getting :
IEFC621I EXPECTED CONTINUATION NOT RECEIVED
The DFHEITAL procedure looks almost identical to the DFHEITVL, which works fine. (on a COBOL program of course)
My calling JCL for DFHEITAL / DFHEITVL is almost identical as well, just changed the procedure name, and the TRN.SYSIN dataset.
I've copied DFHEITAL to my own dataset, and am using JCLLIB to try to debug the procedure.
I suspect possibly a 'non printing' character or some other weird formatting error.
Curiously, I'm getting the same error on both an OS/390 v2.r8 and a Zos z/OS 01.06.00 system, so it seems ...maybe the same cause has always been there, or that nobody ever used DFHEITAL ??? ..
Or quite possibly, I'm just doing something very dumb
** I know that the PROGLIB is not going to work with CICS (s.b. SYSFAN.CICS.LOAD), I changed it just for testing the compile /assemble. Can't see how that could cause the above error.
//DFHEITAL PROC SUFFIX=1$, Suffix for translator module
//*
//* This procedure has been changed since CICS/ESA Version 3
//*
//* Parameter INDEX2 has been removed
//*
// ASMBLR=ASMA90, Assembler module name
// INDEX='CICSTS23.CICS', Qualifier(s) for CICS libraries
// PROGLIB='CICSTS23.CICS.SDFHLOAD', Name of o/p library@BA25137C
// DSCTLIB='CICSTS23.CICS.SDFHMAC, Private macro/dsect@BA25137C
// OUTC=A, Class for print output
// REG=2M, Region size for all steps
// LNKPARM='LIST,XREF', Link edit parameters
// WORK=SYSDA Unit for work datasets
//*
//* This procedure contains 4 steps
//* 1. Exec the assembler translator
//* (using the supplied suffix 1$)
//* 2. Exec the assembler
//* 3. Reblock SDFHMAC(DFHEILIA) for use by the linkedit step
//* 4. Linkedit the output to dataset &PROGLIB
//*
//* The following JCL should be used
//* to execute this procedure
//*
//* //APPLPROG EXEC DFHEITAL
//* //TRN.SYSIN DD *
//* .
//* . Application program
//* .
//* /*
//* //LKED.SYSIN DD *
//* NAME anyname(R)
//* /*
//*
//* Where anyname is the name of your application program.
//* (refer to the system definition guide for full details,
//* including what to do if your program contains calls to
//* the common programming interface.)
//*
//TRN EXEC PGM=DFHEAP&SUFFIX,
// REGION=®
//STEPLIB DD DSN=&INDEX..SDFHLOAD,DISP=SHR
//SYSPRINT DD SYSOUT=&OUTC
//SYSPUNCH DD DSN=&&SYSCIN,
// DISP=(,PASS),UNIT=&WORK,
// DCB=BLKSIZE=400,
// SPACE=(400,(400,100))
//*
//ASM EXEC PGM=&ASMBLR,
// REGION=®,
// PARM='DECK,NOOBJECT,LIST'
//SYSLIB DD DSN=&DSCTLIB,DISP=SHR
// DD DSN=&INDEX..SDFHMAC,DISP=SHR
// DD DSN=&INDEX..SDFHSAMP,DISP=SHR
// DD DSN=SYS1.MACLIB,DISP=SHR
//SYSUT1 DD UNIT=&WORK,SPACE=(1700,(400,400))
//SYSUT2 DD UNIT=&WORK,SPACE=(1700,(400,400))
//SYSUT3 DD UNIT=&WORK,SPACE=(1700,(400,400))
//SYSPUNCH DD DSN=&&LOADSET,
// UNIT=&WORK,DISP=(,PASS),
// SPACE=(400,(100,100))
//SYSPRINT DD SYSOUT=&OUTC
//SYSIN DD DSN=&&SYSCIN,DISP=(OLD,DELETE)
//*
//COPYLINK EXEC PGM=IEBGENER,COND=(7,LT,ASM)
//SYSUT1 DD DSN=&INDEX..SDFHMAC(DFHEILIA),DISP=SHR
//SYSUT2 DD DSN=&©LINK,DISP=(NEW,PASS),
// DCB=(LRECL=80,BLKSIZE=400,RECFM=FB),
// UNIT=&WORK,SPACE=(400,(20,20))
//SYSPRINT DD SYSOUT=&OUTC
//SYSIN DD DUMMY
//*
//LKED EXEC PGM=IEWL,REGION=®,
// PARM='&LNKPARM',COND=(7,LT,ASM)
//SYSLIB DD DSN=&INDEX..SDFHLOAD,DISP=SHR
//SYSLMOD DD DSN=&PROGLIB,DISP=SHR
//SYSUT1 DD UNIT=&WORK,DCB=BLKSIZE=1024,
// SPACE=(1024,(200,20))
//SYSPRINT DD SYSOUT=&OUTC
//SYSLIN DD DSN=&&LOADSET,DISP=(OLD,DELETE)
// DD DSN=&©LINK,DISP=(OLD,DELETE)
// DD DDNAME=SYSIN
Code:
//DFHEITVL PROC SUFFIX=1$, Suffix for translator module
//*
//* This procedure has been changed since CICS/ESA Version 3
//*
//* Parameter INDEX2 has been removed
//*
// INDEX='CICSTS23.CICS', Qualifier(s) for CICS libraries
// PROGLIB='CICSTS23.CICS.SDFHLOAD', Name of o/p library@BA25137C
// DSCTLIB='CICSTS23.CICS.SDFHCOB', Private macro/dsect@BA25137C
// COMPHLQ='CEE',
// OUTC=A, Class for print output
// REG=2M, Region size for all steps
// LNKPARM='LIST,XREF', Link edit parameters
// STUB='DFHEILIC', Link edit INCLUDE for DFHECI
// LIB='SDFHCOB', Library
// WORK=SYSDA Unit for work datasets
//* This procedure contains 4 steps
//* 1. Exec the COBOL translator
//* (using the supplied suffix 1$)
//* 2. Exec the vs COBOL compiler
//* 3. Reblock &LIB(&STUB) for use by the linkedit step
//* 4. Linkedit the output into dataset &PROGLIB
//*
//* The following JCL should be used
//* to execute this procedure
//*
//* //APPLPROG EXEC DFHEITVL
//* //TRN.SYSIN DD *
//* .
//* . Application program
//* .
//* /*
//* //LKED.SYSIN DD *
//* NAME anyname(R)
//* /*
//*
//* Where anyname is the name of your application program.
//* (Refer to the system definition guide for full details,
//* including what to do if your program contains calls to
//* the common programming interface.)
//*
//TRN EXEC PGM=DFHECP&SUFFIX,
// PARM='COBOL',
// REGION=®
//STEPLIB DD DSN=&INDEX..SDFHLOAD,DISP=SHR
//SYSPRINT DD SYSOUT=&OUTC
//SYSPUNCH DD DSN=&&SYSCIN,
// DISP=(,PASS),UNIT=&WORK,
// DCB=BLKSIZE=400,
// SPACE=(400,(400,100))
//*
//COB EXEC PGM=IGYCRCTL,REGION=®,
// PARM='NODYNAM,LIB,OBJECT,RENT,RES,APOST,MAP,XREF'
//SYSLIB DD DSN=&DSCTLIB,DISP=SHR
// DD DSN=&INDEX..SDFHCOB,DISP=SHR
// DD DSN=&INDEX..SDFHMAC,DISP=SHR
// DD DSN=&INDEX..SDFHSAMP,DISP=SHR
//SYSPRINT DD SYSOUT=&OUTC
//SYSIN DD DSN=&&SYSCIN,DISP=(OLD,DELETE)
//SYSLIN DD DSN=&&LOADSET,DISP=(MOD,PASS),
// UNIT=&WORK,SPACE=(80,(250,100))
//SYSUT1 DD UNIT=&WORK,SPACE=(460,(350,100))
//SYSUT2 DD UNIT=&WORK,SPACE=(460,(350,100))
//SYSUT3 DD UNIT=&WORK,SPACE=(460,(350,100))
//SYSUT4 DD UNIT=&WORK,SPACE=(460,(350,100))
//SYSUT5 DD UNIT=&WORK,SPACE=(460,(350,100))
//SYSUT6 DD UNIT=&WORK,SPACE=(460,(350,100))
//SYSUT7 DD UNIT=&WORK,SPACE=(460,(350,100))
//*
//COPYLINK EXEC PGM=IEBGENER,COND=(7,LT,COB)
//SYSUT1 DD DSN=&INDEX..&LIB(&STUB),DISP=SHR
//SYSUT2 DD DSN=&©LINK,DISP=(NEW,PASS),
// DCB=(LRECL=80,BLKSIZE=400,RECFM=FB),
// UNIT=&WORK,SPACE=(400,(20,20))
//SYSPRINT DD SYSOUT=&OUTC
//SYSIN DD DUMMY
//*
//LKED EXEC PGM=IEWL,REGION=®,
// PARM='&LNKPARM',COND=(5,LT,COB)
//SYSLIB DD DSN=&INDEX..SDFHLOAD,DISP=SHR
// DD DSN=&COMPHLQ..SCEECICS,DISP=SHR
// DD DSN=&COMPHLQ..SCEELKED,DISP=SHR
//SYSLMOD DD DSN=&PROGLIB,DISP=SHR
//SYSUT1 DD UNIT=&WORK,DCB=BLKSIZE=1024,
// SPACE=(1024,(200,20))
//SYSPRINT DD SYSOUT=&OUTC
//SYSLIN DD DSN=&©LINK,DISP=(OLD,DELETE)
// DD DSN=&&LOADSET,DISP=(OLD,DELETE)
// DD DDNAME=SYSIN
Joined: 26 Nov 2002 Posts: 12375 Topics: 75 Location: San Jose
Posted: Wed Mar 30, 2011 6:37 pm Post subject:
mstram,
You are getting a JCL Error and you should look at JESYSMSG to see the line number that is causing the error. Alternatively you can code TYPRUN=SCAN on the jobcard to check for JCL syntax.
you are missing DISP=SHR for both the librarires and if they are overrides (though they don't look to be) - you should remove the comma (",") following the DSN for DD DSCTLIB. _________________ Regards,
Anuj
Joined: 20 Oct 2006 Posts: 1411 Topics: 26 Location: germany
Posted: Thu Mar 31, 2011 4:02 am Post subject:
Anuj,
Those are symbolic substitution.
without an expanded jcl we can only guess.
since JESYSMSG will tell him the exact line in JESJCL that is in error, (as kolusu has already stated)
this is an example of poor skillset on part of the TS.
also, i would not waste my time with JCL-check stuff,
I would always use TYPRUN=SCAN.... But, then again, my JCL skills are above beginner level. _________________ Dick Brenholtz
American living in Varel, Germany
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
