ecki/IBM-i-RPG-Free-CLP-Code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Source on IFS & Local Development

Browse Source
This commit is contained in:
SJLennon
2024-04-10 16:16:48 -04:00
parent 57c4efd0aa
commit a2d8f9c33c
83 changed files with 5807 additions and 4011 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Copy_Mbrs/USPHDR.RPGLE
+26 -25
View File
@@ -1,25 +1,26 @@
//=== USPHDR Description =============================================
// The list APIs which return data in a user space put a standard
// header at the start of the user space. This descibes the header.
//=== Basing Pointer for Header ======================================
D UspPtr s * inz(*Null)
//=== User Space Header Layout =======================================
D UspHdr ds based(UspPtr)
D UspH 192a
D UspUser 64a overlay(UspH:1)
D UspSize 10i 0 overlay(UspH:65)
D UspInfSts 1a overlay(UspH:104)
D UspICmpl c const('C')
D UspIPrtl c const('P')
D UspIIncp c const('I')
D UspSpSize 10i 0 overlay(UspH:105)
D UspInOff 10i 0 overlay(UspH:109)
D UspInSize 10i 0 overlay(UspH:113)
D UspHdrOfs 10i 0 overlay(UspH:117)
D UspHdrSize 10i 0 overlay(UspH:121)
D UspLstOfs 10i 0 overlay(UspH:125)
D UspLstSize 10i 0 overlay(UspH:129)
D UspLst#Ent 10i 0 overlay(UspH:133)
D UspLstEntSz 10i 0 overlay(UspH:137)
**free
//=== USPHDR Description =============================================
// The list APIs which return data in a user space put a standard
// header at the start of the user space. This descibes the header.
//=== Basing Pointer for Header ======================================
dcl-s UspPtr pointer inz(*null);
//=== User Space Header Layout =======================================
dcl-ds UspHdr based(uspptr);
UspH char(192);
UspUser char(64) overlay(usph:1);
UspSize int(10) overlay(usph:65);
UspInfSts char(1) overlay(usph:104);
UspSpSize int(10) overlay(usph:105);
UspInOff int(10) overlay(usph:109);
UspInSize int(10) overlay(usph:113);
UspHdrOfs int(10) overlay(usph:117);
UspHdrSize int(10) overlay(usph:121);
UspLstOfs int(10) overlay(usph:125);
UspLstSize int(10) overlay(usph:129);
UspLst#Ent int(10) overlay(usph:133);
UspLstEntSz int(10) overlay(usph:137);
end-ds;
// UspInfSts values
dcl-c UspICmpl const('C');
dcl-c UspIPrtl const('P');
dcl-c UspIIncp const('I');