Tema: IBM Z error en JCL: IEFC662I INVALID LABEL
Ver Mensaje Individual
  #1
Antiguo 25 de agosto de 2023, 05:05
eavila39
Acabo de llegar...
Última Actividad 25.08.2023 20:33
Posts Posts: 3
Likes enviados Enviados: 1
Likes recibidos Recibidos: 0
Consola IBM Z error en JCL: IEFC662I INVALID LABEL
0
Likes

None...

Inactivo Inactivo
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:
Código JCL:
  1. STMT NO. MESSAGE
  2.         61 IEFC662I INVALID LABEL
el trabajo es el siguiente:
Código JCL:
  1. //JCL3     JOB ,MSGLEVEL=(2,0)
  2. //*
  3. //* IEBGENER is a system utility program to copy data
  4. //*  where the default input  filename is SYSUT1
  5. //*  and   the default output filename is SYSUT2
  6. //*
  7. //HEADER EXEC PGM=IEBGENER
  8. //SYSPRINT DD DUMMY
  9. //SYSIN    DD DUMMY
  10. //SYSUT1   DD *
  11. ********************************************
  12. METRO NORTH POUGHKEEPSIE -> NYC M-F SCHEDULE
  13. PEAK HOUR OPERATION
  14. ********************************************
  15. //SYSUT2   DD DSN=&SYSUID..JCL3TMP1,DISP=(NEW,PASS,DELETE),
  16. //            SPACE=(TRK,(1,1)),UNIT=SYSDA,
  17. //            DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=0)
  18. //*
  19. //POK EXEC PGM=IEBGENER
  20. //SYSPRINT DD DUMMY
  21. //SYSIN    DD DUMMY
  22. //SYSUT1   DD *
  23. Poughkeepsie - 74mi
  24. //SYSUT2   DD DSN=&SYSUID..JCL3TMP1,DISP=(MOD,PASS,DELETE),
  25. //            SPACE=(TRK,(1,1)),UNIT=SYSDA,
  26. //            DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=0)
  27. //*
  28. //NHB EXEC PGM=IEBGENER
  29. //SYSPRINT DD DUMMY
  30. //SYSIN    DD DUMMY
  31. //SYSUT1   DD *
  32. NEW Hamburg - 65mi
  33. //SYSUT2   DD DSN=&SYSUID..JCL3TMP1,DISP=(MOD,PASS,DELETE),
  34. //            SPACE=(TRK,(1,1)),UNIT=SYSDA,
  35. //            DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=0)
  36. //*
  37. //BEACON EXEC PGM=IEBGENER
  38. //SYSPRINT DD DUMMY
  39. //SYSIN    DD DUMMY
  40. //SYSUT1   DD *
  41. Beacon - 59mi
  42. //SYSUT2   DD DSN=&SYSUID..JCL3TMP1,DISP=(MOD,PASS,DELETE),
  43. //            SPACE=(TRK,(1,1)),UNIT=SYSDA,
  44. //            DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=0)
  45. //*
  46. //CLDSPRNG EXEC PGM=IEBGENER
  47. //SYSPRINT DD DUMMY
  48. //SYSIN    DD DUMMY
  49. //SYSUT1   DD *
  50. Cold Spring - 52mi
  51. //SYSUT2   DD DSN=&SYSUID..JCL3TMP1,DISP=(MOD,PASS,DELETE),
  52. //            SPACE=(TRK,(1,1)),UNIT=SYSDA,
  53. //            DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=0)
  54. //*
  55. //GARRISON EXEC PGM=IEBGENER
  56. //SYSPRINT DD DUMMY
  57. //SYSIN    DD DUMMY
  58. //SYSUT1   DD *
  59. Garrison - 50mi
  60. //SYSUT2   DD DSN=&SYSUID..JCL3TMP1,DISP=(MOD,PASS,DELETE),
  61. //            SPACE=(TRK,(1,1)),UNIT=SYSDA,
  62. //            DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=0)
  63. //*
  64. //PEEKSKL EXEC PGM=IEBGENER
  65. //SYSPRINT DD DUMMY
  66. //SYSIN    DD DUMMY
  67. //SYSUT1   DD *
  68. Peekskill - 41mi
  69. //SYSUT2   DD DSN=&SYSUID..JCL3TMP1,DISP=(MOD,PASS,DELETE),
  70. //            SPACE=(TRK,(1,1)),UNIT=SYSDA,
  71. //            DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=0)
  72. //*
  73. //CORTLNDT EXEC PGM=IEBGENER
  74. //SYSPRINT DD DUMMY
  75. //SYSIN    DD DUMMY
  76. //SYSUT1   DD *
  77. Cortlandt - 38mi
  78. //SYSUT2   DD DSN=&SYSUID..JCL3TMP1,DISP=(MOD,PASS,DELETE),
  79. //            SPACE=(TRK,(1,1)),UNIT=SYSDA,
  80. //            DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=0)
  81. //*
  82. //CROTONH EXEC PGM=IEBGENER
  83. //SYSPRINT DD DUMMY
  84. //SYSIN    DD DUMMY
  85. //SYSUT1   DD *
  86. Croton-Harmon - 33mi
  87. //SYSUT2   DD DSN=&SYSUID..JCL3TMP1,DISP=(MOD,PASS,DELETE),
  88. //            SPACE=(TRK,(1,1)),UNIT=SYSDA,
  89. //            DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=0)
  90. //*
  91. //H125 EXEC PGM=IEBGENER
  92. //SYSPRINT DD DUMMY
  93. //SYSIN    DD DUMMY
  94. //SYSUT1   DD *
  95. Harlem - 125th Street - 4mi
  96. //SYSUT2   DD DSN=&SYSUID..JCL3TMP1,DISP=(MOD,PASS,DELETE),
  97. //            SPACE=(TRK,(1,1)),UNIT=SYSDA,
  98. //            DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=0)
  99. //*
  100. //GCT EXEC PGM=IEBGENER
  101. //SYSPRINT DD DUMMY
  102. //SYSIN    DD DUMMY
  103. //SYSUT1   DD *
  104. Grand Central Terminal - 0mi
  105. //SYSUT2   DD DSN=&SYSUID..JCL3TMP1,DISP=(MOD,PASS,DELETE),
  106. //            SPACE=(TRK,(1,1)),UNIT=SYSDA,
  107. //            DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=0)
  108. //*
  109. //PEAKINFO EXEC PGM=IEBGENER
  110. //SYSPRINT DD DUMMY
  111. //SYSIN    DD DUMMY
  112. //SYSUT1   DD *
  113. **************************************************************
  114. Peak fares are charged during business rush hours ON any
  115. weekday train scheduled TO arrive in NYC terminals between
  116. 6 a.m. and 10 a.m. or depart NYC terminals between 4 p.m.
  117. and 8 p.m. ON Metro-North trains, peak fares also apply TO
  118. travel ON any weekday train that leaves Grand Central Terminal
  119. between 6 a.m. and 9 a.m.
  120. Off-peak fares are charged all other times ON weekdays, all
  121. day Saturday and Sunday, and ON holidays.
  122.  
  123. //STEP_TO_CONCAT EXEC PGM=IEBCOPY
  124. //SYSPRINT DD SYSOUT=*
  125. //SYSUT1   DD DSN=&SYSUID..JCL3TMP1,DISP=SHR
  126. //SYSUT2   DD DSN=&SYSUID..JCL3OUT,DISP=(NEW,PASS,DELETE),
  127. //            SPACE=(TRK,(1,1)),UNIT=SYSDA,
  128. //            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
eavila39 is offline   Responder Con Cita