zOs/REXX/RCALLFAD

/* REXX ----------------------------------------------------------------

   START COMPUWARE FILEAID, ENTRY: EDIT TEMPLATE
   ---------------------------------------------

history
   15.12.2014/WK:  V3R4 FileAid Libraryfür fileAid 6.3 - 10.1.0.36
   30.05.2013/WK:  V3R3 FileAid Library nur noch fuer DB2 v10
   10.02.2012/WK:  V3R2 FileAid Library für DB2 V10 bzw. FA/DB2 V6.2
   07.12.2007/STR: V3R1 FileAid Library angepasst
   19.09.2006/STR: V3R0 RCALLFAD FÜR AUFRUF MIT 'TSO EXCP'
   07.07.2006/STR: V2R0 XFAEDIT1 FÜR AUFRUF MIT IBM ADM TOOL
   29.10.2001/HBD: V1R2 LOGIK FÜR SSID BEI REMOTE ZUGRIFFEN
   18.12.2000/HBD: VERSION 1

test fileAid Version
    primary command INFO zeigt FAD, DB2, usw. Version

----------------------------------------------------------------------*/
DEBUG=0

Pgm_VERS='V3R3'

ARG XMODE XSSID XNAME XQUAL

if 0 & xmode == '' then   /* activate for test */
    parse value 'browse DP4G TQZ008GBGRSCHWHIST  OA1P' ,
            with XMODE XSSID XNAME XQUAL
IF DEBUG THEN DO
   SAY 'PGM-VERSION: 'PGM_VERS
   SAY '.. PASSED VARIABLES: '
   SAY '.. MODUS ='XMODE
   SAY '.. XSSID ='XSSID', XNAME='XNAME', XQUAL='XQUAL
END

/* ISPF VARIABLEN ABFUELLEN FUER BENUTZER, DIE NOCH NIE IN FILEAID */
/* EINGELOGGT SIND                                                 */
/* F2SSID   = DB2 Group Attach Name                                */
/* F2PLAN   = FileAid Plan Name                                    */
/* F2CAPS2  = Daten in Uppercase convertieren                      */
/* SPIMPNUL = Column-Defaults werden übernommen                    */
/* UPKEYEDI = Unique Key Informationen werden herausgelesen        */
/**/
address ispexec "VGET (F2SSID F2PLAN F2CAPS2 SPIMPNUL UPKEYEDI) ASIS"
IF DEBUG THEN SAY "F2SSID  ="F2SSID
IF DEBUG THEN SAY "F2PLAN  ="F2PLAN
/* Alte Werte sichern */
F2SSID_o   = F2SSID
F2PLAN_o   = F2PLAN
F2CAPS2_o  = F2CAPS2
SPIMPNUL_o = SPIMPNUL
UPKEYEDI_o = UPKEYEDI
/* Neue Werte setzen und in Profile schreiben */
F2SSID     = XSSID
F2PLAN     = "FILEAID"
F2CAPS2    = "IN"
SPIMPNUL   = "ON"
UPKEYEDI   = "OFF"

address ispExec "VPUT (F2SSID F2PLAN F2CAPS2 SPIMPNUL UPKEYEDI) PROFILE"
/* fileAid 6.2 und hoffentlich alle späteren */
syLib = COMPWARE.ALIAS.FD.ISRCLIB
csLib = COMPWARE.ALIAS.FD.ISRCLIB.CS
/* fileAid 6.3 und hoffentlich alle späteren */
syLib = COMPWARE.ALIAS.SXVJCLIB
csLib = COMPWARE.ALIAS.CXVJCLIB
if debug then
    say 'csLib' cslib
address tso "ALTLIB ACTIVATE APPLICATION(CLIST) ",
                  "DSNAME('"cslib"', '"sylib"')"

/* FAD AUFRUFEN */
ADDRESS ISPEXEC "SELECT CMD(F2XNTRFC OPTION("XMODE") ENTRY(TEMPLATE)",
       "SSID("XSSID") QUAL("XQUAL") NAME("XNAME") TRACE(OFF)) ",
       "NEWAPPL PASSLIB"

ADDRESS TSO "ALTLIB DEACTIVATE APPLICATION(CLIST)"
/* Alte Werte wiederherstellen und in Profile speichern */
F2SSID     = F2SSID_o
F2PLAN     = F2PLAN_o
F2CAPS2    = F2CAPS2_o
SPIMPNUL   = SPIMPNUL_o
UPKEYEDI   = UPKEYEDI_o
address ispExec "VPUT (F2SSID F2PLAN F2CAPS2 SPIMPNUL UPKEYEDI) PROFILE"
EXIT;