Iniciar Sesión

Ver la Versión Completa : [Sintaxis] IBM Z error en JCL: IEFC662I INVALID LABEL


eavila39
25 de agosto de 2023, 05:05
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
25 de agosto de 2023, 10:30
@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
25 de agosto de 2023, 20:33
Ok lo intentaré más tarde gracias