/.INSTALL  PROC    N,(&SAVE=,&GEN=,&LINK=,&PRINT=),SUBDTA=&
/
/REMARK ***************************************************************
/REMARK *** FLAM VERSION 41A INSTALLIEREN                 1.12.2005 ***
/REMARK ***************************************************************
/
/          SYSFILE SYSLST=LST.INSTALL.41A
/          OPTION  MSG=FHL
/          TCHNG   OFLOW=NO
/REMARK *** ALTE VERSION VON FLAM SICHERN (Y/N) ?           (&SAVE) ***
/          SKIP    .SAVE&SAVE
/.SAVEY    REMARK
/
/REMARK ***************************************************************
/REMARK *** PRUEFEN OB FLAM BEREITS INSTALLIERT IST                 ***
/REMARK ***************************************************************
/
/          SHOW-FILE-ATTRIBUTES SYSLNK.FLAM,OUTPUT=*NONE
/          SKIP    .OLD
/          STEP
/
/REMARK *** FLAM WAR NOCH NICHT INSTALLIERT                         ***
/
/          SKIP    .NEW
/.OLD      REMARK
/
/REMARK ***************************************************************
/REMARK *** EINSATZBIBLIOTHEK UND FLAM UMBENENNEN                   ***
/REMARK ***************************************************************
/
/REMARK *** ALTE SICHERUNG SOFERN VORHANDEN LOESCHEN                ***
/
/          DELETE-FILE OLD.SYSLNK.FLAM,IGNORE-PROTECTION=*ACCESS
/          STEP
/          DELETE-FILE OLD.FLAM,IGNORE-PROTECTION=*ACCESS
/          STEP
/          DELETE-FILE OLD.FLAMK,IGNORE-PROTECTION=*ACCESS
/          STEP
/          DELETE-FILE OLD.FLAMD,IGNORE-PROTECTION=*ACCESS
/          STEP
/
/REMARK *** DATEIEN UMBENENNEN                                      ***
/
/          CAT     SYSLNK.FLAM,OLD.SYSLNK.FLAM,STATE=U
/          STEP
/          CAT     FLAM,OLD.FLAM,STATE=U
/          STEP
/          CAT     FLAMK,OLD.FLAMK,STATE=U
/          STEP
/          CAT     FLAMD,OLD.FLAMD,STATE=U
/          STEP
/          SKIP    .NEW
/.SAVEN    REMARK
/
/REMARK ***************************************************************
/REMARK *** ALTE DATEIEN SOFERN VORHANDEN LOESCHEN                  ***
/REMARK ***************************************************************
/
/          DELETE-FILE SYSLNK.FLAM,IGNORE-PROTECTION=*ACCESS
/          STEP
/          DELETE-FILE FLAM,IGNORE-PROTECTION=*ACCESS
/          STEP
/          DELETE-FILE FLAMK,IGNORE-PROTECTION=*ACCESS
/          STEP
/          DELETE-FILE FLAMD,IGNORE-PROTECTION=*ACCESS
/          STEP
/.NEW      REMARK
/
/REMARK ***************************************************************
/REMARK *** FLAMV41A DATEIEN AUS LMS ERZEUGEN                       ***
/REMARK ***************************************************************
/
/         TCHNG   OFLOW=NO
/         CAT     INSTALL,ACCESS=WRITE,STATE=U
/         STEP
/         SYSFILE SYSDTA=(SYSCMD)
/         SETSW   ON=1
/         EXEC    $LMS
LIB FILE=FLAMV41A.BIN
PAR O=YES
SELX P.EXPORT.FLM41A
SELX P.IMPORT.FLM41A
SELX P.FLAMGEN
SELX P.FLAMLINK
SELX P.FLAMMSG
SELX INSTALL
SELX INST.SYSLNK.FLAM
SELX SYSMSGV.FLAM
SELX SYSMSGR.FLAM
SELX SYSMSGA.FLAM
SELX P.FLAMK
SELX P.FLAMD
SELX P.FLAMSORT
SELX P.TAPEDUP
SELX P.ASM
SELX P.COB
SELX SRA.FLAMUIO
SELX SRA.EX20
SELX SRA.FLAME15
SELX SRA.FLAME35
SELX SRA.SEPARATE
SELX SRA.TABEX
SELX COB.FLAMFT
SELX COB.RECTEST
SELX COB.SAMPLE1C
SELX COB.SAMPLE1D
SELX COB.SAMPLE3D
SELX COB.USERIO
END
/         STEP
/         SETSW   OFF=1
/         SYSFILE SYSDTA=(PRIMARY)
/
/REMARK ***************************************************************
/REMARK *** SYSLNK.FLAM AUS INST.SYSLNK.FLAM ERZEUGEN               ***
/REMARK ***************************************************************
/
/          SETSW   ON=13
/          EXEC    INSTALL
/          SKIP    .TEST,OFF=13
/
/REMARK *** SYSLNK.FLAM WURDE NICHT ERZEUGT                         ***
/
/          STEP
/          SKIP    .REN&SAVE
/.RENY     REMARK
/
/REMARK ***************************************************************
/REMARK *** PRUEFEN OB FLAM BEREITS VORHANDEN WAR                   ***
/REMARK ***************************************************************
/
/          SHOW-FILE-ATTRIBUTES OLD.SYSLNK.FLAM,OUTPUT=*NONE
/          SKIP    .RENOLD
/          STEP
/.REN&SAVE REMARK
/
/REMARK *** FLAM WAR NICHT VORHANDEN                                ***
/
/          SKIP    .ENDE
/.RENOLD  REMARK
/
/REMARK ***************************************************************
/REMARK *** EINSATZBIBLIOTHEK UND FLAM ZURUECK BENENNEN             ***
/REMARK ***************************************************************
/
/          CAT     OLD.SYSLNK.FLAM,SYSLNK.FLAM,STATE=U
/          STEP
/          SHOW-FILE-ATTRIBUTES OLD.FLAM,OUTPUT=*NONE
/          CAT                  OLD.FLAM,FLAM,STATE=U
/          STEP
/          SHOW-FILE-ATTRIBUTES OLD.FLAMK,OUTPUT=*NONE
/          CAT                  OLD.FLAMK,FLAMK,STATE=U
/          STEP
/          SHOW-FILE-ATTRIBUTES OLD.FLAMD,OUTPUT=*NONE
/          CAT                  OLD.FLAMD,FLAMD,STATE=U
/          STEP
/          SKIP    .ENDE
/
/REMARK ***************************************************************
/REMARK *** INSTALLATION PRUEFEN DURCH AUFRUF VON FLAM              ***
/REMARK ***************************************************************
/
/.TEST     SYSFILE SYSDTA=(SYSCMD)
/          EXEC    (FLAM,SYSLNK.FLAM)
COMPRESS,FLAMIN=P.ASM,FLAMFILE=*DUMMY,MSGDISP=TERMINAL,INFO=YES,END
/          SYSFILE SYSDTA=(PRIMARY)
/          SKIP    .SHARE,OFF=13
/
/REMARK *** INSTALLATION IST NICHT ERFOLGREICH                      ***
/
/          STEP
/          SKIP    .ENDE
/
/REMARK *** SYSLNK.FLAM SHAREABLE MACHEN                            ***
/
/.SHARE    CAT     SYSLNK.FLAM,ACCESS=READ,SHARE=YES,STATE=U
/          SKIP    .GEN
/          STEP
/.GEN      REMARK
/REMARK *** STANDARD-PARAMETER NEU EINSTELLEN (Y/N) ?        (&GEN) ***
/          SKIP    .GEN&GEN
/.GENY     REMARK
/
/REMARK ***************************************************************
/REMARK *** STANDARD PARAMETER MIT FLAMGEN NEU EINSTELLEN           ***
/REMARK ***************************************************************
/
/          CALL    P.FLAMGEN
/.GENN     REMARK
/
/REMARK *** FLAM STATISCH BINDEN (Y/N) ?                    (&LINK) ***
/
/          SKIP    .LINK&LINK
/.LINKY    REMARK
/
/REMARK ***************************************************************
/REMARK *** FLAM UND FLAMK / FLAMD STATISCH BINDEN                  ***
/REMARK ***************************************************************
/
/          CALL    P.FLAMLINK,USERIO=N
/.LINKN    REMARK
/          SKIP    .TEST,ON=(12)
/          SKIP    .ENDE
/
/REMARK ***************************************************************
/REMARK *** BACKUP-LEVEL FUER TESTINSTALLATION SETZEN               ***
/REMARK ***************************************************************
/
/.TEST     REMARK
/          CAT     SYSLNK.FLAM,BACKUP=E,STATE=U
/          STEP
/          SKIP    .TESTL&LINK
/.TESTLY   REMARK
/          CAT     FLAM,BACKUP=E,STATE=U
/.TESTLN   REMARK
/          STEP
/.ENDE     STEP
/
/REMARK ***************************************************************
/REMARK *** ENDE                                                    ***
/REMARK ***************************************************************
/
/          SETSW   OFF=(12,13)
/          OPTION  MSG=F
/          SYSFILE SYSLST=(PRIMARY)
/
/REMARK *** PROTOKOLL DRUCKEN UND LOESCHEN (Y/N) ?         (&PRINT) ***
/
/          SKIP    .PRINT&PRINT
/.PRINTY   REMARK
/          PRINT   LST.INSTALL.41A,SPACE=E,ERASE
/.PRINTN   REMARK
/          TCHNG   OFLOW=ACK
/          ENDP