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

PRTLN Demo Updates

Browse Source
This commit is contained in:
SJLennon
2022-09-06 11:22:44 -04:00
parent 3eca6bbb10
commit 0aa1151ee7
4 changed files with 21 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
PRT_CL/DEMO_CL1.CLLE
+1 -1
View File
@@ -1,4 +1,4 @@
/*=== Demo a simple report =================================*/ /*=== Demo a "Really Simple Report" ============================*/
PGM PGM
DCL (&LC) (*DEC) LEN(5 0) VALUE(1) DCL (&LC) (*DEC) LEN(5 0) VALUE(1)
DCL (&UNDER) (*CHAR) LEN(20) VALUE('____________________') DCL (&UNDER) (*CHAR) LEN(20) VALUE('____________________')
PRT_CL/DEMO_CL2.CLP
+1 -1
View File
@@ -1,4 +1,4 @@
/*=== Demo a complex report ================================*/ /*=== Demo a more complex report ================================*/
/* List files & members with record count and description. */ /* List files & members with record count and description. */
/* Has heading lines, an underscored heading & page number. */ /* Has heading lines, an underscored heading & page number. */
PGM PGM
PRT_CL/DEMO_CL3.CLLE
+9 -4
View File
@@ -1,7 +1,9 @@
/*=== Demo a complex report with breaks ============================*/ /*=== Demo a complex report with breaks ============================*/
/* Contains heading lines and underscored headings & page number */ /* Prints files, members and record counts in a library. */
/* - Library is in the heading line */ /* Contains heading lines and underscored headings & page number. */
/* - File prints only when it changes */ /* - Library is in the heading line. */
/* - File name prints only when it changes. */
/* - Prints "End of Report" on a new page at the end. */
PGM PGM
DCL (&LINE) (*CHAR) LEN(132) DCL (&LINE) (*CHAR) LEN(132)
/* Define data columns in &LINE */ /* Define data columns in &LINE */
@@ -54,5 +56,8 @@
CHGVAR (&LINE_SPACE) 'S1' CHGVAR (&LINE_SPACE) 'S1'
GOTO CMDLBL(LOOP) GOTO CMDLBL(LOOP)
EOF: PRTLN CONTROL(*CLOSE) EOF:
PRTLN CONTROL(*NEWPAGE)
PRTLN '*** End of Report ***' SPACE('S3')
PRTLN CONTROL(*CLOSE)
ENDPGM ENDPGM
PRT_CL/README.MD
+10 -2
View File
@@ -147,9 +147,17 @@ Adjust the overflow or top of form line to suit your needs.
MYPRT.CLLE is a simple CL program to create MYPRT. MYPRT.CLLE is a simple CL program to create MYPRT.
### DEMO_CL1.CLLE, DEMO2_CL2.CLP and DEMO_CL3.CLLE ### DEMO_CL1.CLLE
Demonstartion programs of PRTLN in use. A "Really Simple Report"
### DEMO2_CL2.CLP
A more complex report that lists the files, members, record count and description a set of files. Adjust the file set to suit your needs.
### DEMO_CL3.CLLE
Even more complex report printing a file member list for a library with the library name in the heading, breaking on file name and with an "End of Report" page at the end. To generalize, make the library name a parameter.
### DEMO_RPG1.SQLRPGLE ### DEMO_RPG1.SQLRPGLE