A          R QAPMCONR
     A            GIOP       00001A         COLHDG('GIOP')
     A            GUNIT      00002A         COLHDG('GUNIT')
     A            GLVL       00001A         COLHDG('GLVL')
     A            GKEY       00002A         COLHDG('GKEY')
     A            GDES       00010A         COLHDG('GDES')
     A            GDESCR     00010A         COLHDG('GDESCR')
     A            GIOPB      00003P00       COLHDG('GIOPB')
     A            GIOPA      00003P00       COLHDG('GIOPA')
     A            GTYPE      00004A         COLHDG('GTYPE')
     A            GMODEL     00004A         COLHDG('GMODEL')
     A            GUNITA     00003P00       COLHDG('GUNITA')
     A            GUNITB     00003P00       COLHDG('GUNITB')
     A            GUNITC     00003P00       COLHDG('GUNITC')
     A            GUNITD     00003P00       COLHDG('GUNITD')
     A          K GKEY                      UNSIGNED