sHelp
                                     PP.PTCT
     i   2
   pp.ptct.data
       pp.ptct.data.employee
         pp.ptct.data.employee.activity
         pp.ptct.employee.exception.msg

 Ì     i   2
pp.ptct.data    (main) 
[date.read]
:JZ.PTCTF[ptcFD]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 date.read                    8 DATE     L                 ptcFD                                                       
 Ì     i   2
pp.ptct.data.employee    (employee) 
[date.read,empl.payroll, empl.num]
:JZ.PTCTF[ptcFD]P[ja]E[jyN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 empl.num                    14 FREE     L                 jyN                                                         
 empl.name                   26 FREE     L                 :JZ.PTCTF[ptcFD]P[ja]E[jyN]|0                               
 empl.ptct.type               1 CHOICE   L                 :JZ.PTCTF[ptcFD]P[ja]E[jyN]|1                               
 empl.status                 10 CHOICE   L                 :JZ.PTCTF[ptcFD]P[ja]E[jyN]|2                               
 Ì     i   2
pp.ptct.data.employee.activity    (employee.activity) 
[date.read,empl.payroll,empl.num, empl.act,empl.act.date,empl.act.seq.no]
:JZ.PTCTF[ptcFD]P[ja]E[jyN]ACT[ptcEA,ptcAD,ptcSN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 empl.act                    18 FREE     L                 ptcEA                                                       
 empl.act.date                8 DATE     L                 ptcAD                                                       
 empl.act.seq.no              5 INT      R                 ptcSN                                                       
 bch.db.read.from            12 FREE     L  MIS.APPL       :JZ.PTCTF[ptcFD]P[ja]E[jyN]ACT[ptcEA,ptcAD,ptcSN]|0     
 bch.no.read.from            10 PINT     R                 :JZ.PTCTF[ptcFD]P[ja]E[jyN]ACT[ptcEA,ptcAD,ptcSN]|1         
 empl.act.end.time            4 TIME     L                 :JZ.PTCTF[ptcFD]P[ja]E[jyN]ACT[ptcEA,ptcAD,ptcSN]|3         
 empl.act.expense             8 SMONEY   R                 :JZ.PTCTF[ptcFD]P[ja]E[jyN]ACT[ptcEA,ptcAD,ptcSN]|5         
 empl.act.mileage             5 DEC      R                 :JZ.PTCTF[ptcFD]P[ja]E[jyN]ACT[ptcEA,ptcAD,ptcSN]|4         
 empl.act.reverse             1 YN       L                 :JZ.PTCTF[ptcFD]P[ja]E[jyN]ACT[ptcEA,ptcAD,ptcSN]|6         
 empl.act.start.time          4 TIME     L                 :JZ.PTCTF[ptcFD]P[ja]E[jyN]ACT[ptcEA,ptcAD,ptcSN]|2         
 Ì     i   2
pp.ptct.employee.exception.msg    (employee.message) 
[date.read,empl.payroll,empl.num, empl.msg.count]
:JZ.PTCTF[ptcFD]P[ja]E[jyN]MSG[ptcMC]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 empl.msg.count               5 PINT     R                 ptcMC                                                       
 empl.msg                   100 FREE     L                 :JZ.PTCTF[ptcFD]P[ja]E[jyN]MSG[ptcMC]|1                     
 empl.msg.type                5 CHOICE   L                 :JZ.PTCTF[ptcFD]P[ja]E[jyN]MSG[ptcMC]|0                     
 Ì       2
 INDEX FILE/INTERNAL NAME           SUBSCRIPTS/PHYSICAL BASE

 pp.ptct.activity.map.x             [map.from.act] = map.to.earn
   activity.map.x                     :JZ.PTCTMX[ptcEA]