Monday, March 28, 1994         15:29:34                                                                              PAGE 1     
 
Directory of M.M  15 entries
 
Name      Type      Description                               Date
 
P1        FORM      P1.FORM                                   10/29/92
FSVBE     FORMULA   FSVIEW formulas for WORK.BLOCK.           10/13/93
FSVBR     FORMULA   FSVIEW formulas for WORK.BLOCK.           10/13/93
FSVE      FORMULA   FSVIEW formulas for WORK.HU_GQ.           10/15/93
FSVR      FORMULA   FSVIEW formulas for WORK.HU_GQ.           10/15/93
CRS       KEYS      Function Key Definitions                  04/19/93
E1_DO     PROGRAM   Enter DO                                  06/30/93
E2_ARA    PROGRAM   Enter ARA                                 05/04/93
E3_BLK    PROGRAM   Enter BLOCK                               04/19/93
INTRO1    PROGRAM   Introduction Screen                       10/07/93
KEY       PROGRAM   KEY.PROGRAM                               03/26/93
LOCKED    PROGRAM   LOCKED.PROGRAM                            03/24/93
M1        PROGRAM   Menu #1 (Blk) prior to FSV                10/13/93
PICPRT    PROGRAM   Pick a PRINTER program                    10/13/93
PICRPT    PROGRAM   Pick a REPORT program                     10/13/93
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
Monday, March 28, 1994         15:29:34                                                                              PAGE 2     
 
ENTRY: E1_DO.PROGRAM   Enter DO     Last updated: 06/30/93
 
  ***** DISPLAY *****
 
    +------------------------------------------------------------------------------+
    |                                                                              |
    |                                                                              |
    |                                                                              |
    |                                                                              |
    |     WHICH DISTRICT OFFICE (DO)?                                              |
    |                                                                              |
    |       Please Enter a 4 DIGIT                                                 |
    |                                                                              |
    |       'DO CODE NUMBER'                                                       |
    |                                                                              |
    |       Note: If nothing is entered or                                         |
    |             an invalid DO code is                                            |
    |             entered then a selection                                         |
    |             list will appear.                                                |
    |                                                                              |
    |                                                                              |
    |     -> &DOF <-                                                               |
    |                                                                              |
    |                                                                              |
    |     (Enter a 'Q' to Exit/Quit.)                                              |
    |                                                                              |
    +------------------------------------------------------------------------------+
 
  ***** ATTRIBUTES *****
 
         Window name: < CRS - Pick a DO  >
           Start row:          col:
      Number of rows:         cols:          Banner: NONE
 
        General help:
       Function keys:
     Lookup data set:
        Command menu:
         Prompt char: ?
      System Options:
              Parent:
         Window Type: STANDARD
         Scroll Bars:
 
    -------------------------------------------------------------------------   
      Field name:  DOF       Frame: 1   Row: 16     Col: 9      Length: 4
           Alias:  DOF         Choice group:               Pad: _
            Type:  CHAR             Protect: NO
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS CURSOR
    -------------------------------------------------------------------------   
 
  ***** SOURCE *****
 
    **** m.m.e1_do.program ***;
    INIT:
    ***;
    SUBMIT CONTINUE ; ****** START SUBMIT BLOCK ***************;
    %INCLUDE "&M_PDIR/E1_DO.sas";
    RUN;
    ENDSUBMIT; ******************** END SUBMIT BLOCK *****************;
    stdoid=open('dolist');
    ***;
    control enter;
    RETURN;
    ******************************************************************;
    MAIN:
      if index(dof,'Q') or index(dof,'q') then
      do;
        call execcmd('END');
        return;
      end;
      founddo=locatec(stdoid,varnum(stdoid, 'DOF' ), dof );
      if (founddo eq 0 ) then
      do;
        **** Select a State Window / List ****;
        call wregion(2,45,winfo('NUMROWS')-2,winfo('NUMCOLS')-45);
        call execcmdi('pmenu on');
        dof=datalistc(stdoid,'dof abrv fipscode state','Please Select a DO:');
        call execcmdi('pmenu off');
      end;
      foundd=locatec(stdoid,varnum(stdoid,'dof'), dof );
      if (foundd ne 0 ) then
      do;
        sta=trim(left(getvarc(stdoid,varnum(stdoid,'state'))));
        abr=trim(left(getvarc(stdoid,varnum(stdoid,'abrv'))));
        stf=trim(left(getvarc(stdoid,varnum(stdoid,'fipscode'))));
        call symput('M_DON', dof );
        call symput('M_STA', sta );
        call symput('M_ABR', abr );
 
 
Monday, March 28, 1994         15:29:34                                                                              PAGE 3     
 
ENTRY: E1_DO.PROGRAM   Enter DO     Last updated: 06/30/93
 
        call symput('M_STF', stf );
        call display('e2_ara.PROGRAM');
        call execcmd('END');
        return;
      end;
    DOF=' ';
    RETURN;
    TERM:
    rc=close(stdoid);
    RETURN;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
Monday, March 28, 1994         15:29:34                                                                              PAGE 4     
 
ENTRY: E2_ARA.PROGRAM   Enter ARA     Last updated: 05/04/93
 
  ***** DISPLAY *****
 
    +------------------------------------------------------------------------------+
    |                                                                              |
    |                                                                              |
    |                                                                              |
    |                                                                              |
    |     WHICH ADDRESS REGISTER AREA (ARA)?    +--------------------------------+ |
    |                                           |                                | |
    |       Please Enter a 4 DIGIT              | STATUS INFORMATION:            | |
    |                                           |                                | |
    |       'ARA CODE NUMBER'                   | DO: &DON                       | |
    |                                           |                                | |
    |                                           | STATE: &STA___________________ | |
    |                                           |                                | |
    |                                           | ABRV: &ABR     FIPS: &STF      | |
    |                                           |                                | |
    |                                           +--------------------------------+ |
    |                                                                              |
    |     -> &ARA <-                                                               |
    |                                                                              |
    |                                                                              |
    |     (Enter a 'Q' to Exit/Quit.)                                              |
    |                                                                              |
    +------------------------------------------------------------------------------+
 
  ***** ATTRIBUTES *****
 
         Window name: < CRS - Pick an ARA Code >
           Start row:          col:
      Number of rows:         cols:          Banner: NONE
 
        General help:
       Function keys:
     Lookup data set:
        Command menu:
         Prompt char: ?
      System Options:
              Parent:
         Window Type: STANDARD
         Scroll Bars:
 
    -------------------------------------------------------------------------   
      Field name:  DON       Frame: 1   Row: 8      Col: 50     Length: 4
           Alias:  DON         Choice group:               Pad: _
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP NOPROMPT
    -------------------------------------------------------------------------   
      Field name:  STA       Frame: 1   Row: 10     Col: 53     Length: 23
           Alias:  STA         Choice group:               Pad: _
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: AUTOSKIP NOPROMPT
    -------------------------------------------------------------------------   
      Field name:  ABR       Frame: 1   Row: 12     Col: 52     Length: 4
           Alias:  ABR         Choice group:               Pad: _
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP NOPROMPT
    -------------------------------------------------------------------------   
      Field name:  STF       Frame: 1   Row: 12     Col: 67     Length: 4
           Alias:  STF         Choice group:               Pad: _
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP NOPROMPT
    -------------------------------------------------------------------------   
 
 
 
 
 
 
 
 
Monday, March 28, 1994         15:29:34                                                                              PAGE 5     
 
