H DFTNAME(TESTCHR2) DATEDIT(*YMD/) BNDDIR('QC2LE')                                             
     D ZONE6           S              6S 3 INZ(6.25)                                                
     D PACK7           S              7P 2 INZ(7.48)                                                
     D CHR10           S             10A                                                            
     D DSP40           S             40A                                                            
                                                                                                    
     C                   EVAL      CHR10 = %CHAR(ZONE6)                                             
     C     'ZONE6='      CAT(P)    CHR10         DSP40                                              
     C     DSP40         DSPLY                   ANS               1                                
     C                   EVAL      CHR10 = %CHAR(PACK7)                                             
     C     'PCCK7='      CAT(P)    CHR10         DSP40                                              
     C     DSP40         DSPLY                   ANS               1                                
     C                   SETON                                        LR                            
     C                   RETURN