Search found 2 matches
- Thu Sep 21, 2017 11:36 pm
- Forum: COBOL
- Topic: Inspect to remove spaces
- Replies: 0
- Views: 5371
Inspect to remove spaces
Code: INSPECT 800-ID REPLACING LEADING ZEROS BY SPACES DISPLAY '800-ID:'800-ID MOVE 800-ID TO 800-ID1 DISPLAY '800-ID1:'800-ID1 INSPECT 800-ID1 TALLYING 800-CNT FOR LEADING SPACES DISPLAY '800-CNT:'800-CNT MOVE 800-ID(800-CNT + 1:12 - 800-CNT) TO 800-ID2 SUBTRACT 800-CNT FROM LENGTH OF 800-ID GIVING...
- Thu Sep 21, 2017 6:35 am
- Forum: DFSORT , ICETOOL & Utilities
- Topic: Replacing data from file to another in jcl
- Replies: 0
- Views: 4998
Replacing data from file to another in jcl
I have two 2 files of 600 records. I want to replace the data from file 2 to file1 at particular postion. I dont have any key, first record from file 2 should replace the first record in file 2, second record from file2 to be replaced by second record in file1, and so on. Please suggest me how to gi...