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

Handle DSPPGMREF Failures

Browse Source
This commit is contained in:
SJLennon
2023-07-01 16:24:41 -04:00
parent bde7cea719
commit e76ff16d9d
3 changed files with 63 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
PGM_REFS/Readme.MD
+18 -3
View File
@@ -22,15 +22,30 @@ or X-Analysis. If you don't have one, this *might* be somewhat useful.
This is the DDL to create the REFS file that the procedure builds.
Change the library and then run this first.
Change the library of the REFS table to one of your libraries and then run this first.
## pgm_refs.sql
This is the code to create the PGM_REFS procedure. The library in which the REFS file is built needs to be changed to suit your environment.
This is the code to create the PGM_REFS procedure. Change the library of the REFS table to the library you used above.
There are two places to change following a comments like this: <<<<<< Change this table library >>>>>>>
## pgm_refs_test.SQL
These are some samples of calling the procedure to test it. I used iACS Run SQL Scripts. You could also call it in a CL program using the RUNSQLSTM command. (Or run it in STRSQL.)
## Running
### Parameters
See pgm_refs_test.sql for some sample call.
You need to supply library and name. The type will default to `*PGM` and the depth will default to `0` if not supplied.
### Library list
Since many objects will have a library of `*LIBL`, that is what will get passed to DSPPGMREF for expansion. So you need to have your library list contain all libraries whose objects you want expanded.
### DSPPGMREF Failure
If DSPPGMREF failsinternally, `*ERROR` will appear in the three `USES_*` fields in the REFS file. If you get a lot of these check you have your library list correct.
## Sample Output File Contents
![Sample ](Images/Sample1.png)
@@ -39,5 +54,5 @@ These are some samples of calling the procedure to test it. I used iACS Run SQL
I had difficulty debugging this.
1. I was working on PUB400.COM and the System Debugger in iACS shows the source, but it would never stop on breakpoints.
1. I was working on PUB400.COM and the System Debugger in iACS shows the source, but it would never stop on breakpoints. You can debug on the green screen but it isn't as convenient.
2. The DSPPGMREF outfiles are in QTEMP. You can make a single change to put them in one of you libraries if you want to look at them. You will also have to comment out the delete at the bottom of the loop.