Figure 1: The PEX001_H copybook

     **-- Start transaction - Pex:
     D StrTrnPex       Pr             8a
     D  AppId                        20a   Const
     D  TrnId                        10u 0 Const 
     D  AppTrcDta                  3032a   Const  Varying
     **-- End transaction - Pex:
     D EndTrnPex       Pr            10i 0
     D  AppId                        20a   Const 
     D  TrnId                        10u 0 Const 
     D  AppTrcDta                  3032a   Const  Varying 
     D  TrnStrTim                     8a   Const 
     D  NbrPfrCnt                    10u 0 Const  Options( *NoPass )
     D  AppPfrCnt                    20u 0 Const  Dim( 16 ) 
     D                                            Options( *NoPass: *VarSize )
     **-- Log transaction - Pex:
     D LogTrnPex       Pr            10i 0 
     D  AppId                        20a   Const 
     D  TrnId                        10u 0 Const
     D  AppTrcDta                  3032a   Const  Varying 
     **-- Initialize transaction ID: 
     D InzTrnId        Pr              *
     D  PxCntId                      10a   Const 
     **-- Get transaction ID: 
     D GetTrnId        Pr            10u 0 
     D  pUsrSpc                        *   Const 
     **-- Terminate transaction ID: 
     D TrmTrnId        Pr            10i 0 
     D  PxCntId                      10a   Const