A****************************************************************
     A* PHYSICAL FILE- SCOPTNPF                                      *
     A*                                                              *
     A* FUNCTION     - This file provides a definition of the        *
     A*                macro instructions to be executed from a      *
     A*                HLL, or the function editor program, as       *
     A*                selected user options.                        *
     A*                                                              *
     A* PROGRAMMER   - Steve Croy        04/11/06                    *
     A****************************************************************
     A****************************************************************
     A*               FILE ATTRIBUTE SECTION                         *
     A*                                                              *
     A*  KEY FIELDS: OPGMID, OPNLID, OPTNID                          *
     A*  MAXMBRS   : 1                                               *
     A*                                                              *
     A****************************************************************

     A          R RSCOPTN                   TEXT('PROGRAM OPTIONS')
     A            OPGMID        10          TEXT('PROGRAM ID')
     A                                      COLHDG('PROGRAM ID')
     A            OPNLID        10          TEXT('PANEL/SCREEN ID')
     A                                      COLHDG('PANEL' 'ID')
     A            OPTNID        10          TEXT('OPTION ID')
     A                                      COLHDG('OPTION' 'NUMBER')
     A            OMACRO        45          TEXT('OPTION ACTION')
     A                                      COLHDG('MACRO' 'ACTION')
     A            OPTEXT        20          TEXT('TEXT DESCRIPTION')
     A                                      COLHDG('DESRCIPTION')
     A            OPAUTL         3          TEXT('AUTHORITY LEVEL')
     A                                      COLHDG('Authority' 'Level')
      * Key section
     A          K OPGMID
     A          K OPNLID
     A          K OPTNID