Search found 2 matches

by Krishna0608
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...
by Krishna0608
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...