quiero forzar a cada registro de una salida una variable &LOTE01 y no logro hacerlo funcionar SORT FIELDS=COPY OUTREC FIELDS=(1,039,040,1,c'SMX02484',049,191) * ACA LE QUIERO PONER &LOTE01 reemplazando el SMX02484
3 IEFC001I PROCEDURE IGYWCL WAS EXPANDED USING PRIVATE LIBRARY ADCD.Z16.PROCLIB 24 IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR STEP WAS NOT RESOLVED 01I IBMUSER LAST ACCESS AT 19:03:01 ON THURSDAY, DECEMBER 10, 2020 I PRUEBA COBOL STEPLIB - DATA SET NOT FOUND I PRUEBA COBOL - STEP WAS NOT EXECUTED. I STEP/COBOL /START 2020345.1922 I STEP/COBOL /STOP 2020345.1922 CPU 0MIN 00.00SEC SRB 0MIN 00.00 I JOB/PRUEBA /START 2020345.1922 I JOB/PRUEBA /STOP 2020345.1922 CPU 0MIN 00.00SEC SRB 0MIN 00.00 ************************* BOTTOM OF DATA ********************************
Intuyo que es algo relacionado con las librerías pero no comprendo dónde está el error. ¿Podrías ayudarme? Gracias anticipadas. Miguel.
quiero forzar a cada registro de una salida una variable &LOTE01 y no logro hacerlo funcionar
ResponderBorrarSORT FIELDS=COPY
OUTREC FIELDS=(1,039,040,1,c'SMX02484',049,191)
* ACA LE QUIERO PONER &LOTE01 reemplazando el SMX02484
Hola, he instalado Hercules y z/os desde el enlace de tu web y funciona perfectamente.
ResponderBorrarSoy nuevo en cobol, e intento ejecutar un programa de prueba
El problema que me encuentro ahora es que estoy haciendo un jcl para compilar y linkar pero me da un error que no logro entender,.
El jcl es:
000001 //PRUEBA JOB (),'COBOL ',NOTIFY=&SYSUID,
000002 // CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1)
000003 //PROC JCLLIB ORDER=ADCD.Z16.PROCLIB
000004 // EXEC PROC=IGYWCL,MEMBER=PB0AC299
000005 //COBOL.SYSIN DD DISP=SHR,DSN=IBMUSER.CURSO.COBOL(&MEMBER.)
000006 //COBOL.SYSLIB DD DISP=SHR,DSN=IBMUSER.COPYS.COBOL
Salida en el spool:
SDSF OUTPUT DISPLAY PRUEBA JOB01785 DSID 3 LINE 58 COLUMNS 01- 80
COMMAND INPUT ===> SCROLL ===> PAGE
17 //COBOL.SYSLIB DD DISP=SHR,DSN=IBMUSER.COPYS.COBOL
18 XXLKED EXEC PGM=HEWL,COND=(8,LT,COBOL),REGION=1024K
19 XXSYSLIB DD DSNAME=&LIBPRFX..SCEELKED,
XX DISP=SHR
IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEELKED,DISP=SHR
20 XXSYSPRINT DD SYSOUT=*
21 XXSYSLIN DD DSNAME=&&LOADSET,DISP=(OLD,DELETE)
22 XX DD DDNAME=SYSIN
23 XXSYSLMOD DD DSNAME=&PGMLIB(&GOPGM),
XX SPACE=(TRK,(10,10,1)),
XX UNIT=SYSALLDA,DISP=(MOD,PASS)
IEFC653I SUBSTITUTION JCL - DSNAME=&&GOSET(GO),SPACE=(TRK,(10,10,1)), UNIT=SYSALLDA,DISP=(MOD,PASS)
24 XXSYSUT1 DD UNIT=SYSALLDA,SPACE=(TRK,(10,10))
STMT NO. MESSAGE
Los errores son:
3 IEFC001I PROCEDURE IGYWCL WAS EXPANDED USING PRIVATE LIBRARY ADCD.Z16.PROCLIB
24 IEF686I DDNAME REFERRED TO ON DDNAME KEYWORD IN PRIOR STEP WAS NOT RESOLVED
01I IBMUSER LAST ACCESS AT 19:03:01 ON THURSDAY, DECEMBER 10, 2020
I PRUEBA COBOL STEPLIB - DATA SET NOT FOUND
I PRUEBA COBOL - STEP WAS NOT EXECUTED.
I STEP/COBOL /START 2020345.1922
I STEP/COBOL /STOP 2020345.1922 CPU 0MIN 00.00SEC SRB 0MIN 00.00
I JOB/PRUEBA /START 2020345.1922
I JOB/PRUEBA /STOP 2020345.1922 CPU 0MIN 00.00SEC SRB 0MIN 00.00
************************* BOTTOM OF DATA ********************************
Intuyo que es algo relacionado con las librerías pero no comprendo dónde está el error.
¿Podrías ayudarme?
Gracias anticipadas.
Miguel.