Buenos días :
Estoy refrescando COBOL/400 y no me acuerdo cómo recibir parámetros desde CL.
Hago lo siguiente :
CL :
PGM
DCL VAR(&WDISP) TYPE(*CHAR) LEN(10)
DCL VAR(&WUSER) TYPE(*CHAR) LEN(10)
DCL VAR(&WJOB) TYPE(*CHAR) LEN(6)
DCL VAR(&WDEMP) TYPE(*CHAR) LEN(30)
RTVJOBA JOB(&WDISP) USER(&WUSER) NBR(&WJOB)
RTVDTAARA DTAARA(DEPOTF/CONFIG (1 30)) RTNVAR(&WDEMP)
CALL PGM(COBOL6) PARM(&WDISP &WUSER &WJOB &WDEMP)
ENDPGM
COBOL6 :
...
...
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
LINKAGE SECTION.
01 WDISP PIC X(10).
01 WUSER PIC X(10).
01 WJOB PIC X(6).
01 WDEMP PIC X(30).
PROCEDURE DIVISION.
MAIN.
DISPLAY 'WDISP=' WDISP.
DISPLAY 'WUSER=' WUSER.
DISPLAY 'WJOB =' WJOB.
DISPLAY 'WDEMP=' WDEMP.
STOP RUN.
Pero da el error "Los parámetros que se han pasado en CALL no coinciden con los
requeridos.".
¿Alguien me puede ayuar?, muchas gracias anticipadas.
Javier
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
