×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
CRTBNDCL
STRDBG
Display Module Source
1- PGM
100- DCL VAR(&RETURNCODE) TYPE(*DEC) LEN(5 0)
200- DCL VAR(&RC) TYPE(*CHAR) LEN(5)
300- /* CHGVAR VAR(&RETURNCODE) +
400 VALUE(%BIN(&MSGDTA 1 4)) */
500- CHGVAR VAR(&RETURNCODE) +
600 VALUE(&RETURNCODE + 240)
700- CHGVAR VAR(&RC) VALUE(&RETURNCODE)
800- DMPCLPGM
900- ENDPGM
Step to DMPCLPGM
EVAL &RC :X
F0F0F2F4 F0...... ........ ........ - 00240
EVAL &RETURNCODE :X
00240F
From the dump
Variable Type Length
&RC *CHAR 5
&RETURNCODE *DEC 5 0
Value Value in Hexadecimal
*...+....1....+....2....+ * . . . + . . . . 1
'00240' F0F0F2F4F0
240
Rob Berendt
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact
[javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
