IBM Mainframe Forum

by **mstram** » Thu Mar 31, 2011 5:36 am

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

Select all

//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)
//*

Select all

//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)
//*

Select all

//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

Select all

//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

by **Robert Sample** » Thu Mar 31, 2011 6:27 am

I tested DFHEITAL from the SDFHPROC library and it did not receive any continuation errors, so the problem is somewhere in your JCL or your PROCLIB, not the system procedure. What does the expanded JCL look like with the XX in columns 1 and 2?

by **steve-myers** » Thu Mar 31, 2011 7:42 am

This has been double posted elsewhere. I think this matter should be left on the elsewhere.

by **mstram** » Thu Mar 31, 2011 7:43 am

Select all

J E S 2 J O B L O G -- S Y S T E M S Y S 1 -- N O D E

8 JOB00076 ---- WEDNESDAY, 30 MAR 2011 ----
8 JOB00076 IRR010I USERID P390 IS ASSIGNED TO THIS JOB.
8 JOB00076 IEFC452I P390CIAS - JOB NOT RUN - JCL ERROR
JES2 JOB STATISTICS ------
15 CARDS READ
140 SYSOUT PRINT RECORDS
0 SYSOUT PUNCH RECORDS
11 SYSOUT SPOOL KBYTES
0.00 MINUTES EXECUTION TIME
1 //P390CIAS JOB A123,'ASSM CICS',CLASS=A,MSGCLASS=A,NOTIFY=&SYSUID JOB00
//* PROGLIB=CICSTS13.CICS.SDFHLOAD <== LOAD LIBRARY 00020
//*PROCLIB JCLLIB ORDER=P390.CICS.JCL 00021
IEFC653I SUBSTITUTION JCL - A123,'ASSM CICS',CLASS=A,MSGCLASS=A,NOTIFY=P390
2 //PROCLIB JCLLIB ORDER=CICSTS13.CICS.SDFHPROC 00022
3 //CICSCOMP EXEC DFHEITAL, 00030
// OUTC=A, 00040
// DSCTLIB=CICSTS13.CICS.SDFHMAC, <== COPY LIBRARY 00040
// PROGLIB=P390.LIB.LOAD 00040
4 XXDFHEITAL PROC SUFFIX=1$, Suffix for translator module 00200
XX* 00500
XX* This procedure has been changed since CICS/ESA Version 3 00800
XX* 01100
XX* Parameter INDEX2 has been removed 01400
XX* 01700
XX ASMBLR=ASMA90, Assembler module name 02000
XX INDEX='CICSTS13.CICS', Qualifier(s) for CICS libraries 02800
XX PROGLIB='CICSTS13.CICS.SDFHLOAD', Name of o/p library@BA25137C 03600
XX DSCTLIB='CICSTS13.CICS.SDFHMAC, Private macro/dsect@BA25137C 04500
5 XX OUTC=A, Class for print output 05400
6 XX REG=2M, Region size for all steps 06300
7 XX LNKPARM='LIST,XREF', Link edit parameters 07200
8 XX WORK=SYSDA Unit for work datasets 08100
XX* 09000
XX* This procedure contains 4 steps 10000
XX* 1. Exec the assembler translator 11000
XX* (using the supplied suffix 1$) 12000
XX* 2. Exec the assembler 13000
XX* 3. Reblock SDFHMAC(DFHEILIA) for use by the linkedit step 14000
XX* 4. Linkedit the output to dataset &PROGLIB 15000
XX* 16000
XX* The following JCL should be used 17000
XX* to execute this procedure 18000
XX* 19000
XX* //APPLPROG EXEC DFHEITAL 20000
XX* //TRN.SYSIN DD * 21000
XX* . 22000
XX* . Application program 23000
XX* . 24000
XX* /* 25000
XX* //LKED.SYSIN DD * 26000
XX* NAME anyname(R) 27000
XX* /* 28000
XX* 29000
XX* Where anyname is the name of your application program. 30000
XX* (refer to the system definition guide for full details, 31000
XX* including what to do if your program contains calls to 32000
XX* the common programming interface.) 33000
XX* 34000
9 XXTRN EXEC PGM=DFHEAP&SUFFIX, 35000
XX REGION=&REG 36000
10 XXSTEPLIB DD DSN=&INDEX..SDFHLOAD,DISP=SHR 37000
11 XXSYSPRINT DD SYSOUT=&OUTC 38000
IEFC653I SUBSTITUTION JCL - SYSOUT=A
12 XXSYSPUNCH DD DSN=&&SYSCIN, 39000
XX DISP=(,PASS),UNIT=&WORK, 40000
XX DCB=BLKSIZE=400, 41000
XX SPACE=(400,(400,100)) 42000
XX* 43000
13 XXASM EXEC PGM=&ASMBLR, 44000
XX REGION=&REG, 45000
XX PARM='DECK,NOOBJECT,LIST' 46000
14 XXSYSLIB DD DSN=&DSCTLIB,DISP=SHR 46500
IEFC653I SUBSTITUTION JCL - DSN=CICSTS13.CICS.SDFHMAC,DISP=SHR
15 XX DD DSN=&INDEX..SDFHMAC,DISP=SHR 47000
16 XX DD DSN=&INDEX..SDFHSAMP,DISP=SHR 47500
17 XX DD DSN=SYS1.MACLIB,DISP=SHR 48000
18 XXSYSUT1 DD UNIT=&WORK,SPACE=(1700,(400,400)) 49000
19 XXSYSUT2 DD UNIT=&WORK,SPACE=(1700,(400,400)) 50000
20 XXSYSUT3 DD UNIT=&WORK,SPACE=(1700,(400,400)) 51000
21 XXSYSPUNCH DD DSN=&&LOADSET, 52000
XX UNIT=&WORK,DISP=(,PASS), 54000
XX SPACE=(400,(100,100)) 56000
22 XXSYSPRINT DD SYSOUT=&OUTC 58000
IEFC653I SUBSTITUTION JCL - SYSOUT=A
23 XXSYSIN DD DSN=&&SYSCIN,DISP=(OLD,DELETE) 60000
XX* 62000
24 XXCOPYLINK EXEC PGM=IEBGENER,COND=(7,LT,ASM) 64000
25 XXSYSUT1 DD DSN=&INDEX..SDFHMAC(DFHEILIA),DISP=SHR 66000
26 XXSYSUT2 DD DSN=&&COPYLINK,DISP=(NEW,PASS), 68000
XX DCB=(LRECL=80,BLKSIZE=400,RECFM=FB), 70000
XX UNIT=&WORK,SPACE=(400,(20,20)) 72000
27 XXSYSPRINT DD SYSOUT=&OUTC 74000
IEFC653I SUBSTITUTION JCL - SYSOUT=A
28 XXSYSIN DD DUMMY 76000
XX* 78000
29 XXLKED EXEC PGM=IEWL,REGION=&REG, 80000
XX PARM='&LNKPARM',COND=(7,LT,ASM) 82000
30 XXSYSLIB DD DSN=&INDEX..SDFHLOAD,DISP=SHR 84000
31 XXSYSLMOD DD DSN=&PROGLIB,DISP=SHR 86000
IEFC653I SUBSTITUTION JCL - DSN=P390.LIB.LOAD,DISP=SHR
32 XXSYSUT1 DD UNIT=&WORK,DCB=BLKSIZE=1024, 88000
XX SPACE=(1024,(200,20)) 90000
33 XXSYSPRINT DD SYSOUT=&OUTC 92000
IEFC653I SUBSTITUTION JCL - SYSOUT=A
34 XXSYSLIN DD DSN=&&LOADSET,DISP=(OLD,DELETE) 94000
35 XX DD DSN=&&COPYLINK,DISP=(OLD,DELETE) 96000
36 XX DD DDNAME=SYSIN 98000
//*---------------- SOURCE PROGRAM--------------- 00040
37 //TRN.SYSIN DD DSN=P390.CICS.ASM(ASSEM01),DISP=SHR 00040
//*----------------LINK LIBRARIES----------------- 00040
//* LKED.USERLIB DD DSN=AGY0157.CICS.TRANSLIB,DISP=SHR 00040
38 //LKED.SYSIN DD * 00040
//* 00040
STMT NO. MESSAGE
3 IEFC001I PROCEDURE DFHEITAL WAS EXPANDED USING PRIVATE LIBRARY CICSTS
4 IEFC621I EXPECTED CONTINUATION NOT RECEIVED
5 IEFC605I UNIDENTIFIED OPERATION FIELD
6 IEFC605I UNIDENTIFIED OPERATION FIELD
7 IEFC605I UNIDENTIFIED OPERATION FIELD
8 IEFC605I UNIDENTIFIED OPERATION FIELD
9 IEFC627I INCORRECT USE OF AMPERSAND IN THE PGM FIELD
10 IEFC624I INCORRECT USE OF PERIOD IN THE DSN FIELD
12 IEFC627I INCORRECT USE OF AMPERSAND IN THE UNIT FIELD
13 IEFC627I INCORRECT USE OF AMPERSAND IN THE PGM FIELD
15 IEFC624I INCORRECT USE OF PERIOD IN THE DSN FIELD
16 IEFC624I INCORRECT USE OF PERIOD IN THE DSN FIELD
18 IEFC627I INCORRECT USE OF AMPERSAND IN THE UNIT FIELD
19 IEFC627I INCORRECT USE OF AMPERSAND IN THE UNIT FIELD
20 IEFC627I INCORRECT USE OF AMPERSAND IN THE UNIT FIELD
21 IEFC627I INCORRECT USE OF AMPERSAND IN THE UNIT FIELD
25 IEFC624I INCORRECT USE OF PERIOD IN THE DSN FIELD
26 IEFC627I INCORRECT USE OF AMPERSAND IN THE UNIT FIELD
29 IEFC627I INCORRECT USE OF AMPERSAND IN THE REGION FIELD
30 IEFC624I INCORRECT USE OF PERIOD IN THE DSN FIELD
32 IEFC627I INCORRECT USE OF AMPERSAND IN THE UNIT FIELD
37 IEFC611I OVERRIDDEN STEP NOT FOUND IN PROCEDURE
38 IEFC023I SYSIN OVERRIDE ERROR

by **mongan** » Thu Mar 31, 2011 12:04 pm

Basic Jcl, if your card ends with a comma then JCL expects a continuation, which is not there.

XX DSCTLIB='CICSTS13.CICS.SDFHMAC, Private macro/dsect@BA25137C 04500

by **stevexff** » Thu Mar 31, 2011 1:41 pm

The message tells you that a continuation is not received on line 4. Look at line 4; the line numbers are printed down the left hand side of the listing deliberately for exactly this purpose. It ends with a comma, but there is no statement that continues this on the next line. Fix it and resubmit the job. Continue this process until all JCL errors are eliminated.

Download the JCL users guide and reference from IBM; there is no excuse, as it's free...

by **Robert Sample** » Thu Mar 31, 2011 4:39 pm

Have you matched up parentheses to verify them?
Have you matched up quote marks to verify them?

The JCL expansion tells you exactly what line you have a problem with, and the generation of line 5 as a separate JCL statement confirms which line has the problem.

by **mongan** » Thu Mar 31, 2011 5:11 pm

After rereading your post I would confirm that the procedure has never been used, I just realized that there is a second error besides the continuation in the card that I already mentioned, but maybe you can find that error yourself.
XX DSCTLIB='CICSTS13.CICS.SDFHMAC,

by **mstram** » Thu Mar 31, 2011 6:10 pm

>the generation of line 5 as a separate JCL statement confirms which line has the problem.

Thanks Robert ! .. that helped

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 !

I kept ASSuming the system proc was ok, and was only looking at my own JCL.

I'll notify the "authorities"

IBM Mainframe Forum

DFHEITAL IEFC621I EXPECTED CONTINUATION NOT RECEIVED

DFHEITAL IEFC621I EXPECTED CONTINUATION NOT RECEIVED

Re: DFHEITAL IEFC621I EXPECTED CONTINUATION NOT RECEIVED

Re: DFHEITAL IEFC621I EXPECTED CONTINUATION NOT RECEIVED

Re: DFHEITAL IEFC621I EXPECTED CONTINUATION NOT RECEIVED

Re: DFHEITAL IEFC621I EXPECTED CONTINUATION NOT RECEIVED

Re: DFHEITAL IEFC621I EXPECTED CONTINUATION NOT RECEIVED

Re: DFHEITAL IEFC621I EXPECTED CONTINUATION NOT RECEIVED

Re: DFHEITAL IEFC621I EXPECTED CONTINUATION NOT RECEIVED

Re: DFHEITAL IEFC621I EXPECTED CONTINUATION NOT RECEIVED