ENTRY: E2_ARA.PROGRAM   Enter ARA     Last updated: 05/04/93
 
    -------------------------------------------------------------------------   
      Field name:  ARA       Frame: 1   Row: 16     Col: 9      Length: 4
           Alias:  ARA         Choice group:               Pad: _
            Type:  CHAR             Protect: NO
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS CURSOR
    -------------------------------------------------------------------------   
 
  ***** SOURCE *****
 
    **** m.m.e2_ara.program ***;
    ****;
    INIT:
    SUBMIT CONTINUE ; ********** START SUBMIT BLOCK ***************;
      data aralist;
      filename arafile pipe "ls &M_DDIR/&M_DON | sort -n ";
      infile arafile delimiter ='09'x missover;
      length ara $ 4 ;
      input ara ;
      RUN;
    ENDSUBMIT ; *********************** END SUBMIT BLOCK *****************;
      araid=open('aralist');
      control enter; ****** ??????;
      don=symget('M_DON');
      sta=symget('M_sta');
      abr=symget('M_abr');
      stf=symget('M_stf');
    RETURN;
    MAIN:
      if index(ara,'Q') or index(ara,'q') then
      do;
        call execcmd('END');
        return;
      end;
      else
      do;
    /*
    **** KEEP COMMENT LINES IN UNTIL MACHINE IS LARGE ENOUGH TO DO WHOLE DO'S **;
        if ara='*' then
        do;
          call symput('M_ARA',ara);
          call display('M1.PROGRAM');
          call execcmd('END');
          return;
        end;
        else
        do;
    */
          foundara=locatec(araid,varnum(araid,'ara'),ara);
          if ( foundara eq 0 ) then
          do;
            call wregion(2,45,winfo('NUMROWS')-2,winfo('NUMCOLS')-45);
            call execcmdi('pmenu on');
            ara=datalistc(araid,'ara','Please Select an ARA:');
            call execcmdi('pmenu off');
          end;
          fndara=locatec(araid,varnum(araid,'ara'),ara);
          if ( fndara ne 0 ) then
          do;
            call symput('M_ARA',ara);
            call display('M1.PROGRAM');
            call execcmd('END');
            return;
          end;
    /*
        end;
    */
      end;
    RETURN;
    TERM:
    rc=close(araid);
    RETURN;

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
Monday, March 28, 1994         15:29:34                                                                              PAGE 6     
 
ENTRY: E3_BLK.PROGRAM   Enter BLOCK     Last updated: 04/19/93
 
  ***** DISPLAY *****
 
    +------------------------------------------------------------------------------+
    |                                                                              |
    |                                                                              |
    |                                                                              |
    |                                                                              |
    |     WHICH BLOCK(and SUFFIX)?              +--------------------------------+ |
    |                                           |                                | |
    |       Please Enter a 3 DIGIT              | STATUS INFORMATION:            | |
    |                                           |                                | |
    |       'BLOCK CODE NUMBER'                 | DO: &DON                       | |
    |                                           |                                | |
    |       (Optional: - follow with a          | STATE: &STA___________________ | |
    |        1 Character Block Suffix)          |                                | |
    |                                           | ABRV: &ABR     FIPS: &STF      | |
    |                                           |                                | |
    |                                           | ARA: &ARA                      | |
    |                                           +--------------------------------+ |
    |     -> &BL_ <-                                                               |
    |                                                                              |
    |                                                                              |
    |     (Enter a 'Q' to Exit/Quit.)                                              |
    |                                                                              |
    +------------------------------------------------------------------------------+
 
  ***** ATTRIBUTES *****
 
         Window name: < CRS - Pick an BLOCK Code >
           Start row:          col:
      Number of rows:         cols:          Banner: NONE
 
        General help:
       Function keys:
     Lookup data set:
        Command menu:
         Prompt char: ?
      System Options:
              Parent:
         Window Type: STANDARD
         Scroll Bars:
 
    -------------------------------------------------------------------------   
      Field name:  DON       Frame: 1   Row: 8      Col: 50     Length: 4
           Alias:  DON         Choice group:               Pad: _
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP NOPROMPT
    -------------------------------------------------------------------------   
      Field name:  STA       Frame: 1   Row: 10     Col: 53     Length: 23
           Alias:  STA         Choice group:               Pad: _
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: AUTOSKIP NOPROMPT
    -------------------------------------------------------------------------   
      Field name:  ABR       Frame: 1   Row: 12     Col: 52     Length: 4
           Alias:  ABR         Choice group:               Pad: _
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP NOPROMPT
    -------------------------------------------------------------------------   
      Field name:  STF       Frame: 1   Row: 12     Col: 67     Length: 4
           Alias:  STF         Choice group:               Pad: _
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP NOPROMPT
    -------------------------------------------------------------------------   
 
 
 
 
 
 
 
 
Monday, March 28, 1994         15:29:34                                                                              PAGE 7     
 
ENTRY: E3_BLK.PROGRAM   Enter BLOCK     Last updated: 04/19/93
 
    -------------------------------------------------------------------------   
      Field name:  ARA       Frame: 1   Row: 14     Col: 51     Length: 4
           Alias:  ARA         Choice group:               Pad: _
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP NOPROMPT
    -------------------------------------------------------------------------   
      Field name:  BL        Frame: 1   Row: 16     Col: 9      Length: 4
           Alias:  BL          Choice group:               Pad: _
            Type:  CHAR             Protect: NO
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS CURSOR
    -------------------------------------------------------------------------   
 
  ***** SOURCE *****
 
    **** m.m.e3_blk.program ***;
    INIT:
    SUBMIT CONTINUE ; ******* START SUBMIT BLOCK ****************;
      data blklist;
      filename blkfile pipe "ls &M_DDIR/&M_DON/&M_ARA | grep '^B' |
        sed -f &M_PDIR/BLK_SED_CMDS | sort -n ";
      infile blkfile delimiter='09'x missover ;
      length blk $4;
      input blk;
      RUN;
    ENDSUBMIT ; ******************** END SUBMIT BLOCK ******************;
    blkid=open('blklist');
    don=symget('M_don');
    ara=symget('M_ara');
    sta=symget('M_sta');
    stf=symget('M_stf');
    abr=symget('M_abr');
      control enter;
    RETURN;
    MAIN:
      if index(BL,'Q') or index(BL,'q') then
      do;
        call execcmd('END');
        return;
      end;
      else
      do;
        if bl='*' then
        do;
          call symput('M_BLK',bl);
          call display('M1.program');
          call execcmdi('PMENU OFF');
          call execcmd('END');
          return;
        end;
        else
        do;
          foundbl=locatec(blkid,varnum(blkid,'blk'),bl);
          if ( foundbl eq 0 ) then
          do;
            call wregion(2,45,winfo('NUMROWS')-2,winfo('NUMCOLS')-45);
            call execcmdi('pmenu on');
            bl=datalistc(blkid,'blk','Please Select a Block:');
            call execcmdi('pmenu off');
          end;
          fndbl=locatec(blkid,varnum(blkid,'blk'),bl);
          if ( fndbl ne 0 ) then
          do;
            call symput('M_BLK',bl);
            call display('M1.program');
            call execcmdi('PMENU OFF');
            call execcmd('END');
            return;
          end;
        end;
      end;
    RETURN;
    TERM:
    rc=close(blkid);
    RETURN;

 
 
 
 
 
 
 
 
Monday, March 28, 1994         15:29:34                                                                              PAGE 8     
 
