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:43:52 -04:00
parent a2d8f9c33c
commit 21917dda6e
4 changed files with 3 additions and 54 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
5250_Subfile/README.md
View File

@ -39,7 +39,7 @@ The display file uses a private set of indicators, something I started doing to
Conceptually, you can call this program from almost anywhere and control access to it by whatever menuing or security system you have in place. The general user population would progably get Inquiry and Sales would have Maintenance. Selection could be used for any in-house program that needed to prompt for a customer id number.
Note that this version uses a static SQL cursor, where City and State selection criteria use a "between" predicate. This differs from [the originally posted version](https://github.com/SJLennon/IBM-i-RPG-Free-CLP-Code/blob/master/5250_Subfile/PMTCUSTR.SQLRPGLE) which used a dynamic cursor which had to be prepared when the selection criteria changed. I think a static cursor makes coding easier and can improve performance since it doesn't need a "prepare". Conversely, on large files this approach may hurt performance. However, I tested the program on PUB400.COM with 1 million records and there was no discernable performance hit.
Note that this version uses a static SQL cursor, where City and State selection criteria use a "between" predicate. This differs from the originally posted version which used a dynamic cursor which had to be prepared when the selection criteria changed. I think a static cursor makes coding easier and can improve performance since it doesn't need a "prepare". Conversely, on large files this approach may hurt performance. However, I tested the program on PUB400.COM with 1 million records and there was no discernable performance hit.
### MTNCUSTR/MTNCUSTD

51
Copy_Mbrs/##AIDBYTES.RPGLE
View File

@ -1,51 +0,0 @@
// 5250 Attention Indicator (AID) definitions
D F01 C CONST(X'31')
D F02 C CONST(X'32')
D F03 C CONST(X'33')
D F04 C CONST(X'34')
D F05 C CONST(X'35')
D F06 C CONST(X'36')
D F07 C CONST(X'37')
D F08 C CONST(X'38')
D F09 C CONST(X'39')
D F10 C CONST(X'3A')
D F11 C CONST(X'3B')
D F12 C CONST(X'3C')
D F13 C CONST(X'B1')
D F14 C CONST(X'B2')
D F15 C CONST(X'B3')
D F16 C CONST(X'B4')
D F17 C CONST(X'B5')
D F18 C CONST(X'B6')
D F19 C CONST(X'B7')
D F20 C CONST(X'B8')
D F21 C CONST(X'B9')
D F22 C CONST(X'BA')
D F23 C CONST(X'BB')
D F24 C CONST(X'BC')
// Page Down/Roll Up
D RollUp C CONST(X'F5')
D PageDown C CONST(X'F5')
// Page Up/Roll Down
D RollDown C CONST(X'F4')
D PageUp C CONST(X'F4')
// Enter
D Enter C CONST(X'F1')
D Home C CONST(X'F8')
//Mouse events linked to DDS MOUBTN keyword
d ME00 c const(x'70')
d ME01 c const(x'71')
d ME02 c const(x'72')
d ME03 c const(x'73')
d ME04 c const(x'74')
d ME05 c const(x'75')
d ME06 c const(x'76')
d ME07 c const(x'77')
d ME08 c const(x'78')
d ME09 c const(x'79')
d ME10 c const(x'7A')
d ME11 c const(x'7B')
d ME12 c const(x'7C')
d ME13 c const(x'7D')
d ME14 c const(x'7E')

2
Copy_Mbrs/README.md
View File

@ -2,7 +2,7 @@
These are source files that will be copied into programs using /COPY or /INCLUDE
* ##AIDBTYE.RPGLE
* 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.

2
PRT_CL/README.MD
View File

@ -1,5 +1,5 @@
# Printing from a CL program (The PRTLN command)
# (Under Construction)
Generating a report from an IBM i CL program isn’t straight forward, because in CL there is no direct way to write to a spool file. Here I provide the CL PRTLN command, which allows simple, direct printing from a CL or CLLE program, including page control and headings.
(Note: I'm not suggesting you should do your payroll checks or month-end general ledger from CL--use RPG for that. But sometimes it is just convenient to print from CL without bothering with extra objects, like Query/400, or STRQMQRY or an RPG program.)