[Sintaxis] IBM Z error en JCL: IEFC662I INVALID LABEL

[eavila39]

Hola comunidad, he seguido fielmente los pasos que marca el desafío en IBM Z Xplore, al momento de enviar el siguiente trabajo me marca el siguiente error:

STMT NO. MESSAGE
        61 IEFC662I INVALID LABEL

el trabajo es el siguiente:

//JCL3     JOB ,MSGLEVEL=(2,0)
//*
//* IEBGENER is a system utility program to copy data
//*  where the default input  filename is SYSUT1
//*  and   the default output filename is SYSUT2
//*
//HEADER EXEC PGM=IEBGENER
//SYSPRINT DD DUMMY
//SYSIN    DD DUMMY
//SYSUT1   DD *
********************************************
METRO NORTH POUGHKEEPSIE -> NYC M-F SCHEDULE
PEAK HOUR OPERATION
********************************************
//SYSUT2   DD DSN=&SYSUID..JCL3TMP1,DISP=(NEW,PASS,DELETE),
//            SPACE=(TRK,(1,1)),UNIT=SYSDA,
//            DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=0)
//*
//POK EXEC PGM=IEBGENER
//SYSPRINT DD DUMMY
//SYSIN    DD DUMMY
//SYSUT1   DD *
Poughkeepsie - 74mi
//SYSUT2   DD DSN=&SYSUID..JCL3TMP1,DISP=(MOD,PASS,DELETE),
//            SPACE=(TRK,(1,1)),UNIT=SYSDA,
//            DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=0)
//*
//NHB EXEC PGM=IEBGENER
//SYSPRINT DD DUMMY
//SYSIN    DD DUMMY
//SYSUT1   DD *
NEW Hamburg - 65mi
//SYSUT2   DD DSN=&SYSUID..JCL3TMP1,DISP=(MOD,PASS,DELETE),
//            SPACE=(TRK,(1,1)),UNIT=SYSDA,
//            DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=0)
//*
//BEACON EXEC PGM=IEBGENER
//SYSPRINT DD DUMMY
//SYSIN    DD DUMMY
//SYSUT1   DD *
Beacon - 59mi
//SYSUT2   DD DSN=&SYSUID..JCL3TMP1,DISP=(MOD,PASS,DELETE),
//            SPACE=(TRK,(1,1)),UNIT=SYSDA,
//            DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=0)
//*
//CLDSPRNG EXEC PGM=IEBGENER
//SYSPRINT DD DUMMY
//SYSIN    DD DUMMY
//SYSUT1   DD *
Cold Spring - 52mi
//SYSUT2   DD DSN=&SYSUID..JCL3TMP1,DISP=(MOD,PASS,DELETE),
//            SPACE=(TRK,(1,1)),UNIT=SYSDA,
//            DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=0)
//*
//GARRISON EXEC PGM=IEBGENER
//SYSPRINT DD DUMMY
//SYSIN    DD DUMMY
//SYSUT1   DD *
Garrison - 50mi
//SYSUT2   DD DSN=&SYSUID..JCL3TMP1,DISP=(MOD,PASS,DELETE),
//            SPACE=(TRK,(1,1)),UNIT=SYSDA,
//            DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=0)
//*
//PEEKSKL EXEC PGM=IEBGENER
//SYSPRINT DD DUMMY
//SYSIN    DD DUMMY
//SYSUT1   DD *
Peekskill - 41mi
//SYSUT2   DD DSN=&SYSUID..JCL3TMP1,DISP=(MOD,PASS,DELETE),
//            SPACE=(TRK,(1,1)),UNIT=SYSDA,
//            DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=0)
//*
//CORTLNDT EXEC PGM=IEBGENER
//SYSPRINT DD DUMMY
//SYSIN    DD DUMMY
//SYSUT1   DD *
Cortlandt - 38mi
//SYSUT2   DD DSN=&SYSUID..JCL3TMP1,DISP=(MOD,PASS,DELETE),
//            SPACE=(TRK,(1,1)),UNIT=SYSDA,
//            DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=0)
//*
//CROTONH EXEC PGM=IEBGENER
//SYSPRINT DD DUMMY
//SYSIN    DD DUMMY
//SYSUT1   DD *
Croton-Harmon - 33mi
//SYSUT2   DD DSN=&SYSUID..JCL3TMP1,DISP=(MOD,PASS,DELETE),
//            SPACE=(TRK,(1,1)),UNIT=SYSDA,
//            DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=0)
//*
//H125 EXEC PGM=IEBGENER
//SYSPRINT DD DUMMY
//SYSIN    DD DUMMY
//SYSUT1   DD *
Harlem - 125th Street - 4mi
//SYSUT2   DD DSN=&SYSUID..JCL3TMP1,DISP=(MOD,PASS,DELETE),
//            SPACE=(TRK,(1,1)),UNIT=SYSDA,
//            DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=0)
//*
//GCT EXEC PGM=IEBGENER
//SYSPRINT DD DUMMY
//SYSIN    DD DUMMY
//SYSUT1   DD *
Grand Central Terminal - 0mi
//SYSUT2   DD DSN=&SYSUID..JCL3TMP1,DISP=(MOD,PASS,DELETE),
//            SPACE=(TRK,(1,1)),UNIT=SYSDA,
//            DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=0)
//*
//PEAKINFO EXEC PGM=IEBGENER
//SYSPRINT DD DUMMY
//SYSIN    DD DUMMY
//SYSUT1   DD *
**************************************************************
Peak fares are charged during business rush hours ON any
weekday train scheduled TO arrive in NYC terminals between
6 a.m. and 10 a.m. or depart NYC terminals between 4 p.m.
and 8 p.m. ON Metro-North trains, peak fares also apply TO
travel ON any weekday train that leaves Grand Central Terminal
between 6 a.m. and 9 a.m.
Off-peak fares are charged all other times ON weekdays, all
day Saturday and Sunday, and ON holidays.
 
//STEP_TO_CONCAT EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//SYSUT1   DD DSN=&SYSUID..JCL3TMP1,DISP=SHR
//SYSUT2   DD DSN=&SYSUID..JCL3OUT,DISP=(NEW,PASS,DELETE),
//            SPACE=(TRK,(1,1)),UNIT=SYSDA,
//            DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=0)

Estoy intentando aprender COBOL la verdad es que no entiendo ni una papa.
Alguien podría explicarme que es lo que está mal en este trabajo, creánme ya busque en google alguna solución, tambien usando prompts en Chat GPT pero nada funciona

[Kuk]

@eavila39, hola.

Hace tiempo que no trabajo con JCL pero así a simple vista no veo ningún error.

A lo mejor se te ha colado un caracter especial, que no se ve.

Haz HEX ON, luego navega hacía la línea 61 y mira a ver en hexadecimal qué valor hay antes de la línea 61 y en ella.

Ya nos cuentas.

Por cierto, esto no va a funcionar:

//STEP_TO_CONCAT EXEC PGM=IEBCOPY

Porque en Mainframes el nombre del STEP no puede superar 8 caracteres. Modifícalo por algo como "STEPCNCT" o similar.
Lo mismo desaparece el error ese también, a veces pasa que salta por un lado pero que el error en sí está en totalmente otro sitio.

[eavila39]

Ok lo intentaré más tarde gracias