Author: sundaram.naveen
Subject: Reply to: Checking wether a string starts from a particular column.
Posted: Thu Oct 06, 2016 12:14 pm (GMT 5.5)
I want all the PIC clause to start from col40(say). Below is my sample in put and my expected output
******INPUT*******
******OUTPUT*****
The above code is a part of a cobol program. I also need to make sure all the 'TO' variables are starting at col40 too. So it's like a review/correction that needs to be done on the input file and give a final sorted output file
Subject: Reply to: Checking wether a string starts from a particular column.
Posted: Thu Oct 06, 2016 12:14 pm (GMT 5.5)
I want all the PIC clause to start from col40(say). Below is my sample in put and my expected output
******INPUT*******
| Code: |
005900 01 SORTED-RECORD. 006000 05 WS-SR-ACCT-NO PIC X(05). 006100 05 FILLER PIC X(05). 006200 05 WS-SR-AMOUNT PIC 9(05). 006300 05 WS-SR-CUST-NAME PIC X(10). 006400 05 FILLER PIC X(55). |
******OUTPUT*****
| Code: |
005900 01 SORTED-RECORD. 006000 05 WS-SR-ACCT-NO PIC X(05). 006100 05 FILLER PIC X(05). 006200 05 WS-SR-AMOUNT PIC 9(05). 006300 05 WS-SR-CUST-NAME PIC X(10). 006400 05 FILLER PIC X(55). |
The above code is a part of a cobol program. I also need to make sure all the 'TO' variables are starting at col40 too. So it's like a review/correction that needs to be done on the input file and give a final sorted output file
