|
midrange.com
*************** Beginning of data ***************************************
*****************************************************************
* *
* SYSTEM DATA STRUCTURE . *
* Not Copyrighted *
* Freeware, put into any and all programs as desired *
* Give it away, distribute as part of any program *
* Author, Steve Easton, Midrange System Design *
* e-mail, easton@ionet.net *
* *
* *
*****************************************************************
A R RSDS
A* THE FIELDS FOR THE DATA AREA:
A TEXT('DATA AREA:')
A PRGNAM 10 COLHDG('Program Name')
A TEXT('ID')
A PGMSTS 5S 0 COLHDG('Program Status')
A TEXT('Status Code')
A PGMPRV 5S 0 COLHDG('Previous Status')
A TEXT('Previous status')
A SRCNBR 8 COLHDG('Source Statement')
A TEXT('Source statement #')
A RPGRTN 8 COLHDG('Routine')
A TEXT('Exception Routine Name')
A PARMS 3S 0 COLHDG('Parameters Passed')
A TEXT('number of parms passed')
A MSGTYP 3 COLHDG('Message Type')
A TEXT('exception routine name')
A MSGNBR 4 COLHDG('Message Number')
A TEXT('Exception Message
number')
A MIODT 4 COLHDG('Machine Instructions')
A MSGWRK 30 COLHDG('Message Work')
A PGMLIB 10 COLHDG('Program Library')
A MSGTXT 80 COLHDG('Message Text')
A MSGID 4 COLHDG('Message ID')
A SDS001 26 COLHDG('filler')
A FILNAM 8 COLHDG('Last File Name')
A FILSTS 35 COLHDG('Last File Status')
A JOBNAM 10 COLHDG('Job Name')
A USRPRF 10 COLHDG('User Name')
A JOBNBR 6S 0 COLHDG('Job Number')
A EDTCDE(3)
A DTJOBR 6S 0 COLHDG('Job Start Date')
A EDTCDE(Y)
A DTPGME 6S 0 COLHDG('Job Entry Date')
A EDTCDE(Y)
A TIPGME 6S 0 COLHDG('Job Entry Time')
A CMPDAT 6 COLHDG('Compiler Date')
A CMPTIM 6 COLHDG('Compiler Time')
A CMPLVL 4 COLHDG('Compiler Level')
A SFFIL 10 COLHDG('Source File')
A SFLIB 10 COLHDG('Source Library')
A SFMBR 10 COLHDG('Source Member')
_______________________
Booth Martin
Booth@MartinVT.com
http://www.MartinVT.com
_______________________
mcurrie@auspinners.com.au
Sent by: owner-rpg400-l@midrange.com
09/22/2000 12:22 AM
Please respond to RPG400-L
To: RPG400-L@midrange.com
cc:
Subject: INFDS
Where can I find all the field positions and what is contained in each
field of the INFDS data structure.
Thanks
Mark
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
