Re: CL type conversion error -- MIDRANGE-L

Subject: Re: CL type conversion error
From: rob@xxxxxxxxx
Date: Tue, 14 Apr 2009 15:43:36 -0400
List-archive: <http://archive.midrange.com/midrange-l>
List-help: <mailto:midrange-l-request@midrange.com?subject=help>
List-id: Midrange Systems Technical Discussion <midrange-l.midrange.com>
List-post: <mailto:midrange-l@midrange.com>
List-subscribe: <http://lists.midrange.com/mailman/listinfo/midrange-l>, <mailto:midrange-l-request@midrange.com?subject=subscribe>
List-unsubscribe: <http://lists.midrange.com/mailman/listinfo/midrange-l>, <mailto:midrange-l-request@midrange.com?subject=unsubscribe>

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

As an Amazon Associate we earn from qualifying purchases.

Follow-Ups:

Re: CL type conversion error , John McKee

This mailing list archive is Copyright 1997-2025 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.