Your Browser is not longer supported

Please use Google Chrome, Mozilla Firefox or Microsoft Edge to view the page correctly
Loading...

{{viewport.spaceProperty.prod}}

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.

/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

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.

/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

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.

/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