Convert PIC S9(004) COMP to character



Support for OS/VS COBOL, VS COBOL II, COBOL for OS/390 & VM and Enterprise COBOL for z/OS

Re: Convert PIC S9(004) COMP to character

Postby tivrfoa » Wed Aug 22, 2012 10:27 pm

Robert Sample wrote:Move the individual variables, NOT the group level. Moving the group level will NOT convert the binary data. Your WRITE FROM is a group-level move, hence the binary data will not be converted to display format.

It worked!!! :D
Sorry, I didn't know it.

MOVE TPO TO T-TPO
MOVE CLS TO T-CLS
MOVE SCL TO T-SCL
MOVE SEQ TO T-SEQ

And in the FILE SECTION can be both Z or 9, with Z eliminating the leading zeros.

Thanks folks. :)
tivrfoa
 
Posts: 84
Joined: Wed Aug 22, 2012 6:35 pm
Has thanked: 60 times
Been thanked: 0 time

Previous

Return to IBM Cobol

 


  • Related topics
    Replies
    Views
    Last post