ENTRY: INTRO1.PROGRAM   Introduction Screen     Last updated: 10/07/93
 
  ***** DISPLAY *****
 
    +------------------------------------------------------------------------------+
    |                                                                              |
    |                                                                              |
    |  CHOOSE AN ACCESS METHOD:  (Use TAB Key to move between selections.)         |
    |                                                                              |
    |    &C1____     &C2_          &C3_______                                      |
    |                                                                              |
    |                                              ******************************  |
    |        CCCCCCC ____ CENSUS                   ********** WARNING! **********  |
    |       CC     CC                              ** --  CONFIDENTIAL DATA -- **  |
    |      CC                                      **    UNAUTHORIZED ACCESS   **  |
    |     CC          RRRRRR ____ REFERENCE        **   IS A FEDERAL OFFENSE!  **  |
    |    CC          RR     RR                     ******************************  |
    |    CC     CC  RR     RR                      ******************************  |
    | ___ CCCCCC   RRRRRRRR     SSSSS ____ SYSTEM                                  |
    |             RR    RR    SS     SS                                            |
    |            RR      RR  SS                                                    |
    | _________ RR       RR   SSSSSS               Demographic                     |
    |                              SS              Statistical                     |
    |                      SS     SS               Methods                         |
    | _____________________ SSSSSSS                Division                        |
    |                                              U.S. Bureau of Census           |
    |                                              ECB-SPCS-DIR-Vers-1.2           |
    |                                                                              |
    +------------------------------------------------------------------------------+
 
  ***** ATTRIBUTES *****
 
         Window name: < CRS >
           Start row:          col:
      Number of rows:         cols:          Banner: NONE
 
        General help:
       Function keys:
     Lookup data set:
        Command menu:
         Prompt char: ?
      System Options:
              Parent:
         Window Type: STANDARD
         Scroll Bars:
 
    -------------------------------------------------------------------------   
      Field name:  C1        Frame: 1   Row: 4      Col: 5      Length: 7
           Alias:  C1          Choice group:  CHOICE       Pad:
            Type:  PUSHBTNC         Protect: INITIAL
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:  REGULAR
         Replace:
         Options: CAPS CURSOR AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  C2        Frame: 1   Row: 4      Col: 17     Length: 4
           Alias:  C2          Choice group:  CHOICE       Pad:
            Type:  PUSHBTNC         Protect: INITIAL
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:  QUIT
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  C3        Frame: 1   Row: 4      Col: 31     Length: 10
           Alias:  C3          Choice group:  CHOICE       Pad:
            Type:  PUSHBTNC         Protect: INITIAL
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:  EDIT NOTES
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
 
  ***** SOURCE *****
 
    *** m.m.intro1.program ***;
    INIT:
     call symputn('M_LROW', winfo('NUMROWS') );
     call symputn('M_SPLTT', winfo('NUMROWS') - 8 ); ** 7 **;
     call symputn('M_SPLTB', winfo('NUMROWS') - 7 ); ** 6 **;
     call execcmdi('zoom off');
     call setfkey(fkeyname(1),'HOME');
     if ( sysget('USER') = 'e_bean') then
       call setfkey(fkeyname(2),'PMENU');
     else
       call setfkey(fkeyname(2),' ');
     call setfkey(fkeyname(3),' ');
 
 
Monday, March 28, 1994         15:29:34                                                                              PAGE 9     
 
ENTRY: INTRO1.PROGRAM   Introduction Screen     Last updated: 10/07/93
 
     call setfkey(fkeyname(4),' ');
     call setfkey(fkeyname(5),'UP');
     call setfkey(fkeyname(6),'DOWN');
     call setfkey(fkeyname(7),'LEFT');
     call setfkey(fkeyname(8),'RIGHT');
     call setfkey(fkeyname(9),' ');
     call setfkey(fkeyname(10),' ');
     call setfkey(fkeyname(11),'RESHOW');
     call setfkey(fkeyname(12),' ');
     call setfkey(fkeyname(13),' ');
     call setfkey(fkeyname(14),' ');
     call setfkey(fkeyname(15),' ');
     call setfkey(fkeyname(16),' ');
     call setfkey(fkeyname(17),' ');
     call setfkey(fkeyname(18),'LEFT');
     call setfkey(fkeyname(19),'RIGHT');
     call setfkey(fkeyname(20),' ');
     call setfkey(fkeyname(21),'BACKWARD');
     call setfkey(fkeyname(22),'FORWARD');
     call setfkey(fkeyname(23),' ');
     call setfkey(fkeyname(24),'LEFT');
     call setfkey(fkeyname(25),'RIGHT');
     call setfkey(fkeyname(26),'FORWARD');
     call setfkey(fkeyname(27),' ');
     call setfkey(fkeyname(28),' ');
     call setfkey(fkeyname(29),'BACKWARD');
     call setfkey(fkeyname(30),' ');
     call setfkey(fkeyname(31),' ');
     call setfkey(fkeyname(32),' ');
     call setfkey(fkeyname(33),' ');
     call setfkey(fkeyname(34),' ');
     call setfkey(fkeyname(35),' ');
     call setfkey(fkeyname(36),' ');
     call setfkey(fkeyname(37),' ');
     call setfkey(fkeyname(38),' ');
     call setfkey(fkeyname(39),' ');
     call setfkey(fkeyname(40),' ');
     call setfkey(fkeyname(41),' ');
    call execcmdi('keys;save sasuser.profile.crs.keys;end;');

    SUBMIT CONTINUE STATUS ; ****** START SUBMIT BLOCK INTRO1*;
    **** SUBMIT INTRO1 ****;
    %INCLUDE "&M_PDIR/INTRO1.sas";
    RUN;
    **** END SUBMIT INTRO1 ****;
    ENDSUBMIT ; ***** ******* ******* ****** END - SUBMIT BLOCK INTRO1*;
     control always;
    RETURN;
    MAIN:
     rc=copy('m.m.fsvr.formula','work.m.fsvr.formula','catalog');
     rc=copy('m.m.fsve.formula','work.m.fsve.formula','catalog');
     rc=copy('m.m.fsvbr.formula','work.m.fsvbr.formula','catalog');
     rc=copy('m.m.fsvbe.formula','work.m.fsvbe.formula','catalog');
     select(CHOICE);
     when('QUIT')
      do;
        call execcmd('END');
      end;
     when('REGULAR')
      do;
        call symput('M_MODE','REG');
        call display ('m.m.e1_do.program');
      end;
     when('EDIT NOTES')
      do;
        if ( sysget('GROUPNO') = '101' or sysget('GROUPNO') = '10' ) then
        do;
        SUBMIT CONTINUE STATUS ; ****** START SUBMIT BLOCK INTRO1A*;
        **** SUBMIT INTRO1A ****;
        %INCLUDE "&M_PDIR/INTRO1A.sas";
        RUN;
        **** END SUBMIT INTRO1A ****;
        ENDSUBMIT ; ***** ******* ******* ****** END - SUBMIT BLOCK INTRO1A*;
       call symput('M_MODE','MOD');
       call display ('m.m.e1_do.program');
        SUBMIT CONTINUE STATUS ; ****** START SUBMIT BLOCK INTRO1B*;
        **** SUBMIT INTRO1B ****;
        %INCLUDE "&M_PDIR/INTRO1B.sas";
        RUN;
        **** END SUBMIT INTRO1B ****;
        ENDSUBMIT ; ***** ******* ******* ****** END - SUBMIT BLOCK INTRO1B*;
        end;
      end;
    *otherwise call execcmd('END');
    otherwise ;
     end;
    choice=' ';
    RETURN;
    TERM:
      if ( sysget('USER') = 'e_bean') then
        do;
          call execcmdi('keys;copy;end;');
        end;
 
 
Monday, March 28, 1994         15:29:34                                                                              PAGE 10    
 
ENTRY: INTRO1.PROGRAM   Introduction Screen     Last updated: 10/07/93
 
        else
        do;
          call execcmdi('end;');
        end;
    RETURN;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
Monday, March 28, 1994         15:29:34                                                                              PAGE 11    
 
