Beispiele zum Dienstprogramm SM2U1

Die folgenden Beispiele befinden sich auch in der Bibliothek SYSLIB.SM2.<ver>.

Beispiel SM2U1.PAM.TO.SAM

Umwandeln einer system-globalen PAM- in eine SAM-Messwertedatei.

Alle SM2-Datensätze sollen kopiert werden.

/BEGIN-PROCEDURE LOGGING=CMD,PARAMETERS=*YES(PROCEDURE-PARAMETERS=
   (&FILEIN,&FILEOUT),ESCAPE-CHARACTER=C'&')
/ASSIGN-SYSDTA TO-FILE=*SYSCMD
/ADD-FILE-LINK LINK-NAME=SM2UI1,FILE-NAME=&FILEIN
/CREATE-FILE FILE-NAME=&FILEOUT,SUPPORT=*PUBLIC-DISK(SPACE=
   *RELATIVE(PRIMARY-ALLOCATION=576,SECONDARY-ALLOCATION=576))
/ADD-FILE-LINK LINK-NAME=SM2UO,FILE-NAME=&FILEOUT,BUFFER-LENGTH=*STD(SIZE=16)
/START-SM2U1
//END
/END-PROCEDURE

Beispiel SM2U1.SELECT.MEASUREMENT.GROUPS

Systemglobale SM2-Messwertedatei fortschreiben und alle Datensätze kopieren, die für eine SM2R1-Auswertung mit PRINT-REPORTS ...,REPORT-LIST=*STD notwendig sind.

/BEGIN-PROCEDURE LOGGING=CMD,PARAMETERS=*YES(PROCEDURE-PARAMETERS=
   (&FILEIN,&FILEOUT),ESCAPE-CHARACTER=C'&')
/ASSIGN-SYSDTA TO-FILE=*SYSCMD
/ADD-FILE-LINK LINK-NAME=SM2UI1,FILE-NAME=&FILEIN
/CREATE-FILE FILE-NAME=&FILEOUT,SUPPORT=*PUBLIC-DISK(SPACE=
   *RELATIVE(PRIMARY-ALLOCATION=576,SECONDARY-ALLOCATION=576))
/ADD-FILE-LINK LINK-NAME=SM2UO,FILE-NAME=&FILEOUT,BUFFER-LENGTH=*STD(SIZE=16)
/START-SM2U1
//SELECT-MEASUREMENT-GROUPS SELECTION = *STD
//END
/END-PROCEDURE

Beispiel SM2U1.SEPARATE.FILES

Eine zusammengemischte Datei soll in den ersten Messzeitraum und in den Rest aufgetrennt werden.

/BEGIN-PROCEDURE LOGGING=CMD,PARAMETERS=*YES(PROCEDURE-PARAMETERS=
   (&FILEIN,&FILEFIRST,&FILEREST),ESCAPE-CHARACTER=C'&')
/ASSIGN-SYSDTA TO-FILE=*SYSCMD
/ADD-FILE-LINK LINK-NAME=SM2UI,FILE-NAME=&FILEIN
/CREATE-FILE FILE-NAME=&FILEFIRST
/ADD-FILE-LINK LINK-NAME=SM2UO1,FILE-NAME=&FILEFIRST
/CREATE-FILE FILE-NAME=&FILEREST
/ADD-FILE-LINK LINK-NAME=SM2UO2,FILE-NAME=&FILEREST
/START-SM2U1
//SEPARATE-FILES FILES=(*BLOCK(1,*SAME),*BLOCK(2,*LAST))
//END
/END-PROCEDURE