• Search Forums
    Advanced Search Topics Posts
Prev
Next
Forums Integration / Customization S3 Customization/Development

4GL, Fixed Length Record with Trailing spaces

 3 Replies
 0 Subscribed to this topic
 17 Subscribed to this forum
Sort:
Author
Messages
pvhmc
Basic Member Send Private Message
Posts: 5
Basic Member
4/26/2007 5:40 PM
Writing out a data file using 4GL. Each line in my file is fixed width of 750 characters. But the last populated field is at character 650. The remaining fields are populated with spaces. When I define the workfile to be TAPE, the line of my file ends at 650 (last non-space character). I need the file to place the carriage return-line feed at 750. Is there a pure 4GL way to accomplish this. (I am not going to be able to script this out on Unix after the fact.)

I know I could make the workfile sequential and chop it up at 750 chars using cnvexp, but again, I cannot script that to happen (though I could do it with WS-COMMAND).
Sam Simpson
Veteran Member Send Private Message
Posts: 239
Veteran Member
4/26/2007 7:02 PM
It's been awhile since I used carriage return in fixed format files and I could not find my old sample. However I thought if you are using TAPE then you have to create tape control character (HEX 13). Here's an example and hope it helps.

MOVE 19 (HEX 13) TO WS-IBMSL-VALUE IN PD FOR TAPEMARK
CHARACTER IN WS-IBMSL-TAPEMARK.

02 WS-IBMSL-TAPEMARK.
03 WS-TP PIC X(01) VALUE SPACES.
02 WS-IBMSL-VALUE REDEFINES WS-IBMSL-TAPEMARK
PIC 9(02) COMP.


For more information, please refer to PR299 cobol program.
John Henley
Send Private Message
Posts: 3355
4/26/2007 7:11 PM
I think it's much easier if you just create a script that uses cnvexp, and call it from within your program...I use that technique all the time.
Thanks for using the LawsonGuru.com forums!
John
Sam Simpson
Veteran Member Send Private Message
Posts: 239
Veteran Member
4/26/2007 7:24 PM
Now I just remembered how I did it. from previous posting you initialize WS-IBMSL-TAPEMARK by moving 19 to WS-IBMSL-VALUE. Then put WS-TP as the last
character of your record. The only thing I'm not sure is the placement 750 or 751 byte.
You have to test this one.

And as John said you can also use cnvexp in a script and called within the same program.