ENTRY: KEY.PROGRAM   KEY.PROGRAM     Last updated: 03/26/93
 
  ***** DISPLAY *****
 
    +------------------------------------------------------------------------------+
    |                                                                              |
    |  KEY:    FUNCTION:                                                           |
    |                                                                              |
    |  &K1____ &C1____________________________________________________________     |
    |  &K2____ &C2____________________________________________________________     |
    |  &K3____ &C3____________________________________________________________     |
    |  &K4____ &C4____________________________________________________________     |
    |  &K5____ &C5____________________________________________________________     |
    |  &K6____ &C6____________________________________________________________     |
    |  &K7____ &C7____________________________________________________________     |
    |  &K8____ &C8____________________________________________________________     |
    |  &K9____ &C9____________________________________________________________     |
    |  &K10___ &C10___________________________________________________________     |
    |  &K11___ &C11___________________________________________________________     |
    |  &K12___ &C12___________________________________________________________     |
    |  &K13___ &C13___________________________________________________________     |
    |  &K14___ &C14___________________________________________________________     |
    |  &K15___ &C15___________________________________________________________     |
    |  &K16___ &C16___________________________________________________________     |
    |  &K17___ &C17___________________________________________________________     |
    |  &K18___ &C18___________________________________________________________     |
    |  &K19___ &C19___________________________________________________________     |
    |  &K20___ &C20___________________________________________________________     |
    |  &K21___ &C21___________________________________________________________     |
    |  &K22___ &C22___________________________________________________________     |
    |  &K23___ &C23___________________________________________________________     |
    |  &K24___ &C24___________________________________________________________     |
    |  &K25___ &C25___________________________________________________________     |
    |  &K26___ &C26___________________________________________________________     |
    |  &K27___ &C27___________________________________________________________     |
    |  &K28___ &C28___________________________________________________________     |
    |  &K29___ &C29___________________________________________________________     |
    |  &K30___ &C30___________________________________________________________     |
    |  &K31___ &C31___________________________________________________________     |
    |  &K32___ &C32___________________________________________________________     |
    |  &K33___ &C33___________________________________________________________     |
    |  &K34___ &C34___________________________________________________________     |
    |  &K35___ &C35___________________________________________________________     |
    |  &K36___ &C36___________________________________________________________     |
    |  &K37___ &C37___________________________________________________________     |
    |  &K38___ &C38___________________________________________________________     |
    |  &K39___ &C39___________________________________________________________     |
    |  &K40___ &C40___________________________________________________________     |
    |  &K41___ &C41___________________________________________________________     |
    |  &K42___ &C42___________________________________________________________     |
    |  &K43___ &C43___________________________________________________________     |
    |  &K44___ &C44___________________________________________________________     |
    |  &K45___ &C45___________________________________________________________     |
    |  &K46___ &C46___________________________________________________________     |
    |  &K47___ &C47___________________________________________________________     |
    |  &K48___ &C48___________________________________________________________     |
    |  &K49___ &C49___________________________________________________________     |
    |                                                                              |
    +------------------------------------------------------------------------------+
 
  ***** ATTRIBUTES *****
 
         Window name: FUNCTION KEYS MAP
           Start row:          col:
      Number of rows:         cols:          Banner: SELECT
 
        General help:
       Function keys:
     Lookup data set:
        Command menu:
         Prompt char: ?
      System Options:
              Parent:
         Window Type: STANDARD
         Scroll Bars:
 
    -------------------------------------------------------------------------   
      Field name:  K1        Frame: 1   Row: 3      Col: 3      Length: 7
           Alias:  K1          Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
 
 
 
 
 
 
 
 
 
Monday, March 28, 1994         15:29:34                                                                              PAGE 12    
 
ENTRY: KEY.PROGRAM   KEY.PROGRAM     Last updated: 03/26/93
 
    -------------------------------------------------------------------------   
      Field name:  C1        Frame: 1   Row: 3      Col: 11     Length: 63
           Alias:  C1          Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K2        Frame: 1   Row: 4      Col: 3      Length: 7
           Alias:  K2          Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  C2        Frame: 1   Row: 4      Col: 11     Length: 63
           Alias:  C2          Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K3        Frame: 1   Row: 5      Col: 3      Length: 7
           Alias:  K3          Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  C3        Frame: 1   Row: 5      Col: 11     Length: 63
           Alias:  C3          Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K4        Frame: 1   Row: 6      Col: 3      Length: 7
           Alias:  K4          Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  C4        Frame: 1   Row: 6      Col: 11     Length: 63
           Alias:  C4          Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K5        Frame: 1   Row: 7      Col: 3      Length: 7
           Alias:  K5          Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
 
 
 
 
 
 
Monday, March 28, 1994         15:29:34                                                                              PAGE 13    
 
ENTRY: KEY.PROGRAM   KEY.PROGRAM     Last updated: 03/26/93
 
    -------------------------------------------------------------------------   
      Field name:  C5        Frame: 1   Row: 7      Col: 11     Length: 63
           Alias:  C5          Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K6        Frame: 1   Row: 8      Col: 3      Length: 7
           Alias:  K6          Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  C6        Frame: 1   Row: 8      Col: 11     Length: 63
           Alias:  C6          Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K7        Frame: 1   Row: 9      Col: 3      Length: 7
           Alias:  K7          Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  C7        Frame: 1   Row: 9      Col: 11     Length: 63
           Alias:  C7          Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K8        Frame: 1   Row: 10     Col: 3      Length: 7
           Alias:  K8          Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  C8        Frame: 1   Row: 10     Col: 11     Length: 63
           Alias:  C8          Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K9        Frame: 1   Row: 11     Col: 3      Length: 7
           Alias:  K9          Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
 
 
 
 
 
 
Monday, March 28, 1994         15:29:34                                                                              PAGE 14    
 
ENTRY: KEY.PROGRAM   KEY.PROGRAM     Last updated: 03/26/93
 
    -------------------------------------------------------------------------   
      Field name:  C9        Frame: 1   Row: 11     Col: 11     Length: 63
           Alias:  C9          Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K10       Frame: 1   Row: 12     Col: 3      Length: 7
           Alias:  K10         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  C10       Frame: 1   Row: 12     Col: 11     Length: 63
           Alias:  C10         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K11       Frame: 1   Row: 13     Col: 3      Length: 7
           Alias:  K11         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  C11       Frame: 1   Row: 13     Col: 11     Length: 63
           Alias:  C11         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K12       Frame: 1   Row: 14     Col: 3      Length: 7
           Alias:  K12         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  C12       Frame: 1   Row: 14     Col: 11     Length: 63
           Alias:  C12         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K13       Frame: 1   Row: 15     Col: 3      Length: 7
           Alias:  K13         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
 
 
 
 
 
 
Monday, March 28, 1994         15:29:34                                                                              PAGE 15    
 
ENTRY: KEY.PROGRAM   KEY.PROGRAM     Last updated: 03/26/93
 
    -------------------------------------------------------------------------   
      Field name:  C13       Frame: 1   Row: 15     Col: 11     Length: 63
           Alias:  C13         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K14       Frame: 1   Row: 16     Col: 3      Length: 7
           Alias:  K14         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  C14       Frame: 1   Row: 16     Col: 11     Length: 63
           Alias:  C14         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K15       Frame: 1   Row: 17     Col: 3      Length: 7
           Alias:  K15         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  C15       Frame: 1   Row: 17     Col: 11     Length: 63
           Alias:  C15         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K16       Frame: 1   Row: 18     Col: 3      Length: 7
           Alias:  K16         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  C16       Frame: 1   Row: 18     Col: 11     Length: 63
           Alias:  C16         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K17       Frame: 1   Row: 19     Col: 3      Length: 7
           Alias:  K17         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
 
 
 
 
 
 
Monday, March 28, 1994         15:29:34                                                                              PAGE 16    
 
ENTRY: KEY.PROGRAM   KEY.PROGRAM     Last updated: 03/26/93
 
    -------------------------------------------------------------------------   
      Field name:  C17       Frame: 1   Row: 19     Col: 11     Length: 63
           Alias:  C17         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K18       Frame: 1   Row: 20     Col: 3      Length: 7
           Alias:  K18         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  C18       Frame: 1   Row: 20     Col: 11     Length: 63
           Alias:  C18         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K19       Frame: 1   Row: 21     Col: 3      Length: 7
           Alias:  K19         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  C19       Frame: 1   Row: 21     Col: 11     Length: 63
           Alias:  C19         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K20       Frame: 1   Row: 22     Col: 3      Length: 7
           Alias:  K20         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  C20       Frame: 1   Row: 22     Col: 11     Length: 63
           Alias:  C20         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K21       Frame: 1   Row: 23     Col: 3      Length: 7
           Alias:  K21         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
 
 
 
 
 
 
Monday, March 28, 1994         15:29:34                                                                              PAGE 17    
 
