zOs/REXX.O08/BEST1TOP
PROC 0 TEST
/*******************************************************************/
/* CLIST : BEST1TOT (TEST) BEST1TOP (PRODUKTION) */
/* FUNCTION : BEST/1-DATENBANKSYSTEM */
/* AUTHOR : G.CABERNARD,27514,OTH1 */
/* CREATED : 01.02.94 */
/* LAST MOD. : 08.03.96 NAK UND SMS */
/* LAST MOD. : 14.08.96 VON TUNING AUF SYSTEM */
/* LAST MOD. : 05.08.03 KTPS1/GC SAS V6->V8 UND LPARMIPS ADDIERT */
/*-----------------------------------------------------------------*/
/* PANELS : NONE */
/* MESSAGES : NONE */
/* SKELETONS : NONE */
/* PROGRAMS : TS9001 */
/* CLISTS : SAS6 */
/*******************************************************************/
IF &TEST = TEST THEN +
CONTROL MAIN ASIS NOFLUSH NOPROMPT MSG LIST CONLIST SYMLIST
ELSE +
CONTROL MAIN ASIS NOFLUSH NOPROMPT NOMSG NOLIST NOCONLIST NOSYMLIST
/* GRAFIK-BIBLIOTHEN ALLOZIEREN ***********************************/
/*ALLOC DD(ADMPC) DSN('GDDM.DIV.P0.ADMPCF') SHR */
/*ALLOC DD(ADMSYMBL) DSN('GDDM.DIV.P0.ADMSYM') SHR */
/*ALLOC DD(SKACFORM) DSN('GDDM.DIV.P0.ADMCFRM') SHR */
/*ALLOC DD(ADMCDATA) DSN('ES.DIV.P0.ADMCDATA') SHR */
/*ALLOC DD(ADMCFORM) DSN('ES.DIV.P0.ADMCFORM') SHR */
/*ALLOC DD(ADMCDEF) DSN('ES.DIV.P0.ADMCDEF') SHR */
/*ALLOC DD(ADMGDF) DSN('ES.DIV.P0.ADMGDF') SHR */
ALLOC DD(VIOWRK) -
SPACE(50 10) CYLINDERS NEW UNIT(VIO) -
BLKSIZE(8704) LRECL(8704) RECFM(F S) REUSE DELETE
/* SETZEN BEZUGS- UND DATEINAMEN ***********************************/
SET TOOL1DDW=TOOL1DDW /* SCL BEZUGSNAME *SAS*/
SET TOOL1DSW=ES.DIV.P0.TOOL.SASV8.APPL /* SCL PROGRAMME 050803 *SAS*/
SET TOOL1DDP=TOOL1DDP /* PROFILE BEZUGSNAME*SAS*/
SET TOOL1DSP=ES.DIV.P0.TOOL.SASV8.PROF /* PROFILE DATEI 050803 *SAS*/
SET TOOL1DDS=TOOL1DDS /* JCL BEZUGSNAME *PDS*/
SET TOOL1DSS=ES.DIV.P0.TOOL.PARM /* PDS WORK-DS *PDS*/
/* SETZEN BEZUGS- UND DATEINAMEN FÜR DATEN *************************/
SET BST00DDD=BST00DDD /* JCL BEZUGSNAME DATEN ALL*SAS*/
SET BST00DSD=ES.DIV.P0.AKT.SASFRMT /* JCL DATEI DATEN*SAS*/
SET BST01DDD=BST01DDD /* JCL BEZUGSNAME DATEN RZ1*SAS*/
SET BST01DSD=ES.DIV.P0.RZ1.SYSTEM.SASDB /* JCL DATEI DATEN *SAS*/
SET BST02DDD=BST02DDD /* JCL BEZUGSNAME DATEN RZ2*SAS*/
SET BST02DSD=ES.DIV.P0.RZ2.SYSTEM.SASDB /* JCL DATEI DATEN *SAS*/
SET BST03DDD=BST03DDD /* JCL BEZUGSNAME DATEN RZ3*SAS*/
SET BST03DSD=ES.DIV.P0.RZ3.SYSTEM.SASDB /* JCL DATEI DATEN *SAS*/
SET BST04DDD=BST04DDD /* JCL BEZUGSNAME DATEN RZ4*SAS*/
SET BST04DSD=ES.DIV.P0.RZ4.SYSTEM.SASDB /* JCL DATEI DATEN *SAS*/
SET BST05DDD=BST05DDD /* JCL BEZUGSNAME DATEN RRZ*SAS*/
SET BST05DSD=ES.DIV.P0.RRZ.SYSTEM.SASDB /* JCL DATEI DATEN *SAS*/
SET BST0LDDD=BST0LDDD /* JCL BEZUGSNAME DATEN RRZ*SAS*/
SET BST0LDSD=ES.DIV.P0.RZLEU.SYSTEM.SASDB /* JCL DATEI DATEN *SAS*/
SET HRWRFIL =BEST.DIV.P0.BGS.HRWRFIL /* HARDWARE-FILE GRATNER *OSF*/
/* SETZEN USER-PROFILE MACRO VARIABLEN *****************************/
ISPEXEC SELECT PGM(TS9001)
ISPEXEC VGET (ZUSER) SHARED
ISPEXEC VGET (UIDSTR)
SET PID = &ZUSER
IF &ZUSER = F333481 THEN DO
SET USERNAM = &SUBSTR(25:32,&UIDSTR)
SET INSTR = &SUBSTR(5:9,&UIDSTR)
SET NAMTELE = &SUBSTR(15:24,&UIDSTR)
SET FACH = &SUBSTR(01:04,&UIDSTR)
SET ACCT = 9999
END
ELSE DO
SET USERNAM = &SUBSTR(25:44,&UIDSTR)
SET INSTR = &SUBSTR(5:9,&UIDSTR)
SET NAMTELE = &SUBSTR(45:52,&UIDSTR)
SET FACH = &SUBSTR(54:57,&UIDSTR)
SET ACCT = &SUBSTR(60:63,&UIDSTR)
END
SET PRINTER = OSE1P
SET PROFILE=&SYSUID
/* VORBEREITEN DER AUTOEXEC-DATEI SAS ******************************/
EDIT '&SYSUID..BEST1TOP.CMD' NEW DATA EMODE NONUM ASIS
INSERT OPTIONS NOERRORABEND NOSOURCE NOSOURCE2 NONOTES;
INSERT OPTIONS COMPRESS=YES USER=VIOWRK BUFNO=50;
INSERT %LIBNAME(&TOOL1DDW,&TOOL1DSW,SERVER=BEST1); /* SAS/SCL-SRC*/
INSERT %LIBNAME(&TOOL1DDP,&TOOL1DSP,SERVER=BEST1); /* PROFILE */
INSERT %LET TOOL1DDW=&TOOL1DDW;
INSERT %LET TOOL1DSW=&TOOL1DSW; /* SCL PROGRAMME */
INSERT %LET TOOL1DDP=&TOOL1DDP;
INSERT %LET TOOL1DSP=&TOOL1DSP; /* PROFILE */
INSERT %LET TOOL1DDS=&TOOL1DDS;
INSERT %LET TOOL1DSS=&TOOL1DSS; /* JCL */
INSERT %LET BST00DDD=&BST00DDD;
INSERT %LET BST00DSD=&BST00DSD; /* DATEN */
INSERT %LET BST01DDD=&BST01DDD;
INSERT %LET BST01DSD=&BST01DSD; /* DATEN */
INSERT %LET BST02DDD=&BST02DDD;
INSERT %LET BST02DSD=&BST02DSD; /* DATEN */
INSERT %LET BST03DDD=&BST03DDD;
INSERT %LET BST03DSD=&BST03DSD; /* DATEN */
INSERT %LET BST04DDD=&BST04DDD;
INSERT %LET BST04DSD=&BST04DSD; /* DATEN */
INSERT %LET BST05DDD=&BST05DDD;
INSERT %LET BST05DSD=&BST05DSD; /* DATEN */
INSERT %LET BST0LDDD=&BST0LDDD;
INSERT %LET BST0LDSD=&BST0LDSD; /* DATEN */
INSERT %LET HRWRFIL =&HRWRFIL; /* DATEN */
INSERT %LET PROFILE=&PROFILE;
INSERT %LET PID =&PID;
INSERT %LET AUFRUF=&SYSDATE;
INSERT %LET UMZEIT=&SYSTIME;
INSERT %LET USERNAM=&USERNAM;
INSERT %LET INSTR =&INSTR;
INSERT %LET NAMTELE=&NAMTELE;
INSERT %LET FACH =&FACH;
INSERT %LET ACCT =&ACCT;
INSERT %LET PRINTER=&PRINTER;
INSERT DATA &PID;
INSERT TOOL1DDW='&TOOL1DDW';
INSERT TOOL1DSW='&TOOL1DSW'; /* SCL PROGRAMME */
INSERT TOOL1DDP='&TOOL1DDP';
INSERT TOOL1DSP='&TOOL1DSP'; /* PROFILE */
INSERT TOOL1DDS='&TOOL1DDS';
INSERT TOOL1DSS='&TOOL1DSS'; /* JCL */
INSERT BST00DDD='&BST00DDD';
INSERT BST00DSD='&BST00DSD'; /* DATEN */
INSERT BST01DDD='&BST01DDD';
INSERT BST01DSD='&BST01DSD'; /* DATEN */
INSERT BST02DDD='&BST02DDD';
INSERT BST02DSD='&BST02DSD'; /* DATEN */
INSERT BST03DDD='&BST03DDD';
INSERT BST03DSD='&BST03DSD'; /* DATEN */
INSERT BST04DDD='&BST04DDD';
INSERT BST04DSD='&BST04DSD'; /* DATEN */
INSERT BST05DDD='&BST05DDD';
INSERT BST05DSD='&BST05DSD'; /* DATEN */
INSERT BST0LDDD='&BST0LDDD';
INSERT BST0LDSD='&BST0LDSD'; /* DATEN */
INSERT HRWRFIL ='&HRWRFIL'; /* DATEN */
INSERT PID='&PID';
INSERT PROFILE='&PROFILE';
INSERT AUFRUF=PUT(DATE(),DATE7.);
INSERT UMZEIT=PUT(TIME(),TIME8.);
INSERT USERNAM='&USERNAM';
INSERT INSTR ='&INSTR';
INSERT NAMTELE='&NAMTELE';
INSERT FACH ='&FACH';
INSERT ACCT ='&ACCT';
INSERT PRINTER='&PRINTER';
INSERT DATA &TOOL1DDP..&PROFILE;
INSERT LENGTH ANZAHL 8.;
INSERT LENGTH JC1 JC2 $58. DATEI $44. MEM MEMI $8.;
INSERT SET &TOOL1DDP..&PROFILE (OBS=1);
INSERT PID='&PID';
INSERT IF ANZAHL<1 THEN ANZAHL=1;
INSERT ANZAHL+1;
INSERT DATA &TOOL1DDP..&PROFILE;
INSERT UPDATE &TOOL1DDP..&PROFILE &PID;
INSERT BY PID;
INSERT RUN;
INSERT GOPTIONS SWAP;
INSERT DM 'AF CAT=&TOOL1DDW..BEST1V00.BSTA000M.PROGRAM' AF;
INSERT *PROC BUILD CAT=&TOOL1DDW..BEST1V00;
INSERT LIBNAME &TOOL1DDP; /* PROFILE DATEI */
INSERT LIBNAME &TOOL1DDW; /* SCL PROGRAMME */
INSERT ENDSAS;
INSERT RUN;QUIT;
SAVE * REUSE
END
ALLOC F(BEST1TOP) DA('&SYSUID..BEST1TOP.CMD') OLD REUSE DELETE
/* AUFRUFEN APPLIKATION ********************************************/
%SAS8 AUTOEXEC('''&SYSUID..BEST1TOP.CMD''')
FREE F(VIOWRK,BEST1TOP)
/* GRAFIK-BIBLIOTHEN FREE ***********************************/
FREE DD(ADMPC,ADMSYMBL,ADMCDATA,ADMCFORM,SKACFORM,ADMGDF,ADMCDEF)
ISPEXEC CONTROL DISPLAY REFRESH
EXIT CODE(0)