Beispiel mit Makros

Dieses Beispielprogramm gibt die Daten einer oder mehrerer im SCI enthaltenen Installation-Units in eine formatierte Datei und nach SYSLST aus. Die Produkte, für die die Ausgabe erfolgen soll, können im Dialog ausgewählt werden. Analoge Beispiele unter Verwendung der Menü- bzw. SDF-Oberfläche finden Sie in Kapitel „Installationsabläufe unter BS2000".

         ICTL 1,71,18

TCASM    CSECT

         PRINT GEN,NOREF

         ...

*

*  //show-installation-units unit-name=*by-dialog, -

*  //    information=*par(installation-items=*yes,report-level=*minimum), -

*  //    output=test.ff(write-mode=*replace)

*

         IMOSHIU MF=E,PARAM=SHIUPL       call IMOSHIU

*

*  //show-installation-items item-name=*from-formatted-file( -

*  //    file-name=test.ff,information=*par(report-level=*all-attributes), -

*  //    output=*input-formatted-file

*

         IMOSHII MF=E,PARAM=SHIIPL       call IMOSHII

*

*  //show-formatted-file from-file=test.ff,output=*syslst

*

         IMOSHFF MF=E,PARAM=SHFFPL       call IMOSHFF

*

         ...

*

         DS   0F

*

SHIUPL   IMOSHIU MF=L,UTYPE=*DIALOG,INSITEM=*YES,REPLEV=*MINIMUM,     

                 OUTTYPE=*FILE,OUTNAME=TEST.FF,WRMODE=*REPLACE

*

SHIIPL   IMOSHII MF=L,ITYPE=*FILE,INFF=TEST.FF,REPLEV=*ALL,         

                 OUTTYPE=*INFILE

*

SHFFPL   IMOSHFF MF=L,INFF=TEST.FF,SYSLST#=0

*

         END   TCASM