ENTRY: KEY.PROGRAM   KEY.PROGRAM     Last updated: 03/26/93
 
    -------------------------------------------------------------------------   
      Field name:  C21       Frame: 1   Row: 23     Col: 11     Length: 63
           Alias:  C21         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K22       Frame: 1   Row: 24     Col: 3      Length: 7
           Alias:  K22         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  C22       Frame: 1   Row: 24     Col: 11     Length: 63
           Alias:  C22         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K23       Frame: 1   Row: 25     Col: 3      Length: 7
           Alias:  K23         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  C23       Frame: 1   Row: 25     Col: 11     Length: 63
           Alias:  C23         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K24       Frame: 1   Row: 26     Col: 3      Length: 7
           Alias:  K24         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  C24       Frame: 1   Row: 26     Col: 11     Length: 63
           Alias:  C24         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K25       Frame: 1   Row: 27     Col: 3      Length: 7
           Alias:  K25         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
 
 
 
 
 
 
Monday, March 28, 1994         15:29:34                                                                              PAGE 18    
 
ENTRY: KEY.PROGRAM   KEY.PROGRAM     Last updated: 03/26/93
 
    -------------------------------------------------------------------------   
      Field name:  C25       Frame: 1   Row: 27     Col: 11     Length: 63
           Alias:  C25         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K26       Frame: 1   Row: 28     Col: 3      Length: 7
           Alias:  K26         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  C26       Frame: 1   Row: 28     Col: 11     Length: 63
           Alias:  C26         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K27       Frame: 1   Row: 29     Col: 3      Length: 7
           Alias:  K27         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  C27       Frame: 1   Row: 29     Col: 11     Length: 63
           Alias:  C27         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K28       Frame: 1   Row: 30     Col: 3      Length: 7
           Alias:  K28         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  C28       Frame: 1   Row: 30     Col: 11     Length: 63
           Alias:  C28         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K29       Frame: 1   Row: 31     Col: 3      Length: 7
           Alias:  K29         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
 
 
 
 
 
 
Monday, March 28, 1994         15:29:34                                                                              PAGE 19    
 
ENTRY: KEY.PROGRAM   KEY.PROGRAM     Last updated: 03/26/93
 
    -------------------------------------------------------------------------   
      Field name:  C29       Frame: 1   Row: 31     Col: 11     Length: 63
           Alias:  C29         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K30       Frame: 1   Row: 32     Col: 3      Length: 7
           Alias:  K30         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  C30       Frame: 1   Row: 32     Col: 11     Length: 63
           Alias:  C30         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K31       Frame: 1   Row: 33     Col: 3      Length: 7
           Alias:  K31         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  C31       Frame: 1   Row: 33     Col: 11     Length: 63
           Alias:  C31         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K32       Frame: 1   Row: 34     Col: 3      Length: 7
           Alias:  K32         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  C32       Frame: 1   Row: 34     Col: 11     Length: 63
           Alias:  C32         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K33       Frame: 1   Row: 35     Col: 3      Length: 7
           Alias:  K33         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
 
 
 
 
 
 
Monday, March 28, 1994         15:29:34                                                                              PAGE 20    
 
ENTRY: KEY.PROGRAM   KEY.PROGRAM     Last updated: 03/26/93
 
    -------------------------------------------------------------------------   
      Field name:  C33       Frame: 1   Row: 35     Col: 11     Length: 63
           Alias:  C33         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K34       Frame: 1   Row: 36     Col: 3      Length: 7
           Alias:  K34         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  C34       Frame: 1   Row: 36     Col: 11     Length: 63
           Alias:  C34         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K35       Frame: 1   Row: 37     Col: 3      Length: 7
           Alias:  K35         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  C35       Frame: 1   Row: 37     Col: 11     Length: 63
           Alias:  C35         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K36       Frame: 1   Row: 38     Col: 3      Length: 7
           Alias:  K36         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  C36       Frame: 1   Row: 38     Col: 11     Length: 63
           Alias:  C36         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K37       Frame: 1   Row: 39     Col: 3      Length: 7
           Alias:  K37         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
 
 
 
 
 
 
Monday, March 28, 1994         15:29:34                                                                              PAGE 21    
 
ENTRY: KEY.PROGRAM   KEY.PROGRAM     Last updated: 03/26/93
 
    -------------------------------------------------------------------------   
      Field name:  C37       Frame: 1   Row: 39     Col: 11     Length: 63
           Alias:  C37         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K38       Frame: 1   Row: 40     Col: 3      Length: 7
           Alias:  K38         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  C38       Frame: 1   Row: 40     Col: 11     Length: 63
           Alias:  C38         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K39       Frame: 1   Row: 41     Col: 3      Length: 7
           Alias:  K39         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  C39       Frame: 1   Row: 41     Col: 11     Length: 63
           Alias:  C39         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K40       Frame: 1   Row: 42     Col: 3      Length: 7
           Alias:  K40         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  C40       Frame: 1   Row: 42     Col: 11     Length: 63
           Alias:  C40         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K41       Frame: 1   Row: 43     Col: 3      Length: 7
           Alias:  K41         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
 
 
 
 
 
 
Monday, March 28, 1994         15:29:34                                                                              PAGE 22    
 
ENTRY: KEY.PROGRAM   KEY.PROGRAM     Last updated: 03/26/93
 
    -------------------------------------------------------------------------   
      Field name:  C41       Frame: 1   Row: 43     Col: 11     Length: 63
           Alias:  C41         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K42       Frame: 1   Row: 44     Col: 3      Length: 7
           Alias:  K42         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  C42       Frame: 1   Row: 44     Col: 11     Length: 63
           Alias:  C42         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K43       Frame: 1   Row: 45     Col: 3      Length: 7
           Alias:  K43         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  C43       Frame: 1   Row: 45     Col: 11     Length: 63
           Alias:  C43         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K44       Frame: 1   Row: 46     Col: 3      Length: 7
           Alias:  K44         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  C44       Frame: 1   Row: 46     Col: 11     Length: 63
           Alias:  C44         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K45       Frame: 1   Row: 47     Col: 3      Length: 7
           Alias:  K45         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
 
 
 
 
 
 
Monday, March 28, 1994         15:29:34                                                                              PAGE 23    
 
ENTRY: KEY.PROGRAM   KEY.PROGRAM     Last updated: 03/26/93
 
    -------------------------------------------------------------------------   
      Field name:  C45       Frame: 1   Row: 47     Col: 11     Length: 63
           Alias:  C45         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K46       Frame: 1   Row: 48     Col: 3      Length: 7
           Alias:  K46         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  C46       Frame: 1   Row: 48     Col: 11     Length: 63
           Alias:  C46         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K47       Frame: 1   Row: 49     Col: 3      Length: 7
           Alias:  K47         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  C47       Frame: 1   Row: 49     Col: 11     Length: 63
           Alias:  C47         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K48       Frame: 1   Row: 50     Col: 3      Length: 7
           Alias:  K48         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  C48       Frame: 1   Row: 50     Col: 11     Length: 63
           Alias:  C48         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  K49       Frame: 1   Row: 51     Col: 3      Length: 7
           Alias:  K49         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
 
 
 
 
 
 
Monday, March 28, 1994         15:29:34                                                                              PAGE 24    
 
