This simple utilty captures useful DSPFFD/DSPFD information from my
production files and prints it out to a single spool
file which can be imported to PC and viewed in a web browser.
I wrote it because I was tired of constantly
referring back to DSPFFD/DSPFD (or other more user-friendly interactive utilities)
for file/field information. Now I can have all this
useful information one-click away on a browser session.
sample output:
Library/File: MYCGILIB/EXPFSM57 PF Expense entry : Ledger Description
Record: REXPFSM57
Key(s): 1. STAFSM57 A
2. CMPFSM57 A
3. SLCFSM57 A
4. SLGFSM57 A
Field Description Type Size Dec Ref/Alt
STAFSM57 Status A 1 XFLAG1//STAFSM57
CMPFSM57 COMPANY A 2 XCOMPANY//CMPFSM57
SLCFSM57 ID (CODE) A 2 XSBLC//SLCFSM57
SLGFSM57 KEY (GROUP) A 10 XSBLG//SLGFSM57
DESFSME57 SUBLEDGER DESC LANG 1 A 100 XDESCRI100//DESFSME57
DESFSMF57 SUBLEDGER DESC LANG 2 A 100 XDESCRI100//DESFSMF57
BLKFSM57 Free Text A 13 //BLKFSM57
ADDDAT57 ADD Date L 10 XDATEL//ADDDAT57
ADDTIM57 Add Time T 8 XTIMET//ADDTIM57
ADDUSR57 Add User A 10 XUSERID10//ADDUSR57
CHGDAT57 Change Date L 10 XDATEL//CHGDAT57
CHGTIM57 Change Time T 8 XTIMET//CHGTIM57
CHGUSR57 Change User A 10 XUSERID10//CHGUSR57
Logical: MYCGILIB/EXPFSM57A CMPFSM57/SLCFSM57/SLGFSM57/
Select/Omit: REXPFSM57 STAFSM57 S EQ '1' 001
Select/Omit: REXPFSM57 SLGFSM57 A NE '**********' 001
Select/Omit: REXPFSM57 O AL 000
Logical: MYCGILIB/EXPFSM57B CMPFSM57/SLCFSM57/SLGFSM57/
Select/Omit: REXPFSM57 STAFSM57 S EQ '1' 001
Select/Omit: REXPFSM57 SLGFSM57 A EQ '**********' 001
Select/Omit: REXPFSM57 O AL 000
Created: 031706 Owner: ITP Last Used: 070606 Journalled 0
|
Library/File: MYCGILIB/EXPUSR55 PF Expense entry : Web User
Record: REXPUSR55
Key(s): 1. BUUSID55 A
Field Description Type Size Dec Ref/Alt
BUUSID55 User ID A 10 XUSERID10//BUUSID55
BUFNAM55 User Name A 50 XCUSTNAME//BUFNAM55
BUUPWD55 PassWord A 10 XPASSWORD//BUUPWD55
BUSUPP55 Cust/Supplier Code A 15 XSUPPCODE//BUSUPP55
BUSUPC55 Supplier Cr Card A 15 XSUPPCODE//BUSUPC55
BUEMLA55 Email A A 50 XCUSTEMAIL//BUEMLA55
BUEMLB55 Email B A 50 XCUSTEMAIL//BUEMLB55
ADDDAT55 ADD Date L 10 XDATEL//ADDDAT55
ADDTIM55 Add Time T 8 XTIMET//ADDTIM55
ADDUSR55 Add User A 10 XUSERID10//ADDUSR55
CHGDAT55 Change Date L 10 XDATEL//CHGDAT55
CHGTIM55 Change Time T 8 XTIMET//CHGTIM55
CHGUSR55 Change User A 10 XUSERID10//CHGUSR55
Logical: MYCGILIB/EXPUSR55J1 BUUSID55/
Created: 052406 Owner: ITP Last Used: 070606 Journalled 0
|
and so on...