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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
PRT_CL/DEMO_CL1.CLLE
View File

@ -1,4 +1,4 @@
/*=== Demo a simple report =================================*/
/*=== Demo a "Really Simple Report" ============================*/
PGM
DCL (&LC) (*DEC) LEN(5 0) VALUE(1)
DCL (&UNDER) (*CHAR) LEN(20) VALUE('____________________')

2
PRT_CL/DEMO_CL2.CLP
View File

@ -1,4 +1,4 @@
/*=== Demo a complex report ================================*/
/*=== Demo a more complex report ================================*/
/* List files & members with record count and description. */
/* Has heading lines, an underscored heading & page number. */
PGM

13
PRT_CL/DEMO_CL3.CLLE
View File

@ -1,7 +1,9 @@
/*=== Demo a complex report with breaks ============================*/
/* Contains heading lines and underscored headings & page number */
/* - Library is in the heading line */
/* - File prints only when it changes */
/* Prints files, members and record counts in a library. */
/* Contains heading lines and underscored headings & page number. */
/* - 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
DCL (&LINE) (*CHAR) LEN(132)
/* Define data columns in &LINE */
@ -54,5 +56,8 @@
CHGVAR (&LINE_SPACE) 'S1'
GOTO CMDLBL(LOOP)
EOF: PRTLN CONTROL(*CLOSE)
EOF:
PRTLN CONTROL(*NEWPAGE)
PRTLN '*** End of Report ***' SPACE('S3')
PRTLN CONTROL(*CLOSE)
ENDPGM

12
PRT_CL/README.MD
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.
### 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