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/AIDBYTES.RPGLE
+51
View File
@@ -0,0 +1,51 @@
**FREE
// 5250 Attention Indicator (AID) definitions
dcl-c F01 const(x'31');
dcl-c F02 const(x'32');
dcl-c F03 const(x'33');
dcl-c F04 const(x'34');
dcl-c F05 const(x'35');
dcl-c F06 const(x'36');
dcl-c F07 const(x'37');
dcl-c F08 const(x'38');
dcl-c F09 const(x'39');
dcl-c F10 const(x'3A');
dcl-c F11 const(x'3B');
dcl-c F12 const(x'3C');
dcl-c F13 const(x'B1');
dcl-c F14 const(x'B2');
dcl-c F15 const(x'B3');
dcl-c F16 const(x'B4');
dcl-c F17 const(x'B5');
dcl-c F18 const(x'B6');
dcl-c F19 const(x'B7');
dcl-c F20 const(x'B8');
dcl-c F21 const(x'B9');
dcl-c F22 const(x'BA');
dcl-c F23 const(x'BB');
dcl-c F24 const(x'BC');
// Page Down/Roll Up
dcl-c RollUp const(x'F5');
dcl-c PageDown const(x'F5');
// Page Up/Roll Down
dcl-c RollDown const(x'F4');
dcl-c PageUp const(x'F4');
// Enter
dcl-c Enter const(x'F1');
dcl-c Home const(x'F8');
//Mouse events linked to DDS MOUBTN keyword
dcl-c ME00 const(x'70');
dcl-c ME01 const(x'71');
dcl-c ME02 const(x'72');
dcl-c ME03 const(x'73');
dcl-c ME04 const(x'74');
dcl-c ME05 const(x'75');
dcl-c ME06 const(x'76');
dcl-c ME07 const(x'77');
dcl-c ME08 const(x'78');
dcl-c ME09 const(x'79');
dcl-c ME10 const(x'7A');
dcl-c ME11 const(x'7B');
dcl-c ME12 const(x'7C');
dcl-c ME13 const(x'7D');
dcl-c ME14 const(x'7E');
Copy_Mbrs/BASE36_P.RPGLE
+5
View File
@@ -0,0 +1,5 @@
**FREE
// === BASE36ADD prototype ==========================================
dcl-pr BASE36ADD varchar(50);
theValue varchar(50) const;
end-pr;
Copy_Mbrs/README.md
+13 -9
View File
@@ -2,30 +2,34 @@
These are source files that will be copied into programs using /COPY or /INCLUDE
* ##AIDBTYE
* ##AIDBTYE.RPGLE
5250 Attention ID Definitions. These are the value that are returned in byte 369 of the display file indicator data structure when a screen entry is made.
5250 Attention ID Definitions. These are the value that are returned in byte 369 of the display file indicator data structure when a screen entry is made.
* SRV_MSG_P
* SRV_MSG_P.RPGLE
Prototype definitions for procedures in the SRV_MSG service program.
* SRV_STR_P
* SRV_RAND_P.RPGLE
Prototype definitions for procedures in the SRV_STR service program.
Prototype definitions for procedures in the SRV_RANDOM service program.
* SRV_SQL_P
* SRV_SQL_P.RPGLE
Prorotype definitions for procedures in the SQL_SRV service program.
* USADRVAL_P
* SRV_STR_P.RPGLE
Prototype definitions for procedures in the SRV_STR service program.
* USADRVAL_P.RPGLE
Prototype for the USADRVAL service program.
* USADRVALDS
* USADRVALDS.RPGLE
Template Data Structure for the USADRVAL parameters.
* USPHDR
* USPHDR.RPGLE
User Space Header Layout.
Copy_Mbrs/SRV_MSG_P.RPGLE
+24 -25
View File
@@ -1,34 +1,33 @@
//=== Prototypes for SRV_MSG routines ========================
//============================================================
D SndMsgPgmQ pr Send Msg to PGM Q
D pMsgQ 10
D pMsgid 7
D pMsgFile 10
D pMsgDta 512 options(*NOPASS)
D Varying
dcl-pr SndMsgPgmQ; // Send Msg to PGM Q
*n char(10); // pMsgQ
*n char(7); // pMsgid
*n char(10); // pMsgFile
*n varchar(512) options(*nopass); // pMsgDta
end-pr;
//============================================================
D ClrMsgPgmQ pr N Clear PGM Msg Q
D pPgmMsgQ 10
dcl-pr ClrMsgPgmQ ind; // Clear PGM Msg Q
*n char(10); // pPgmMsgQ
end-pr;
//============================================================
D SndEscMsg pr Send ESC Msg
D piMsg 512a Const Varying
D pStackEnt 10i 0 Const options(*nopass)
dcl-pr SndEscMsg; // Send ESC Msg
*n varchar(512) const; // piMsg
*n int(10) const options(*nopass); // pStackEnt
end-pr;
//============================================================
D SndInfMsg pr Send INF Msg
D piMsg 512a Const Varying
dcl-pr SndInfMsg; // Send INF Msg
*n varchar(512) const; // piMsg
end-pr;
//============================================================
D JobLogMsg Pr
D piMsg 512a Value Varying Msg to job log
dcl-pr JobLogMsg;
*n varchar(512) value; // piMsg Msg to job log
end-pr;
//============================================================
D Show pr extpgm('SHOW') Show popup msg
D piPext 8192a Const Varying
D piMsgId 7a Const options(*NOPASS)
d piMsgFile 21a Const options(*NOPASS)
dcl-pr Show extpgm('SHOW'); // Show popup msg
*n varchar(8192) const; // piPext
*n char(7) const options(*nopass); // piMsgId
*n char(21) const options(*nopass); // piMsgFile
end-pr;
//=== End of Prototypes forSRV_MSG Routines ==================
Copy_Mbrs/SRV_RAND_P.RPGLE
+1 -1
View File
@@ -1,6 +1,6 @@
**free
//=== Prototypes for SRV_RANDOM routines =======================
dcl-pr Rand_Int int(10);
dcl-pr Rand_Int int(10);
p_Low int(10) value; // lowest value of range
p_High int(10) value; // highest value of range
end-pr;
Copy_Mbrs/SRV_SQL_P.RPGLE
+6 -4
View File
@@ -1,4 +1,6 @@
//============================================================
Dcl-PR SQLProblem ; // Report SQL Problem
pDebugMsg varchar(200) const;
End-PR;
**free
// === Prototype for SRV_SQL routines =========================
dcl-pr SQLProblem ; // Report SQL Problem
pDebugMsg varchar(200) const;
end-pr;
// === End of Prototype for SRV_SQL routines ==================
Copy_Mbrs/SRV_STR_P.RPGLE
+7 -8
View File
@@ -1,8 +1,7 @@
//=== Prototypes for SRV_STR routines ========================
//============================================================
d CenterStr pr 256a varying
d InStr 256a varying const
d
//=== End of Prototypes forSRV_STR Routines ==================
**FREE
//=== Prototypes for SRV_STR routines ========================
//============================================================
dcl-pr CenterStr varchar(256);
*n varchar(256) const; // InStr
end-pr;
//=== End of Prototypes forSRV_STR Routines ==================
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');