RE: RECIBIR PARAMETROS EN COBOL/400
En el PROCEDURE DIVISION te falta el USING el campo de la Linkage con los parametros WDISP WUSER WOBJ ETC. Saludos *De:* forum.help400-boun...@listas.combios.es [mailto: forum.help400-boun...@listas.combios.es] *En nombre de *Javier Baca *Enviado el:* divendres, 6 d’octubre de 2017 11:26 *Para:* forum.help400@listas.combios.es *Asunto:* RECIBIR PARAMETROS EN COBOL/400 Buenos días : Estoy refrescando COBOL/400 y no me acuerdo cómo recibir parámetros desde CL. Hago lo siguiente : CL : PGM DCLVAR(&WDISP) TYPE(*CHAR) LEN(10) DCLVAR(&WUSER) TYPE(*CHAR) LEN(10) DCLVAR(&WJOB) TYPE(*CHAR) LEN(6) DCLVAR(&WDEMP) TYPE(*CHAR) LEN(30) RTVJOBAJOB(&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.
RE: RECIBIR PARAMETROS EN COBOL/400
De: forum.help400-boun...@listas.combios.es [mailto:forum.help400-boun...@listas.combios.es] En nombre de Javier Baca Enviado el: viernes, 6 de octubre de 2017 11:26 Para: forum.help400@listas.combios.es Asunto: RECIBIR PARAMETROS EN COBOL/400 Buenos días : Estoy refrescando COBOL/400 y no me acuerdo cómo recibir parámetros desde CL. Hago lo siguiente : CL : PGM DCLVAR(&WDISP) TYPE(*CHAR) LEN(10) DCLVAR(&WUSER) TYPE(*CHAR) LEN(10) DCLVAR(&WJOB) TYPE(*CHAR) LEN(6) DCLVAR(&WDEMP) TYPE(*CHAR) LEN(30) RTVJOBAJOB(&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 USING WDISP WUSER WJOB WDEMP. 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.
RECIBIR PARAMETROS EN COBOL/400
Buenos días : Estoy refrescando COBOL/400 y no me acuerdo cómo recibir parámetros desde CL. Hago lo siguiente : CL : PGM DCLVAR(&WDISP) TYPE(*CHAR) LEN(10) DCLVAR(&WUSER) TYPE(*CHAR) LEN(10) DCLVAR(&WJOB) TYPE(*CHAR) LEN(6) DCLVAR(&WDEMP) TYPE(*CHAR) LEN(30) RTVJOBAJOB(&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.