The comp data is part of an Alphanumeric group field.
01 ws-employee-nbr PIC 9(9).
01 ws-employee-nbr-temp PIC PIC S9(09).
05 employee-nbr PIC 9(9) comp.
05 employee-name PIC X(40).
move employee-group(1:4) to ws-employee-nbr-temp
move ws-employee-nbr-temp to ws-employee-nbr
Will the above work the same in TX Series? Is the offset lengths of group fields the same in TX as it is on the mainframe?
Thanks in advance
- TX Newbie