Hi! We need to append trailing characters to each record of a RECFM=VB data set. DFSORT is almost fine: OUTFIL ...,BUILD=(RDW,5,80,JFY=(SHIFT=LEFT,TRAIL=C'TRAILERTEXT')) (RDW is defined as 1,4 in SYMNAMES DD)
However, sometimes we have blanks at the leftmost part of the records which we must not remove. I tried OUTFIL ...,BUILD=(RDW,5,80,JFY=(SHIFT=NONE,TRAIL=X'TRAILERTEXT')) but this does not work as one might guess from the manual. I was playing around with BUILD=(RDW,5,X'TRAILINGTEXT') but got X'TRAILINGTEXT' marked as "ICE007A E SYNTAX ERROR". According to manual this should work because form BUILD=(p,m,p,s) is covered by syntax description. But I think from explanation p (second one, here the 5) must be last field. So the following separator is not allowed. BUILD=(RDW,5,80,X'TRAILINGTEXT'),VLFILL='X40' works fine. But record length of 80 is just an example and actual maximum record length might be quite large. Most of records are just a few characters...what a waste. From my experience with DFSORT answer will be fascinating simple. But I am not seeing the obvious. Thank you, kind regards Michael ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
