sHelp
                                     AP.EDI.ACK
       2
   ap.edi.ack.main
     ap.edi.ack.comments
     ap.edi.ack.check.credits
     ap.edi.ack.check.invoices

 Ì       2
ap.edi.ack.main    (main) 
[urn]
*KJC[kjc]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 urn                          8 URN      L                 kjc                                                         
 ack.date                     8 DATE     L                 *KJC[kjc]|11                                                
 ack.time                     4 HHMM     L                 *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                 *KJC[kjc]|2                                                 
 check.urn                   20 URN      L  AP.CHECK       *KJC[kjc]|3                                             
 cust.code                   12 FREE     L                 *KJC[kjc]|8                                                 
 edi.urn                      8 URN      L  AP.EDI         *KJC[kjc]|1                                             
 error.flag                   1 FREE     L                 *KJC[kjc]|20                                                
 fa.group.edi.session         8 URN      L  AP.EDI         *KJC[kjc]FA|0                                           
 fa.group.num.txn.acc         6 PINT     R                 *KJC[kjc]FA|5                                               
 fa.group.num.txn.rcv         6 PINT     R                 *KJC[kjc]FA|4                                               
 fa.group.num.txn.sets        6 PINT     R                 *KJC[kjc]FA|3                                               
 fa.group.status              1 FREE     L                 *KJC[kjc]FA|2                                               
 fa.group.txn.number          6 PINT     R                 *KJC[kjc]FA|1                                               
 program                     15 FREE     L  MIS.PGM        *KJC[kjc]|10                                            
 received.date                8 DATE     L                 *KJC[kjc]|6                                                 
 received.time                4 HHMM     L                 *KJC[kjc]|7                                                 
 show.vendor                 12 FREE     L                 VAL=IF{@vendor;@vendor.raw.data}                            
 status                       7 FREE     L                 *KJC[kjc]|5                                                 
 trans.set.id                 3 FREE     L                 *KJC[kjc]|0                                                 
 vendor                      11 FREE     L  MIS.VEN        *KJC[kjc]|4                                             
 vendor.raw.data             12 FREE     L                 *KJC[kjc]|13                                                

 Ì   €�     2
ap.edi.ack.comments    (comments) 
[urn, comment.seq.no]
*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                 *KJC[kjc]B[kjcB]|0                                          
 comment.text.indent         80 FREE     L                 VAL=(IF{L(@comment.text^XXX)'>76 "    "}_XXX)            

 Ì   €�     2
ap.edi.ack.check.credits    (credits) 
[urn, cr.inv.num]
*KJC[kjc]C[kzN]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL                                        
 cr.inv.num                  15 FREE     L                 kzN                                                         
 cr.inv.urn                  20 PINT     R  AP.INV         *KJC[kjc]C[kzN]|0                                       

 Ì   €�     2
ap.edi.ack.check.invoices    (invoices) 
[urn, inv.num]
*KJC[kjc]I[kzN]

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