AMENDMENT CURRENTLY IN PROGRESS
CAN NOT CHANGE UNIQUE INDEX OR KEY FIELDS
CLEAR IS INVALID
DATA HAS NOT BEEN COPIED
DATA HAS NOT BEEN DELETED
DATA HAS NOT BEEN SAVED
O/P: RECFM FB/133
APS001|AMENDMENT CURRENTLY IN PROGRESS
APS001|CAN NOT CHANGE UNIQUE INDEX OR KEY FIELDS
APS001|CLEAR IS INVALID
APS002|DATA HAS NOT BEEN COPIED
APS002|DATA HAS NOT BEEN DELETED
APS002|DATA HAS NOT BEEN SAVED
And looking into your input data, it seems like you dont need a 'PARSE' application here or in other words it wont work out for you. PARSE cannot propagate fields across a 'GROUP'. If you have Syncsort for z/OS 1.3.2,you can try the below one.
Also as per your initial post, output LRECL is 133 which might not be the case as you are adding the 'screen name' - 6 byte and a '|' symbol to each record making it 140.