Hi,
I have this in CL:
DCL VAR(&PARM) TYPE(*CHAR) LEN(16)
DCL VAR(&STRING) TYPE(*CHAR) LEN(500)
DCL VAR(&STATUZ) TYPE(*CHAR) LEN(4)
CHGVAR VAR(&PARM) VALUE('DROPTESTING12301')
CALL PGM(PGM1) PARM(&PARM)
SNDPGMMSG MSG(&PARM)
SNDPGMMSG MSG(&STRING)
SNDPGMMSG MSG(&STATUZ)
in the linkage of cobol PGM1
01 TEST-REC.
03 TEST-PARM PIC X(16).
03 TEST-STRING PIC X(500).
03 TEST-STATUZ PIC X(4).
when i ran the CL
here's the MSG:
PARM: DROPTESTING12301
STRING: /TEMP_TAB01
STATUS: (spaces)
i have put a display in cobol.
PARM: DROPTESTING12301
STRING: DROP TABLE QTEMP/TEMP_TAB01
STATUS: (spaces)
i expected them to be the same.
then i try to change the TEST-PARM into PIC X(32)
the display in cobol is still the same.
but the CL MSG is now correct.
PARM: DROPTESTING12301
STRING: DROP TABLE QTEMP/TEMP_TAB01
STATUS: (spaces)
can someone explain why? Thanks!
I have this in CL:
DCL VAR(&PARM) TYPE(*CHAR) LEN(16)
DCL VAR(&STRING) TYPE(*CHAR) LEN(500)
DCL VAR(&STATUZ) TYPE(*CHAR) LEN(4)
CHGVAR VAR(&PARM) VALUE('DROPTESTING12301')
CALL PGM(PGM1) PARM(&PARM)
SNDPGMMSG MSG(&PARM)
SNDPGMMSG MSG(&STRING)
SNDPGMMSG MSG(&STATUZ)
in the linkage of cobol PGM1
01 TEST-REC.
03 TEST-PARM PIC X(16).
03 TEST-STRING PIC X(500).
03 TEST-STATUZ PIC X(4).
when i ran the CL
here's the MSG:
PARM: DROPTESTING12301
STRING: /TEMP_TAB01
STATUS: (spaces)
i have put a display in cobol.
PARM: DROPTESTING12301
STRING: DROP TABLE QTEMP/TEMP_TAB01
STATUS: (spaces)
i expected them to be the same.
then i try to change the TEST-PARM into PIC X(32)
the display in cobol is still the same.
but the CL MSG is now correct.
PARM: DROPTESTING12301
STRING: DROP TABLE QTEMP/TEMP_TAB01
STATUS: (spaces)
can someone explain why? Thanks!
Comment