MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

DFHEITAL IEFC621I EXPECTED CONTINUATION NOT RECEIVED

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Problem Determination
View previous topic :: View next topic  
Author Message
mstram
Beginner


Joined: 13 Jul 2010
Posts: 3
Topics: 2
Location: Toronto

PostPosted: Wed Mar 30, 2011 3:57 pm    Post subject: DFHEITAL IEFC621I EXPECTED CONTINUATION NOT RECEIVED Reply with quote

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 Smile

** 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.


Code:
//MSTRAMAS JOB A123,'CICS ASSEM',CLASS=A,MSGCLASS=A,NOTIFY=&SYSUID
//*PROCLIB JCLLIB ORDER=MSTRAM.CICS.JCL
//CICSASM EXEC DFHEITAL,
// DSCTLIB=MSTRAM.CICS.SDFHMAC,
// PROGLIB=MSTRAM.LIB2.LOAD
//TRN.SYSIN DD DSN=CICSTS23.CICS.SDFHSAMP(DFH$AALL),DISP=SHR
//LKED.SYSIN DD *
NAME DFH$AALL(R)
//*


Code:
//MSTRAMCB JOB A123,'CICS COMPILE',CLASS=A,MSGCLASS=A,NOTIFY=&SYSUID
//CICSCOMP EXEC DFHEITVL,PARM='SOURCE',
// OUTC=A,
// DSCTLIB=MSTRAM.CICS.SDFHMAC, <== COPY LIBRARY
// PROGLIB=MSTRAM.LIB2.LOAD <== LOAD LIBRARY
//*TRN.SYSIN DD DSN=MSTRAM.CICS.COBOL(MSTRAM5),DISP=SHR
//LKED.SYSIN DD *
NAME ACCT99(R)
//*


Code:
//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=&REG
//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=&REG,
//            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=&&COPYLINK,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=&REG,
//            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=&&COPYLINK,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=&REG                                           
//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=&REG,
//       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=&&COPYLINK,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=&REG,
//            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=&&COPYLINK,DISP=(OLD,DELETE)       
//         DD DSN=&&LOADSET,DISP=(OLD,DELETE)       
//         DD DDNAME=SYSIN
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12357
Topics: 75
Location: San Jose

PostPosted: Wed Mar 30, 2011 6:37 pm    Post subject: Reply with quote

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.

Kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Anuj Dhawan
Intermediate


Joined: 19 Jul 2007
Posts: 298
Topics: 7
Location: Mumbai,India

PostPosted: Thu Mar 31, 2011 3:40 am    Post subject: Reply with quote

Also, these days syntax-chesking tools are intelligent enough to tell you such an error in JCL-syntax-check itself.

With the stuff you've posted it's tough to figure out what might casue the problem, however, from first glance, it looks like - here:
Code:
// DSCTLIB=MSTRAM.CICS.SDFHMAC,
// PROGLIB=MSTRAM.LIB2.LOAD
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
Back to top
View user's profile Send private message
dbzTHEdinosauer
Supermod


Joined: 20 Oct 2006
Posts: 1411
Topics: 26
Location: germany

PostPosted: Thu Mar 31, 2011 4:02 am    Post subject: Reply with quote

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
Back to top
View user's profile Send private message
mstram
Beginner


Joined: 13 Jul 2010
Posts: 3
Topics: 2
Location: Toronto

PostPosted: Thu Mar 31, 2011 7:37 am    Post subject: Reply with quote

Solved !!!!!

In the DFHEITAL procedure :

DSCTLIB='CICSTS23.CICS.SDFHMAC,

s.b.

DSCTLIB='CICSTS23.CICS.SDFHMAC',

(closing single quote) !

I stared at that a number of times, only when I turned on the ISPF editor color highlighting, did I notice it !
Back to top
View user's profile Send private message
Anuj Dhawan
Intermediate


Joined: 19 Jul 2007
Posts: 298
Topics: 7
Location: Mumbai,India

PostPosted: Fri Apr 01, 2011 4:23 am    Post subject: Reply with quote

Apparently, my guess was not correct Dick. Glad, OP has solved it himself.
_________________
Regards,
Anuj
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Problem Determination All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
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


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group