/.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