* PSDCF0
      PROGRAMA 'MENU DE AYUDAS' /PROCESO-DE-ERROR 'DCER'  $
                                /COLOR AZUL AMARILLO $
                                /AREAS-COMUNES DIR
      DOCUMENTACION 3 0
      SI DIR-PER-TEM = ' ' EJECUTA 5
      OPCION DISCO AYUDAP DISCO DIR-PER-TEM
      OPCION DISCO AYUDAV DISCO DIR-PER-TEM
*D
*D    ESTE PROGRAMA ES EL MENU PARA EL SISTEMA DE AYUDAS DE SISINF
*D
*
*     DEFINICION DEL AREA DE MENU
*
      IGUAL AREA X4 SEL
      OPCION TERMINAL AREA 1   /MENU   /MARCO   /BN  VI  VI NO-E $
      /COLOR  BLANCO BLANCO NEGRO  NEGRO AMARILLO  CELESTE NEGRO $
      /TECLAS-DE-FUNCION    1 'TERMINAR ELS'     2 '*AYUDA'     $
      /AYUDA-GLOBAL    DESPLEGAR-AYUDA-MENU /POS. 2 1 /LONG. 9 80 $
      /CAMPOS                                                    $
       'Opciones del sistema de ayudas SISINF' /ENC. $
       'DCF1'  5   'ABMCCL, AYUDAS *VARIABLES'               $
       'DCF2'  5   'ABMCCL, AYUDAS *AREAS    '               $
       'DCF3'  5   'ABMCCL, AYUDAS *PROGRAMAS'               $
       'DCF4'  5   'PASO DE AYUDAS CON *T801 '               $
       'DCF5'  5   '*LISTAR AYUDAS           '               $
       'DCF6'  5   '*BUSCAR PALABRAS         '               $
       'T'     10  'TERMINAR (*/)            ' $
       SEL /VAR-SEL.  /DESP-LEC.
*
*     DEFINIR AREA DE LECTURA DE DIRECTORIO
*
      OPCION TERMINAL AREA 2   /RENGLON   /MARCO   /BN  NO-E VI NO-E $
      /COLOR  BLANCO BLANCO NEGRO  NEGRO AMARILLO  BLANCO NEGRO  $
       /TECLAS-DE-FUNCION    1 'TERMINAR ELS' 2 '*AYUDA' $
       /AYUDA-GLOBAL    DESPLEGAR-AYUDA  /POS. 12 1 /LONG. 3 80 $
      /CAMPOS    DIR-PER-TEM
*
*     DEFINIR AREA DE TECLAS DE FUNCION
*
      OPCION TERMINAL AREA 3   /RENGLON  /MARCO   /BN  VI  VI NO-E $
      /COLOR  BLANCO BLANCO NEGRO  NEGRO AMARILLO  BLANCO NEGRO  $
      /POS. 16 1 /LONG. 3 80 /CAMPOS $
           'F1 Terminar ELS   F2 Ayuda/pantalla $
           $completa   F3 Regersar a menu anterior.'
*D
*D    DESPLEGAR MENU, LEER OPCION  
*D    LA PRIMERA VEZ LEER DIRECTORIO DE LOS PERMANENTES DE AYUDAS 
*D    Y EL TEMPORAL PARA PASO ENTRE MAQUINAS DE AYUDAS, LUEGO
*D    EJECUTA PSDCFX PARA QUE REVISE SI SE HACE LA RECONSTRUCCION
*
      IGUAL AREA X4 PROG-ANT
5     SACAR PARAMETROS PROGRAMA-ANTERIOR PROG-ANT
      SI PROG-ANT <> ' ' EJECUTA 10
      OPCION TERMINAL AREA 1 2 3 /DESPLEGAR
      EJECUTA 11
10    OPCION TERMINAL AREA 1 3 /DESPLEGAR
      MOVER PROG-ANT A SEL
*
11    LEER TERMINAL EJECUTA 20 SEL
      SI SEL = 'T' EJECUTA 20
      SI PROG-ANT <> ' ' EJECUTA 19
      LEER TERMINAL EJECUTA 20 DIR-PER-TEM
      MOVER SEL A SIG-PROG-RECA
      FIN 'DCFX'
*
19    FIN SEL
20    FIN
*
*     INCLUIR AYUDA DE PROGRAMAS
*
&I    AYUM
&I    AYUP
OPCION TERMINAL AREA 999 /ERROR /TIEMPO 0 0