ENTRY: KEY.PROGRAM   KEY.PROGRAM     Last updated: 03/26/93
 
    -------------------------------------------------------------------------   
      Field name:  C49       Frame: 1   Row: 51     Col: 11     Length: 63
           Alias:  C49         Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
 
  ***** SOURCE *****
 
    INIT:
    k1=fkeyname(1); c1=getfkey(fkeyname(1));
    k2=fkeyname(2); c2=getfkey(fkeyname(2));
    k3=fkeyname(3); c3=getfkey(fkeyname(3));
    k4=fkeyname(4); c4=getfkey(fkeyname(4));
    k5=fkeyname(5); c5=getfkey(fkeyname(5));
    k6=fkeyname(6); c6=getfkey(fkeyname(6));
    k7=fkeyname(7); c7=getfkey(fkeyname(7));
    k8=fkeyname(8); c8=getfkey(fkeyname(8));
    k9=fkeyname(9); c9=getfkey(fkeyname(9));
    k10=fkeyname(10); c10=getfkey(fkeyname(10));
    k11=fkeyname(11); c11=getfkey(fkeyname(11));
    k12=fkeyname(12); c12=getfkey(fkeyname(12));
    k13=fkeyname(13); c13=getfkey(fkeyname(13));
    k14=fkeyname(14); c14=getfkey(fkeyname(14));
    k15=fkeyname(15); c15=getfkey(fkeyname(15));
    k16=fkeyname(16); c16=getfkey(fkeyname(16));
    k17=fkeyname(17); c17=getfkey(fkeyname(17));
    k18=fkeyname(18); c18=getfkey(fkeyname(18));
    k19=fkeyname(19); c19=getfkey(fkeyname(19));
    k20=fkeyname(20); c20=getfkey(fkeyname(20));
    k21=fkeyname(21); c21=getfkey(fkeyname(21));
    k22=fkeyname(22); c22=getfkey(fkeyname(22));
    k23=fkeyname(23); c23=getfkey(fkeyname(23));
    k24=fkeyname(24); c24=getfkey(fkeyname(24));
    k25=fkeyname(25); c25=getfkey(fkeyname(25));
    k26=fkeyname(26); c26=getfkey(fkeyname(26));
    k27=fkeyname(27); c27=getfkey(fkeyname(27));
    k28=fkeyname(28); c28=getfkey(fkeyname(28));
    k29=fkeyname(29); c29=getfkey(fkeyname(29));
    k30=fkeyname(30); c30=getfkey(fkeyname(30));
    k31=fkeyname(31); c31=getfkey(fkeyname(31));
    k32=fkeyname(32); c32=getfkey(fkeyname(32));
    k33=fkeyname(33); c33=getfkey(fkeyname(33));
    k34=fkeyname(34); c34=getfkey(fkeyname(34));
    k35=fkeyname(35); c35=getfkey(fkeyname(35));
    k36=fkeyname(36); c36=getfkey(fkeyname(36));
    k37=fkeyname(37); c37=getfkey(fkeyname(37));
    k38=fkeyname(38); c38=getfkey(fkeyname(38));
    k39=fkeyname(39); c39=getfkey(fkeyname(39));
    k40=fkeyname(40); c40=getfkey(fkeyname(40));
    k41=fkeyname(41); c41=getfkey(fkeyname(41));
    /*
    k42=fkeyname(42); c42=getfkey(fkeyname(42));
    k43=fkeyname(43); c43=getfkey(fkeyname(43));
    k44=fkeyname(44); c44=getfkey(fkeyname(44));
    k45=fkeyname(45); c45=getfkey(fkeyname(45));
    k46=fkeyname(46); c46=getfkey(fkeyname(46));
    k47=fkeyname(47); c47=getfkey(fkeyname(47));
    k48=fkeyname(48); c48=getfkey(fkeyname(48));
    k49=fkeyname(49); c49=getfkey(fkeyname(49));
    */

    control enter;
    RETURN;

    MAIN:
    *call execcmd('end');
    RETURN;

    TERM:
    RETURN;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
Monday, March 28, 1994         15:29:34                                                                              PAGE 25    
 
ENTRY: LOCKED.PROGRAM   LOCKED.PROGRAM     Last updated: 03/24/93
 
  ***** DISPLAY *****
 
    +------------------------------------------------------------------------------+
    |                                                                              |
    |                                                                              |
    |        SORRY!                                                                |
    |                                                                              |
    |        The Notes for        DO: &DO_                                         |
    |                                                                              |
    |                            ARA: &ARA                                         |
    |                                                                              |
    |                          BLOCK: &BL                                          |
    |                                                                              |
    |                                                                              |
    |        Are Currently LOCKED by: &USR__                                       |
    |                                                                              |
    |                                                                              |
    |                                                                              |
    |        & Press <RETURN> to continue.                                         |
    |                                                                              |
    +------------------------------------------------------------------------------+
 
  ***** ATTRIBUTES *****
 
         Window name: Locked Message
           Start row: 3        col: 5
      Number of rows: 17      cols: 65       Banner: NONE
 
        General help:
       Function keys:
     Lookup data set:
        Command menu:
         Prompt char: ?
      System Options:
              Parent:
         Window Type: DIALOG
         Scroll Bars:
 
    -------------------------------------------------------------------------   
      Field name:  DO        Frame: 1   Row: 4      Col: 34     Length: 4
           Alias:  DO          Choice group:               Pad: _
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  ARA       Frame: 1   Row: 6      Col: 34     Length: 4
           Alias:  ARA         Choice group:               Pad: _
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  BL        Frame: 1   Row: 8      Col: 34     Length: 3
           Alias:  BL          Choice group:               Pad: _
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  USR       Frame: 1   Row: 11     Col: 34     Length: 6
           Alias:  USR         Choice group:               Pad: _
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  FIELD5    Frame: 1   Row: 15     Col: 9      Length: 1
           Alias:  JUNK        Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:  >
         Replace:
         Options: CAPS CURSOR AUTOSKIP
 
 
Monday, March 28, 1994         15:29:34                                                                              PAGE 26    
 
ENTRY: LOCKED.PROGRAM   LOCKED.PROGRAM     Last updated: 03/24/93
 
    -------------------------------------------------------------------------   
 
  ***** SOURCE *****
 
    INIT:
    submit continue;
    **** m.m.locked.program SUBMIT BLOCK ****;
    data _NULL_;
    filename usr pipe "cat &M_DDIR/&M_DON/&M_ARA/NOTE_LCK ";
    infile usr;
    length usr $ 8;
    input usr;
    call symput('M_LCKPER', usr );
    run;
    endsubmit;
    do= symget('M_DON');
    ara= symget('M_ARA');
    bl= symget('M_BLK');
    usr= symget('M_LCKPER');

    control enter;
    RETURN;

    MAIN:
    call execcmd('END');
    call execcmd('END');
    RETURN;

    TERM:
    RETURN;
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
Monday, March 28, 1994         15:29:34                                                                              PAGE 27    
 
ENTRY: M1.PROGRAM   Menu #1 (Blk) prior to FSV     Last updated: 10/13/93
 
  ***** DISPLAY *****
 
    +------------------------------------------------------------------------------+
    |                                                                              |
    |                                                                              |
    +------------------------------------------------------------------------------+
 
  ***** ATTRIBUTES *****
 
         Window name:
           Start row:          col:
      Number of rows:         cols:          Banner: NONE
 
        General help:
       Function keys:
     Lookup data set:
        Command menu:
         Prompt char: ?
      System Options:
              Parent:
         Window Type: LIST
         Scroll Bars:
 
    -------------------------------------------------------------------------   
 
  ***** SOURCE *****
 
    **** m.m.m1.program ****;
    INIT:
    call symput('M_LKS','UNKNOWN');
    don=symget('M_DON');
    ara=symget('M_ARA');
    abr=symget('M_ABR');
    stf=symget('M_STF');
    lks=symget('M_LKS');
    mde=symget('M_MODE');
    DDIR=symget('M_DDIR'); *** Main Data Directory ***;
    PDIR=symget('M_PDIR'); *** Main Data Directory ***;
    *call display('PMENUS.PROGRAM');
    tl='MENU FOR:  STATE>'||abr||"-"||stf||"  DO>"||don||
      "  ARA>"||ara;
    /*
    *** Values Check for TESTING ONLY ***;
    *****************;
    put "TEST VALUES BEFORE M1.pgm first submit block";
    put "DON=" DON;
    put "ARA=" ARA;
    put "ABR=" ABR;
    put "STF=" STF;
    put "LKS=" LKS;
    put "DDIR=" DDIR;
    put "PDIR=" PDIR;
    put "MDE=" MDE;
    *****************;
    *** END Values Check for TESTING ONLY ***;
    */
    SUBMIT CONTINUE STATUS;
    %INCLUDE "&M_PDIR/M1.sas";
    run;
    ENDSUBMIT;
    *****************;
    return;
    MAIN:
    lks=symget('M_LKS');
    if LKS = 'LCK' then
    do;
     call display ('m.m.locked.program');
     call execcmd ('END');
     return;
    end;
    else
    do;
      LINK LOOP;
    end;
    return;
    TERM:
    if LKS eq "OK" AND MDE eq "MOD" then
    do;
      SUBMIT CONTINUE STATUS ; ******* SUBMIT BLOCK (TERM) ********;
      %INCLUDE "&M_PDIR/M1_2.sas";
      RUN;
      ENDSUBMIT ; ********* END SUBMIT BLOCK (TERM) ********;
    rc=system('rm ' || DDIR || '/' || DON || '/' || ARA ||
         '/NOTE_LCK 2> /dev/null ;  ');
    rc=system('chmod 770 ' || DDIR || '/' || DON || '/' || ARA ||
         '/C* 2> /dev/null ; ');
    rc=system('chmod 770 ' || DDIR || '/' || DON || '/' || ARA ||
         '/D* 2> /dev/null ; sync; sync ');
    end;
    return;
    GETROW:
    return;
    PUTROW:
 
 
