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.

/SET-PROCEDURE-OPTIONS -
/    LOGGING-ALLOWED = *YES -
/   ,DATA-ESCAPE-CHAR = *STD
/
/BEG-PAR-DECL
/ DECL-PAR NAME = FILEIN     (INIT-VAL = *PROMPT)
/ DECL-PAR NAME = FILEOUT    (INIT-VAL = *PROMPT)
/END-PAR-DECL
/
/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
/EXIT-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.

/SET-PROCEDURE-OPTIONS -
/    LOGGING-ALLOWED = *YES -
/   ,DATA-ESCAPE-CHAR = *STD
/
/BEG-PAR-DECL
/ DECL-PAR NAME = FILEIN     (INIT-VAL = *PROMPT)
/ DECL-PAR NAME = FILEOUT    (INIT-VAL = *PROMPT)
/END-PAR-DECL
/
/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
/EXIT-PROCEDURE

Beispiel SM2U1.SEPARATE.FILES

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

/SET-PROCEDURE-OPTIONS -
/    LOGGING-ALLOWED = *YES -
/   ,DATA-ESCAPE-CHAR = *STD
/
/BEG-PAR-DECL
/ DECL-PAR NAME = FILEIN     (INIT-VAL = *PROMPT)
/ DECL-PAR NAME = FILEFIRST  (INIT-VAL = *PROMPT)
/ DECL-PAR NAME = FILEREST   (INIT-VAL = *PROMPT)
/END-PAR-DECL
/
/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
/EXIT-PROCEDURE