/.INSTALL  PROC    A,(&SAVE=,&GEN=,&LINK=,&PRINT=),SUBDTA=&
/
/REMARK ***************************************************************
/REMARK *** FLAM VERSION 44A INSTALLIEREN                20.12.2013 ***
/REMARK ***************************************************************
/
/          SYSFILE SYSLST=LST.INSTALL.FLAM.44A
/          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
/
/REMARK *** DATEIEN UMBENENNEN                                      ***
/
/          CAT     SYSLNK.FLAM,OLD.SYSLNK.FLAM,STATE=U
/          STEP
/          CAT     FLAM,OLD.FLAM,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
/.NEW      REMARK
/
/REMARK ***************************************************************
/REMARK *** FLAMV44A 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=FLAMV44A.BIN
PAR O=YES
SELJ P.FLAMGEN
SELJ P.FLAMLINK
SELJ P.FLAMMSG
SELJ P.FLAMK
SELJ P.FLAMD
SELJ P.FLAMSORT
SELJ P.TAPEDUP
SELC INSTALL
SELX INST.SYSLNK.FLAM
SELX SYSMSGV.FLAM
SELX SYSMSGR.FLAM
SELX SYSMSGA.FLAM
SELS SRA.FLAMUIO
SELS SRA.EX20
SELS SRA.FLAME15
SELS SRA.FLAME35
SELS SRA.SEPARATE
SELS SRA.TABEX
SELS COB.FLAMFT
SELS COB.RECTEST
SELS COB.SAMPLE1C
SELS COB.SAMPLE1D
SELS COB.SAMPLE3D
SELS 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
/          SKIP    .ENDE
/
/REMARK ***************************************************************
/REMARK *** INSTALLATION PRUEFEN DURCH AUFRUF VON FLAM              ***
/REMARK ***************************************************************
/
/.TEST     SYSFILE SYSDTA=(SYSCMD)
/          EXEC    (FLAM,SYSLNK.FLAM)
COMPRESS,FLAMIN=P.FLAMD,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 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.flam.44A,SPACE=E,ERASE
/.PRINTN   REMARK
/          TCHNG   OFLOW=ACK
/          ENDP