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.



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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