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
DB read and initializing values
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:
293
Members:
0
Total:
293
Online Now:
New Topics
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
Infor ION
ION vs IPA
2/29/2024 1:24 AM
We had a person new to Lawson and Infor go to Info
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
1348
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
DB read and initializing values
Sort:
Oldest First
Most Recent First
You are not authorized to post a reply.
Author
Messages
Chesca
Veteran Member
Posts: 490
5/8/2012 3:14 PM
coming from the mainframe world and SQL, I would initialize DB fields by initializing the declagen. How is it done in 4GL?
MOVE LPMST-TEM-COMPANY TO DB-COMPANY.
MOVE LPMST-TEM-EMPLOYEE TO DB-EMPLOYEE.
MOVE LPMST-TEM-PLAN TO DB-PLAN.
MOVE LPMST-TEM-EMPLOYEE-GROUP TO DB-EMPLOYEE-GROUP.
MOVE LPMST-TEM-POSITION TO DB-POSITION.
MOVE 5 TO WS-DB-BEG-RNG.
MOVE SPACES TO FILTER-STRING.
MOVE "(TTR-TRAN-TYPE = '21')" TO FILTER-STRING.
PERFORM 890-CREATE-FILTER.
PERFORM 850-FILTER-BEGRNG-TTRSET1.
PERFORM
UNTIL (TAEMPTRANS-KNOTFOUND)
Ari
Veteran Member
Posts: 49
5/8/2012 11:10 PM
I assume you mean a DCLGEN. (Table schema used by Mainframe COBOL programs that work against a database. Usually DB2).
In Lawson the DCLGEN is essentially taken care of by defining the Table(File) in dbdef. Blddbdict is then run to produce an interim Data Dictionary. Dbreog is then run to make the dictionary permanent and to build any tables in the Database that are needed.
When a COBOL program that was built with the Case\4GL tool is compiled the COBOL record descriptions are created in the source code from the dbdef definitions. Move statements are the same as any standard COBOL. The Lawson Case\4GL is ultimately compiled to Microfocus Net Express Cobol. If you want to put some value in a Database Table Column you would just move it to the Database Table Column Name that has been defined in dbdef. When the record is read or written to the Database it just goes through an API Routine that uses the Data Dictionary for data type translation to an OLE-DB Driver to the database.
You are not authorized to post a reply.