|
I recently (today) had to resurrect a utility pgm I wrote last year. Still useful..... I was thinking of making it available to y'all if you want. Below is a sample of the reports it will produce. \ Eric A DeLong ericadelong@pmsc.com #1 - Program objects only. --------------------------- DATE: 4/28/98 PMSI - DP/IS EXPLODE PROGRAM PROGRAM: UTRPFLO TIME: 11:05:01 STARTING POINT: SRCS03/PHM640 PAGE NO: 1 LVL PROGRAM - TYPE - DESCRIPTION 01 PHM640 - CLP - EDI - processes phi request batch transmissions 02 PHR640 - RPG - EDI-load transmission file to request work file 03 VALDTE - RPG - Date validation routine (old one for EDI & ASCII) 02 PHR640C - RPG - EDI - load special requests to process... 02 PHR640A - RPG - EDI - update phi request work file; prt MVR list 02 PHR301 - RPG - prints EDI telefacts special requests to work 02 PHR640B - RPG - EDI - processes client request file transmissions 03 PHM640B - CLP - EDI - process transmission from clients via PMSC 04 PHR627 - RPG - EDI - edit transmitted Telefacts requests... 04 PHR110 - RPG - build request work files 05 PHR111 - RPG - build completed report master- questions program 06 PHR102 - RPG - build completed report master- prompt program 06 PHR101 - RPG - build completed report master - qwr program 07 PHR102 - RPG - build completed report master-prompt pgm 04 PHR300 - RPG - print telefacts daily batch report - pms program 02 PHR640X - RPG - EDI - request processing error-handler #2 - Program objects with file usage. --------------------------- DATE: 4/28/98 PMSI - DP/IS EXPLODE PROGRAM PROGRAM: UTRPFLO TIME: 11:05:20 STARTING POINT: SRCS03/PHM640 PAGE NO: 1 LVL PROGRAM - TYPE - DESCRIPTION 01 PHM640 - CLP - EDI - processes phi request batch transmissions [*ALL FMT: USG:UNKNOWN [*FILE FMT: USG:UNKNOWN [PHP640O FMT: USG:UNKNOWN - EDI - Temp print file for special requests [QSYSPRT FMT: USG:UNKNOWN [TEMPFAC FMT: USG:O - Seq. Telefacts request for transfer to Woodhew [TEMPFAC FMT: USG:O - Seq. Telefacts request for transfer to Woodhew [TEMPFACB FMT: USG:I 02 PHR640 - RPG - EDI-load transmission file to request work file [PHP040O FMT:PH10400 USG:I - telefacts customer master [PHP055O FMT:PH10550 USG:O/U - EDI file for transmitted requests [QSYSPRT FMT: USG:O [TEMPFAC FMT: USG:U - Seq. Telefacts request for transfer to Woodhew 02 PHR640C - RPG - EDI - load special requests to process... [PHL0553 FMT:PH10550 USG:U - EDI cancellation requests only [PHP640O FMT:PH16400 USG:O - EDI - Temp print for special reqs 02 PHR640A - RPG - EDI - update phi request work file; prt MVR list [PHL0194 FMT:PH10190 USG:U - request batch control master logical [PHL0550 FMT:PH10550 USG:U - EDI requests excluding '07' cancellations [PHL0551 FMT:PH10550 USG:I - EDI logical requests k'd on MVR/case/batch [PHL0552 FMT:PH10550 USG:U - EDI logical k'd on LOD55/BAT55/SEQ55, no 0 [PHL0554 FMT:PH10550 USG:U - EDI requests: unloaded MVR's only... [PHP011O FMT:PH10110 USG:I - best time to call code master [PHP012O FMT:PH10120 USG:I - status code master [PHP019O FMT:PH10190 USG:O/U - batch control master [PHP020O FMT:PH10200 USG:O/U - telefacts request master [PHP021O FMT:PH10210 USG:O/U - telefacts archive inquiry master [PHP022O FMT:PH10220 USG:O/U - phi telfacts request input data file [PHP030O FMT:PH10300 USG:O/U - phi request status history file [PHP038O FMT:PH10380 USG:O/U - telefacts request master child informati [PHP040O FMT:PH10400 USG:I - telefacts customer master [PHP045O FMT:PH10450 USG:I - states files [PMSMSEC FMT:SEC USG:I [QSYSPRT FMT: USG:O 02 PHR301 - RPG - prints EDI telefacts special requests to work [PHP640O FMT:PH16400 USG:I - EDI - Temp print file for special requests [QSYSPRT FMT: USG:O 02 PHR640B - RPG - EDI - processes client request file transmissions [PHL0192 FMT:PH10190 USG:U - telefact batch file master logical 03 PHM640B - CLP - EDI - process transmission from clients via PMSC [*FILE FMT: USG:UNKNOWN [QSYSPRT FMT: USG:UNKNOWN 02 PHR640X - RPG - EDI - request processing error-handler [QSYSPRT FMT: USG:O .. +--- | This is the Midrange System Mailing List! | To submit a new message, send your mail to MIDRANGE-L@midrange.com. | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.