Re: [COBOL400-L] Conversion of numeric data to character format?

["Jay Sulzmann" <jsulzmann@xxxxxxxxxxx>]

Works for me!
Thanks to all who offered solutions. -- Jay

----- Original Message ----- 
From: "Terry Grider" <Terry.Grider@xxxxxxxxxxxxxxxx>
To: "COBOL Programming on the iSeries/AS400" <cobol400-l@xxxxxxxxxxxx>
Sent: Thursday, August 19, 2004 11:53 AM
Subject: RE: [COBOL400-L] Conversion of numeric data to character format?


>
>        WORKING-STORAGE SECTION.
>        01  WS-WORK-FIELDS.
>            03  CUSTNBR                           PIC S9(6) USAGE DISPLAY.
>            03  MESSAGE-DATA                PIC X(30).
>            03  L                                        PIC S9(5) VALUE
+0.
>        PROCEDURE DIVISION.
>            MOVE SPACES TO MESSAGE-DATA.
>            MOVE 123.00 TO CUSTNBR.
>            INSPECT CUSTNBR TALLYING L FOR LEADING '0'.
>            STRING 'CUSTOMER NUMBER '
>                   CUSTNBR(L + 1:6 - L) INTO MESSAGE-DATA.
>
>
> -----Original Message-----
> From: Jay Sulzmann [mailto:jsulzmann@xxxxxxxxxxx]
> Sent: Monday, August 16, 2004 10:28 AM
> To: COBOL Programming on the iSeries/AS400
> Subject: [COBOL400-L] Conversion of numeric data to character format?
>
>
> Dear COBOL experts,
>
> Is there any equivalent of the following in COBOL, or an easier way to do
it than fooling around with numeric-edited fields?
>
> CustNbr is a 6-digit signed (USAGE IS DISPLAY) field. I want to put the
Customer Number (CustNbr) into message data (MessageData) to pass to the
QMHSNDPM API. If the customer number is 123,and I do the following using
free-format RPG-IV,
>
>     MessageData = %char( CustNbr );
>
> the input is 000123 and the output would be 123 (left-justified and all).
The message looks like Customer Number 123 is not on file.
>
> The only way I know how to do this in COBOL results in
> Customer Number       123 is not on file.
>
> Cheers -- Jay
>
> =================================
> Jay Sulzmann
> AS/400 Senior Programmer/Analyst
> AS/400 Certified RPG IV Developer
>
> Hainey Business Systems LLC
> 8 East Canal Street
> Dover, PA  17315
>
> Tel:  717-718-9601 Ext. 231
> Fax:  717-292-9474
> AIM: bluejay0827
> Web: www.hbs-inc.com
> ____________________________________
> Providing E-Business, EDI, AS/400
> Development and related services nationwide.
> _______________________________________________
> This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing
list
> To post a message email: COBOL400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
> or email: COBOL400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/cobol400-l.
>
>
> _______________________________________________
> This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing
list
> To post a message email: COBOL400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
> or email: COBOL400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/cobol400-l.
>
>