FPRTF      O    E             PRINTER EXTDESC('QTROBJ/ORDERF')                                 
     F                                     EXTFILE(*EXTDESC)                                        
     D ORDER_NO        S              8A   INZ('69937870')                                          
     C                   WRITE     RECORD                                                           
     C                   SETON                                        LR                            
     C                   RETURN