sHelp
                                     AP.EDI.ACK
     i   2
 main
   comments
   credits
   invoices

 Ì   €   i   2
main
[urn]
*(K)KJC[kjc]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 urn                          8 URN      L                 kjc                                                         
 ack.date                     8 DATE     L                 *(K)KJC[kjc]|11                                             
 ack.time                     4 HHMM     L                 *(K)KJC[kjc]|12                                             
 ack.type.desc               30 FREE     L                 VAL=IF{@AP.EDI.ACK.trans.set.id=824 "APPLICATION ADVIC      
                                                           VAL=E";@AP.EDI.ACK.trans.set.id=997 "FUNCTIONAL ACKNOW      
                                                           VAL=LEDGEMENT"}                                             
 check.number                10 FREE     L                 *(K)KJC[kjc]|2                                              
 check.urn                   20 URN      L  AP.CHECK       *(K)KJC[kjc]|3                                          
 cust.code                   12 FREE     L                 *(K)KJC[kjc]|8                                              
 error.flag                   1 FREE     L                 *(K)KJC[kjc]|20                                             
 fa.group.edi.session         8 URN      L                 *(K)KJC[kjc]FA|0                                            
 fa.group.num.txn.acc         6 PINT     R                 *(K)KJC[kjc]FA|5                                            
 fa.group.num.txn.rcv         6 PINT     R                 *(K)KJC[kjc]FA|4                                            
 fa.group.num.txn.sets        6 PINT     R                 *(K)KJC[kjc]FA|3                                            
 fa.group.status              1 FREE     L                 *(K)KJC[kjc]FA|2                                            
 fa.group.txn.number          6 PINT     R                 *(K)KJC[kjc]FA|1                                            
 program                     15 FREE     L  MIS.PGM        *(K)KJC[kjc]|10                                         
 received.date                8 DATE     L                 *(K)KJC[kjc]|6                                              
 received.time                4 HHMM     L                 *(K)KJC[kjc]|7                                              
 show.vendor                 12 FREE     L                 VAL=IF{@vendor;@vendor.raw.data}                            
 status                       7 FREE     L                 *(K)KJC[kjc]|5                                              
 trans.set.id                 3 FREE     L                 *(K)KJC[kjc]|0                                              
 vendor                      11 FREE     L  MIS.VEN        *(K)KJC[kjc]|4                                          
 vendor.raw.data             12 FREE     L                 *(K)KJC[kjc]|13                                             
 xi.msg.urn                   8 PINT     R  MIS.XI.MSG     *(K)KJC[kjc]|1                                          
 Ì   €   i   2
comments
[urn,  comment.seq.no]
*(K)KJC[kjc]B[kjcB]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 comment.seq.no               4 PINT     R                 kjcB                                                        
 comment.text                80 FREE     L                 *(K)KJC[kjc]B[kjcB]|0                                       
 comment.text.indent         80 FREE     L                 VAL=(IF{L(@comment.text^XXX)'>76 "    "}_XXX)            
 Ì   €   i   2
credits
[urn,  cr.inv.num]
*(K)KJC[kjc]C[kzN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 cr.inv.num                  15 FREE     L                 kzN                                                         
 cr.inv.urn                  11 FREE     L  AP.INV         *(K)KJC[kjc]C[kzN]|0                                    
 Ì   €   i   2
invoices
[urn,  inv.num]
*(K)KJC[kjc]I[kzN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 inv.num                     15 FREE     L                 kzN                                                         
 inv.urn                     11 FREE     L  AP.INV         *(K)KJC[kjc]I[kzN]|0                                    

 Index Files                        Subscripts/Physical Base

 msg.urn.x                          [xi.msg.urn,urn]
                                      ?(K)KJCM[gwi,kjc]

 received.date.x                    [received.date,urn]
                                      ?(K)KJCR[kjcR,kjc]