Examples for the SM2U1 utility routine

The following examples can also be found in the SYSLIB.SM2.<ver> library.

Example: SM2U1.PAM.TO.SAM

Convert a system-global PAM to a SAM output file.
All of the SM2 records are to be copied.

/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

Example: SM2U1.SELECT.MEASUREMENT.GROUPS

Extend the system-global SM2 output file and copy all records required for an SM2R1 analysis using PRINT-REPORTS ...,REPORT-LIST=*STD.

/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

Example: SM2U1.SEPARATE.FILES

A file which is a merged file is to be split up into two files: the first monitoring period and the rest of the monitoring period.

/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