Login
Register
Search
Home
Forums
Jobs
LawsonGuru
LawsonGuru Letter
LawsonGuru Blog
Worthwhile Reading
Infor Lawson News Feed
Store
Store FAQs
About
Forums
Integration / Customization
S3 Customization/Development
4GL, Fixed Length Record with Trailing spaces
Home
Forums
Jobs
LawsonGuru
LawsonGuru Letter
LawsonGuru Blog
Worthwhile Reading
Infor Lawson News Feed
Store
Store FAQs
About
Who's On?
Membership:
Latest:
Chris Radcliffe
Past 24 Hours:
0
Prev. 24 Hours:
0
Overall:
5187
People Online:
Visitors:
309
Members:
0
Total:
309
Online Now:
New Topics
S3 Customization/Development
Cobol - Extract Current Time
4/24/2024 7:21 PM
How do you extract just the Current System Time in
Lawson Landmark
LPL INSTR Functions
4/5/2024 8:32 PM
I'm writing a simple report using the Create R
Infor SCM
Translating 856 to get the ~ REF^CN^ field
4/3/2024 8:24 PM
We are trying to get the tracking number which is
IPA/ProcessFlow
Sample XML file create Flow
4/3/2024 3:43 PM
Hello everyone, I am new to creating XML files
Lawson S3 HR/Payroll/Benefits
bn105 error message
3/26/2024 6:40 PM
I need to change some of the set ups in our Life I
IPA/ProcessFlow
IPA executing Job
3/13/2024 7:08 PM
New to the IPA world and was wondering, can an IPA
Lawson S3 HR/Payroll/Benefits
Life Age Reduction on benefits plans
3/12/2024 7:15 PM
For our optional life we have an age based coverag
Lawson S3 HR/Payroll/Benefits
BN53.1 Add-In
3/7/2024 3:31 PM
We are migrating to Solstice. They require a
Lawson Business Intelligence/Reporting/Crystal
Domain Name Change
3/5/2024 7:45 PM
Our domain name needs to change and was hoping I c
S3 Customization/Development
Cobol calling Shell Script
2/29/2024 1:27 PM
Has anyone created or modified a Lawson Cobol prog
Top Forum Posters
Name
Points
Greg Moeller
4184
David Williams
3349
JonA
3288
Kat V
2984
Woozy
1973
Jimmy Chiu
1883
Kwane McNeal
1437
Ragu Raghavan
1351
Roger French
1311
mark.cook
1244
Forums
Unanswered
Active Topics
Most Liked
Most Replies
Search Forums
Search
Advanced Search
Topics
Posts
Prev
Next
Forums
S3 Customization/Development
4GL, Fixed Length Record with Trailing spaces
Sort:
Oldest First
Most Recent First
You are not authorized to post a reply.
Author
Messages
pvhmc
Basic Member
Posts: 5
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
Posts: 239
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
Senior Member
Posts: 3348
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.
Sam Simpson
Veteran Member
Posts: 239
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.
You are not authorized to post a reply.