!JOB  :SYS,LBE,A   .CREATE FILESCAN DICT
!LIMIT (TIME,1),(CORE,15)
!PCL
DELETE DICT
END
!DICTNARY
1FILESCAN0112     SCANDATA
2FILESCANSITEID  0001004  A               SITE> ID
2FILESCANPACKSN  0008004  A               PRIVATE>VOL SN
2FILESCANACCOUNT 0009008  A               ACCOUNT
2FILESCANFILENAME00170031 A               FILE NAME
2FILESCANMAJTYPE 0048002  A               MAJOR>TYPE
2FILESCANMINTYPE 0050002  A               MINOR>TYPE
2FILESCANNUMGRANS0052006  A               NUMBER>GRANULES
2FILESCANORG     0058001  A               ORG
2FILESCANCDATE   0059006  A               CREATE>DATE
2FILESCANMDATE   0065006  A               MODIFY>DATE
2FILESCANADATE   0071006  A               ACCESS>DATE
2FILESCANKEYMAX  0077002  A               KEY>MAX
2FILESCANCOMP    0079001  A               CMPRSD
2FILESCANJCL     0080001  A               WITH>JCL
2FILESCANVARKEYS 0081001  A               VARIAB>KEYSIZE
2FILESCANBINEBC  0082001  A               BINARY>EBCDIC
2FILESCANVARRECL 0083001  A               VARIAB>RECL
2FILESCANMAXRECL 0084005  A               MAX>RECL
2FILESCANNUMRECS 0089007  A               NUMBER>RECORDS
2FILESCANTYPE1   0096002  A               TYPE 1
2FILESCANTYPE2   0098002  A               TYPE 2
2FILESCANTYPE3   0100002  A               TYPE 3
2FILESCANTYPE4   0102001  A               TYPE 4
2FILESCANTYPE5   0104002  A               TYPE 5
2FILESCANTYPE6   0106002  A               TYPE 6
2FILESCANTYPE7   0108001  A               TYPE 7
2FILESCANTYPE8   0110002  A               TYPE 8
2FILESCANCOUNT   0112001  A               ACCURATE>COUNT
