Joined: 27 Oct 2009 Posts: 2445 Location: Netherlands, Amstelveen
Since you didn't supply record length info,
the following code assumes variable length
with a minimum of 8 bytes for the 1st record
and a maximum of 80 bytes for the 2nd record.
JOBNAME 1 1 A
JOBTEXT 1 1 A
WJOBNAME W 8 A
WJOBTEXT W 80 A
MOVE JOBNAME RECORD-LENGTH TO WJOBNAME 8 FILL ' '
MOVE JOBTEXT RECORD-LENGTH TO WJOBTEXT 80 FILL ' '
DISPLAY WJOBNAME ' ' WJOBTEXT