IBM Mainframe Forum

)ATTR                                                                   
* TYPE(TEXT)   INTENS(HIGH) COLOR(BLUE)  CAPS(OFF)                     
# TYPE(TEXT)   INTENS(HIGH) COLOR(WHITE) CAPS(OFF)                     
@ TYPE(TEXT)   INTENS(LOW)  COLOR(GREEN)                               
_ TYPE(INPUT)  INTENS(HIGH) COLOR(WHITE) PAD('_') CAPS(OFF)             
{ TYPE(OUTPUT) INTENS(LOW)  COLOR(WHITE) CAPS(OFF)                     
)BODY                                                                   
*                          Database Archiving Tool                     
*                                                                       
*         @This utility will archive data in a database to GDGs         
*                                                                       
* Database/HLQ name:_DBname        *Date for Archiving:_ARVdate   #(dd/mm/yyyy)
*                                                                       
* Table Name 1:_TBLname1      +                                         
*                                                                       
* Table Name 2:_TBLname2      +             
                                       
 Table Name 3:_TBLname3      +         
                                       
 Table Name 4:_TBLname4      +         
                                       
 Table Name 5:_TBLname5      +         
                                       
 Table Name 6:_TBLname6      +         
                                       
                                       
 {INFO                                 
PROC                                   
ver(&DBname,nb)                         
ver(&ARVdate,nb)                       
ver(&ARVdate,pict,'nn/nn/nnnn')         
&KEYNUM = .PFKEY                       
vput(DBname ARVdate TBLname1 TBLname1 TBLname2 TBLname3 TBLname4 + 
     TBLname5 TBLname6) SHARED                                     
IF (&KEYNUM = 'PF03')                                               
   &NOMORE  = 'Y'                                                   
VGET(INFO)                                                         
END                                                                                           

/* REXX                                                              */
/*********************************************************************/
/*                           MAIN ROUTINE                            */
/*********************************************************************/
ADDRESS TSO                                                             
KEYNUM = 0                                                             
NOMORE = ''                                                             
DO UNTIL (NOMORE = 'Y')                                                 
  CLRSCRN                                                               
  CALL DISPLAY_PANEL                                                   
END                                                                     
EXIT                                                                   
/*********************************************************************/
/* DISPLAY PANEL                                                     */
/*********************************************************************/
DISPLAY_PANEL:                                                         
                                                                       
  /* panel location */                                                 
  panel_pds = 'REXX.EXEC'                                             
  ADDRESS ISPEXEC "LIBDEF ISPPLIB DATASET ID("panel_pds") STACK"       
                                                                       
  /* clear panel's variable */                                         
  DBname   = ''                                                       
  ARVdate  = ''                                                       
  TBLname1 = ''                                                       
  TBLname2 = ''                                                       
  TBLname3 = ''                                                       
  TBLname4 = ''                                                       
 TBLname5 = ''                                   
 TBLname6 = ''                                   
                                                 
 /* put value into panel */                     
 ADDRESS ISPEXEC "VPUT (INFO) SHARED"           
                                                 
 /* display panel */                             
 ADDRESS ISPEXEC "CONTROL DISPLAY REFRESH"       
 ADDRESS ISPEXEC "DISPLAY PANEL(p@30610)"       
                                                 
 /* when you press F3 */                         
 IF KEYNUM = 'PF03'  THEN DO                     
    NOMORE = 'Y'                                 
    RETURN                                       
 END                                             
/* get value from panel */                                         
ADDRESS ISPEXEC "VGET (DBname ARVdate TBLname1 TBLname2 TBLname3 ,
                       TBLname4 TBLname5 TBLname6) SHARED"         
                                                                   
RETURN