Monday, March 28, 1994         15:29:34                                                                              PAGE 28    
 
ENTRY: M1.PROGRAM   Menu #1 (Blk) prior to FSV     Last updated: 10/13/93
 
    return;
    LOOP:
    do while (choice ne 0);
    choice=block(
      '< CRS - Menu 1 >',tl,
      1,
      ' ',
      'TABLE VIEW',
      'PAGE VIEW',
      'LIST VIEW',
      ' ',
      ' ',
      'QUIT/EXIT',
      'HELP',
      'KEYS',
      ' ',
      ' ',
      ' ' );
    select(choice);
    when(1) ;
    when(2)
      do;
    /*    call execcmd('pmenu on; setpmenu work.m.fsv1');  */
        call execcmd('pmenu on;setpmenu work.m.fsv1;
         keys;copy sasuser.profile.crs.keys;end;');
        if LKS eq "OK" AND MDE eq "MOD" then
          call fsview("HU_GQ",'EDIT','work.m.fsve.formula');
        else
          call fsview("HU_GQ",'EDIT','work.m.fsvr.formula','BRONLY');
        if ( exist('prt1','data') or exist('prt2','data') ) then
        do;
           if ( exist('prt1','DATA') ) then
           do;
             call symput('M_PGRP','H'); *PGRP=Program Group*;
             call display('m.m.picrpt.program');
           end;
           if ( exist('prt2','DATA') ) then
           do;
             call symput('M_PGRP','B'); *PGRP=Program Group*;
             call display('m.m.picrpt.program');
           end;
           call display('m.m.picprt.program');
           if ( exist('prt1','data')) then rc=delete('prt1','data');
           if ( exist('prt2','data')) then rc=delete('prt2','data');
           call symput('M_HPGM', ' ' );
           call symput('M_BPGM', ' ' );
    *      if (rc) then _MSG_=sysmsg();
        end;
        call execcmd('pmenu off;');
      end;
    when(3)
      do;
        call execcmd('pmenu on; setpmenu work.m.fse1;
          keys;copy sasuser.profile.crs.keys;end;');
        call fsedit("HU_GQ",' ','BROWSE');
        call execcmd('pmenu off;');
      end;
    when(4)
      do;
        call execcmd('pmenu on; setpmenu work.m.fse1;
          keys;copy sasuser.profile.crs.keys;end;');
        call fsedit("HU_GQ",'=','BROWSE');
        call execcmd('pmenu off;');
      end;
    when(5) ;
    when(6) ;
    when(7) leave loop;
    when(8)
      do;
        call execcmd('pmenu on; setpmenu work.m.fsl1;
          keys;copy sasuser.profile.crs.keys;end;');
        rc=filename('hlp', PDIR || '/HLP_M1');
        call fslist('hlp');
        call execcmd('pmenu off;');
      end;
    when(9)
      do;
        call execcmd('pmenu on; setpmenu work.m.fsl1');
        call display('m.m.key.program');
        call execcmd('pmenu off;');
      end;
    otherwise leave loop;
    end;
    end;
    call endblock();
    return;
 
 
 
 
 
 
 
 
 
Monday, March 28, 1994         15:29:34                                                                              PAGE 29    
 
ENTRY: PICPRT.PROGRAM   Pick a PRINTER program     Last updated: 10/13/93
 
  ***** DISPLAY *****
 
    +------------------------------------------------------------------------------+
    |                                                                              |
    |                                                                              |
    |   PRINT SPECIFICATIONS:               (WARNING! Print only to                |
    |                                        SECURE printers, pick up              |
    |       PRINTER NAME: &PRINTER__         your print-outs QUICKLY,              |
    |                                        and be cautious when                  |
    |               Type: &TYPE_____         printing. Print only                  |
    |         Page Width: &WIDTH_            the variables you need and            |
    |        Page Length: &LENGTH            only to YOUR printer!)                |
    |               City: &CITY_____________         ====                          |
    |           Building: &BLDG_____________                                       |
    |               Room: &ROOM_____________                                       |
    |           DEC Node: &NODE_____________                                       |
    |           DEC Port: &PORT_____________                                       |
    |            Contact: &CONTACT____________________________________             |
    |              Phone: &PHONE____________________                               |
    |                                                                              |
    |       &A___        &B____                                                    |
    |                                                                              |
    +------------------------------------------------------------------------------+
 
  ***** ATTRIBUTES *****
 
         Window name: Please Select a Printer:
           Start row: 2        col: 2
      Number of rows: 22      cols: 75       Banner: NONE
 
        General help:
       Function keys:
     Lookup data set:
        Command menu:
         Prompt char: ?
      System Options:
              Parent:
         Window Type: STANDARD
         Scroll Bars:
 
    -------------------------------------------------------------------------   
      Field name:  PRINTER   Frame: 1   Row: 4      Col: 22     Length: 10
           Alias:  PRINTER     Choice group:               Pad: _
            Type:  CHAR             Protect: NO
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS CURSOR REQUIRED
    -------------------------------------------------------------------------   
      Field name:  TYPE      Frame: 1   Row: 6      Col: 22     Length: 10
           Alias:  TYPE        Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  WIDTH     Frame: 1   Row: 7      Col: 22     Length: 7
           Alias:  WIDTH       Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  LENGTH    Frame: 1   Row: 8      Col: 22     Length: 7
           Alias:  LENGTH      Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
 
 
 
 
 
 
 
 
 
 
Monday, March 28, 1994         15:29:34                                                                              PAGE 30    
 
ENTRY: PICPRT.PROGRAM   Pick a PRINTER program     Last updated: 10/13/93
 
    -------------------------------------------------------------------------   
      Field name:  CITY      Frame: 1   Row: 9      Col: 22     Length: 18
           Alias:  CITY        Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  BLDG      Frame: 1   Row: 10     Col: 22     Length: 18
           Alias:  BLDG        Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  ROOM      Frame: 1   Row: 11     Col: 22     Length: 18
           Alias:  ROOM        Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  NODE      Frame: 1   Row: 12     Col: 22     Length: 18
           Alias:  NODE        Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  PORT      Frame: 1   Row: 13     Col: 22     Length: 18
           Alias:  PORT        Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  CONTACT   Frame: 1   Row: 14     Col: 22     Length: 44
           Alias:  CONTACT     Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  PHONE     Frame: 1   Row: 15     Col: 22     Length: 26
           Alias:  PHONE       Choice group:               Pad:
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  A         Frame: 1   Row: 17     Col: 8      Length: 5
           Alias:  A           Choice group:  CHOICE       Pad:
            Type:  PUSHBTNC         Protect: INITIAL
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:  PRINT
         Replace:
         Options: CAPS REQUIRED
    -------------------------------------------------------------------------   
 
 
 
 
 
 
Monday, March 28, 1994         15:29:34                                                                              PAGE 31    
 
ENTRY: PICPRT.PROGRAM   Pick a PRINTER program     Last updated: 10/13/93
 
    -------------------------------------------------------------------------   
      Field name:  B         Frame: 1   Row: 17     Col: 21     Length: 6
           Alias:  B           Choice group:  CHOICE       Pad:
            Type:  PUSHBTNC         Protect: INITIAL
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:  CANCEL
         Replace:
         Options: CAPS REQUIRED
    -------------------------------------------------------------------------   
 
  ***** SOURCE *****
 
    INIT:
    lpid=open('m.printers');
    control enter;
    RETURN;

    MAIN:
    if (choice eq 'CANCEL') then
    do;
      call execcmd('CANCEL');
    end;
    else
    do;
      foundp=locatec(lpid,varnum(lpid, 'printer' ), printer );
      if (foundp eq 0 ) then
      do;
        call wregion(2,25,winfo('NUMROWS')-2,winfo('NUMCOLS')-25);
        call execcmdi('pmenu on');
        printer=datalistc(lpid,'printer type bldg room',
         'Printer/Type/Building/Room');
        call execcmdi('pmenu off');
      end;
      if ( printer ne ' ' ) then
      do;
        type=getvarc(lpid,varnum(lpid,'type'));
        city=getvarc(lpid,varnum(lpid,'city'));
        bldg=getvarc(lpid,varnum(lpid,'bldg'));
        room=getvarc(lpid,varnum(lpid,'room'));
        node=getvarc(lpid,varnum(lpid,'node'));
        port=getvarc(lpid,varnum(lpid,'port'));
        contact=getvarc(lpid,varnum(lpid,'contact'));
        phone=getvarc(lpid,varnum(lpid,'phone'));
        width=getvarn(lpid,varnum(lpid,'width'));
        length=getvarn(lpid,varnum(lpid,'length'));
        lta=getvarn(lpid,varnum(lpid,'lta'));
        user=sysget('USER');
      end;
      if (choice eq 'PRINT') then
      do;
    *    call execcmd('END');
        if ( exist('prt1','DATA') ) then
        do;
          SUBMIT CONTINUE STATUS; **************************;
            options ps=&LENGTH ls=&WIDTH pageno=1;
            filename prt1 pipe "lp -dlta&lta";
            %LET USER=&USER;RUN;
            %INCLUDE "&M_PDIR./&M_HPGM.";
            proc printto;                          RUN;
            title1; title2; title3; title4; title5;
            title6; title7; title8; title9; title10;
            footnote1; footnote2; footnote3; footnote4; footnote5;
            footnote6; footnote7; footnote8; footnote9; footnote10;
            run;
          ENDSUBMIT; ***************************************;
        end;
        if ( exist('prt2','DATA') ) then
        do;
          SUBMIT CONTINUE STATUS; **************************;
            options ps=&LENGTH ls=&WIDTH pageno=1;
            filename prt1 pipe "lp -dlta&lta";
            %LET USER=&USER;RUN;
            %INCLUDE "&M_PDIR./&M_BPGM.";
            proc printto;                          RUN;
            title1; title2; title3; title4; title5;
            title6; title7; title8; title9; title10;
            footnote1; footnote2; footnote3; footnote4; footnote5;
            footnote6; footnote7; footnote8; footnote9; footnote10;
            run;
          ENDSUBMIT; ***************************************;
        end;
        call execcmd('END');
      end;
    end;
    RETURN;

    TERM:
    rc=close(lpid);
    RETURN;
 
 
 
Monday, March 28, 1994         15:29:34                                                                              PAGE 32    
 
ENTRY: PICRPT.PROGRAM   Pick a REPORT program     Last updated: 10/13/93
 
  ***** DISPLAY *****
 
    +------------------------------------------------------------------------------+
    |                                                                              |
    |                                                                              |
    |   REPORT SPECIFICATIONS:    --> For: &TXT1____________________               |
    |                                                                              |
    |                                                                              |
    |      REPORT TYPE NUMBER: &RN_                                                |
    |                                                                              |
    |             Description: &RPT_____________________                           |
    |                                                                              |
    |            Program Name: &PGM_____________________                           |
    |                                                                              |
    |    WARNING! In order to run any report type other than '1', ALL              |
    |             VARIABLES should be selected for printing or your report         |
    |             may not print properly.                                          |
    |                                                                              |
    |                                                                              |
    |                                                                              |
    |                                                                              |
    |                                                                              |
    |       &A______     &B____                                                    |
    |                                                                              |
    +------------------------------------------------------------------------------+
 
  ***** ATTRIBUTES *****
 
         Window name: Please Select a Report:
           Start row: 2        col: 2
      Number of rows: 22      cols: 75       Banner: NONE
 
        General help:
       Function keys:
     Lookup data set:
        Command menu:
         Prompt char: ?
      System Options:
              Parent:
         Window Type: STANDARD
         Scroll Bars:
 
    -------------------------------------------------------------------------   
      Field name:  TXT1      Frame: 1   Row: 2      Col: 39     Length: 25
           Alias:  TXT1        Choice group:               Pad: _
            Type:  CHAR             Protect: NO
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  RN        Frame: 1   Row: 5      Col: 27     Length: 4
           Alias:  RN          Choice group:               Pad: _
            Type:  NUM              Protect: NO
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: CAPS CURSOR AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  RPT       Frame: 1   Row: 7      Col: 27     Length: 25
           Alias:  RPT         Choice group:               Pad: _
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: AUTOSKIP
    -------------------------------------------------------------------------   
      Field name:  PGM       Frame: 1   Row: 9      Col: 27     Length: 25
           Alias:  PGM         Choice group:               Pad: _
            Type:  CHAR             Protect: YES
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:
         Replace:
         Options: AUTOSKIP
    -------------------------------------------------------------------------   
 
 
 
 
 
 
 
 
Monday, March 28, 1994         15:29:34                                                                              PAGE 33    
 
ENTRY: PICRPT.PROGRAM   Pick a REPORT program     Last updated: 10/13/93
 
    -------------------------------------------------------------------------   
      Field name:  A         Frame: 1   Row: 19     Col: 8      Length: 8
           Alias:  A           Choice group:  CHOICE       Pad:
            Type:  PUSHBTNC         Protect: INITIAL
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:  CONTINUE
         Replace:
         Options: CAPS REQUIRED
    -------------------------------------------------------------------------   
      Field name:  B         Frame: 1   Row: 19     Col: 21     Length: 6
           Alias:  B           Choice group:  CHOICE       Pad:
            Type:  PUSHBTNC         Protect: INITIAL
          Format:                      Just: LEFT
        Informat:
     Error color:  RED         attr:  REVERSE       Help:
            List:
         Initial:  CANCEL
         Replace:
         Options: CAPS REQUIRED
    -------------------------------------------------------------------------   
 
  ***** SOURCE *****
 
    INIT:
    grp=symget('M_PGRP');
    if ( grp = 'H' ) then
    do;
      rptid=open("m.hrpts");
      TXT1 = 'HU/GQ Information';
    end;
    if ( grp = 'B' ) then
    do;
      rptid=open("m.brpts");
      TXT1 = 'Block Summary Information';
    end;
    rn = 1 ;
        foundp=locaten(rptid,varnum(rptid, 'rn' ), rn );
        rpt=getvarc(rptid,varnum(rptid,'rpt'));
        pgm=getvarc(rptid,varnum(rptid,'pgm'));
    control enter;
    RETURN;

    MAIN:
    if (choice eq 'CANCEL') then
    do;
      call execcmd('CANCEL');
    end;
    else
    do;
      if ( rn = . ) then
      foundp=0;
      else
      do;
        foundp=locaten(rptid,varnum(rptid, 'rn' ), rn );
      end;
      if (foundp eq 0 ) then
      do;
        call wregion(2,25,winfo('NUMROWS')-2,winfo('NUMCOLS')-25);
        call execcmdi('pmenu on');
        rn=datalistn(rptid,'rn rpt',
         'Report Num./Description');
        call execcmdi('pmenu off');
      end;
      if ( rn ne .  ) then
      do;
        rpt=getvarc(rptid,varnum(rptid,'rpt'));
        pgm=getvarc(rptid,varnum(rptid,'pgm'));
      end;
      if (choice eq 'CONTINUE') then
      do;
    *    call execcmd('END');
        if ( grp = 'H' ) then
          call symput('M_HPGM', pgm );
        if ( grp = 'B' ) then
          call symput('M_BPGM', pgm );
        call execcmd('END');
      end;
    end;
    RETURN;

    TERM:
    rc=close(rptid);
    RETURN;