DFHEITAL IEFC621I EXPECTED CONTINUATION NOT RECEIVED



JES, JES2, JCL utilities, IDCAMS, Compile & Run JCLs, PROCs etc...

DFHEITAL IEFC621I EXPECTED CONTINUATION NOT RECEIVED

Postby 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

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


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


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



//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
mstram
 
Posts: 9
Joined: Tue Jan 26, 2010 9:27 am
Has thanked: 0 time
Been thanked: 0 time

Re: DFHEITAL IEFC621I EXPECTED CONTINUATION NOT RECEIVED

Postby 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?
Robert Sample
Global moderator
 
Posts: 3720
Joined: Sat Dec 19, 2009 8:32 pm
Location: Dubuque, Iowa, USA
Has thanked: 1 time
Been thanked: 279 times

Re: DFHEITAL IEFC621I EXPECTED CONTINUATION NOT RECEIVED

Postby 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.
steve-myers
Global moderator
 
Posts: 2105
Joined: Thu Jun 03, 2010 6:21 pm
Has thanked: 4 times
Been thanked: 243 times

Re: DFHEITAL IEFC621I EXPECTED CONTINUATION NOT RECEIVED

Postby mstram » Thu Mar 31, 2011 7:43 am

                  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
mstram
 
Posts: 9
Joined: Tue Jan 26, 2010 9:27 am
Has thanked: 0 time
Been thanked: 0 time

Re: DFHEITAL IEFC621I EXPECTED CONTINUATION NOT RECEIVED

Postby 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
User avatar
mongan
 
Posts: 211
Joined: Tue Jan 11, 2011 8:32 pm
Has thanked: 1 time
Been thanked: 5 times

Re: DFHEITAL IEFC621I EXPECTED CONTINUATION NOT RECEIVED

Postby 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...
Steve
stevexff
 
Posts: 56
Joined: Wed Nov 10, 2010 7:48 pm
Has thanked: 0 time
Been thanked: 0 time

Re: DFHEITAL IEFC621I EXPECTED CONTINUATION NOT RECEIVED

Postby 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.
Robert Sample
Global moderator
 
Posts: 3720
Joined: Sat Dec 19, 2009 8:32 pm
Location: Dubuque, Iowa, USA
Has thanked: 1 time
Been thanked: 279 times

Re: DFHEITAL IEFC621I EXPECTED CONTINUATION NOT RECEIVED

Postby 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,
User avatar
mongan
 
Posts: 211
Joined: Tue Jan 11, 2011 8:32 pm
Has thanked: 1 time
Been thanked: 5 times

Re: DFHEITAL IEFC621I EXPECTED CONTINUATION NOT RECEIVED

Postby 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" :)
mstram
 
Posts: 9
Joined: Tue Jan 26, 2010 9:27 am
Has thanked: 0 time
Been thanked: 0 time


Return to JCL

 


  • Related topics
    Replies
    Views
    Last post