|
midrange.com
Here is what I copied out earlier from Steve Easton (use fixed font!):
0001.00 A*****************************************************************
0002.00 A* *
0003.00 A* SYSTEM DATA STRUCTURE . *
0004.00 A* Not Copyrighted *
0005.00 A* Freeware, put into any and all programs as desired *
0006.00 A* Give it away, distribute as part of any program *
0007.00 A* Author, Steve Easton, Midrange System Design *
0008.00 A* e-mail, easton@ionet.net *
0009.00 A* *
0010.00 A* *
0011.00 A* *
0012.00 A*****************************************************************
0013.00 A R RSDS
0014.00 A* THE FIELDS FOR THE DATA AREA:
0015.00 A TEXT('DATA AREA:')
0016.00 A PRGNAM 10 COLHDG('Program Name')
0017.00 A TEXT('ID')
0018.00 A PGMSTS 5S 0 COLHDG('Program Status')
0019.00 A TEXT('Status Code')
0020.00 A PGMPRV 5S 0 COLHDG('Previous Status')
0021.00 A TEXT('Previous status')
0022.00 A SRCNBR 8 COLHDG('Source Statement')
0023.00 A TEXT('Source statement #')
0024.00 A RPGRTN 8 COLHDG('Routine')
0025.00 A TEXT('Exception Routine
Name')
0026.00 A PARMS 3S 0 COLHDG('Parameters Passed')
0027.00 A TEXT('number of parms
passed')
0028.00 A MSGTYP 3 COLHDG('Message Type')
0029.00 A TEXT('exception routine
name')
0030.00 A MSGNBR 4 COLHDG('Message Number')
0031.00 A TEXT('Exception Message
number')
0032.00 A MIODT 4 COLHDG('Machine
Instructions')
0033.00 A MSGWRK 30 COLHDG('Message Work')
0034.00 A PGMLIB 10 COLHDG('Program Library')
0035.00 A MSGTXT 80 COLHDG('Message Text')
0036.00 A MSGID 4 COLHDG('Message ID')
0037.00 A SDS001 26 COLHDG('filler')
0038.00 A FILNAM 8 COLHDG('Last File Name')
0039.00 A FILSTS 35 COLHDG('Last File Status')
0040.00 A JOBNAM 10 COLHDG('Job Name')
0041.00 A USRPRF 10 COLHDG('User Name')
0042.00 A JOBNBR 6S 0 COLHDG('Job Number')
0043.00 A EDTCDE(3)
0044.00 A DTJOBR 6S 0 COLHDG('Job Start Date')
0045.00 A EDTCDE(Y)
0046.00 A DTPGME 6S 0 COLHDG('Job Entry Date')
0047.00 A EDTCDE(Y)
0048.00 A TIPGME 6S 0 COLHDG('Job Entry Time')
0049.00 A CMPDAT 6 COLHDG('Compiler Date')
0050.00 A CMPTIM 6 COLHDG('Compiler Time')
0051.00 A CMPLVL 4 COLHDG('Compiler Level')
0052.00 A SFFIL 10 COLHDG('Source File')
0053.00 A SFLIB 10 COLHDG('Source Library')
0054.00 A SFMBR 10 COLHDG('Source Member')
In <360BC6C8.678C55BC@IQUEST.NET>, on 09/25/98
at 12:37 PM, Chuck Lewis <CLEWIS@IQUEST.NET> said:
>Hi Folks !
>I know that you can define the SYSDS into your RPG program and am aware
>of some of the layout (i.e.199-200 is Century, 270-275 is System Date,
>276-281 is Current Date and 282-287 is Current Time). Where can I find an
>entire layout of this ?
>Thanks !!
>Chuck
--
-----------------------------------------------------------
boothm@ibm.net
Booth Martin
-----------------------------------------------------------
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-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.
