INPUT

Fixed-length record data set

OUTPUT

Multiple fixed-length record data sets

WORK DATA SETS

Not applicable

USER EXITS

None

FUNCTIONS/OPTIONS

LOCALE, OUTFIL

//EXAMP    JOB  A400,PROGRAMMER                                 01
//STEP1    EXEC PGM=SORT                                        02
//STEPLIB  DD  DSN=SYS1.SCEERUN,DISP=SHR                        03
//SYSOUT   DD  SYSOUT=A                                         04
//SORTIN01 DD  DSN=INPUT01.GERMAN.GERMANY,DISP=SHR              05
//SORTIN02 DD  DSN=INPUT02.GERMAN.GERMANY,DISP=SHR              06
//SORTIN03 DD  DSN=INPUT03.GERMAN.GERMANY,DISP=SHR              07
//GP1      DD  DSN=OUTPUT.GERMAN.GP1,DISP=OLD                   08
//GP2      DD  DSN=OUTPUT.GERMAN.GP2,DISP=OLD                   09
//GP3      DD  DSN=OUTPUT.GERMAN.SAVE,DISP=OLD                  10
//DFSPARM  DD  *                                                11
 LOCALE=De_DE.IBM-1047                                          12
 MERGE FIELDS=(25,5,CH,A,40,4,PD,D)                             13
 OUTFIL FNAMES=GP1,                                             14
   INCLUDE=(23,1,CH,LE,C'Ö')                                    15
 OUTFIL FNAMES=GP2,                                             16
   INCLUDE=(23,1,CH,GT,C'Ö',AND,                                17
            23,1,CH,LT,C'Ü')                                    18
 OUTFIL FNAMES=GP3,SAVE                                         19

Line

Explanation

01

JOB statement. Introduces this job to the operating system.

02

EXEC statement. Calls DFSORT directly by its alias name SORT.

03

STEPLIB DD statement. Specifies the Language Environment run-time library containing the dynamically loadable locales.

04

SYSOUT statement. Directs DFSORT messages and control statements to sysout class A.

05

SORTIN01 DD statement. The first input data set is named INPUT01.GERMAN.GERMANY and is cataloged. DFSORT determines the RECFM, LRECL and BLKSIZE from the data set label.

06

SORTIN02 DD statement. The second input data set is named INPUT02.GERMAN.GERMANY and is cataloged. DFSORT determines the RECFM, LRECL and BLKSIZE from the data set label.

07

SORTIN03 DD statement. The third input data set is named INPUT03.GERMAN.GERMANY and is cataloged. DFSORT determines the RECFM, LRECL and BLKSIZE from the data set label.

08

GP1 DD statement. The first OUTFIL output data set is named OUTPUT.GERMAN.GP1 and is cataloged. DFSORT determines the RECFM, LRECL and BLKSIZE from the data set label.

09

GP2 DD statement. The second OUTFIL output data set is named OUTPUT.GERMAN.GP2 and is cataloged. DFSORT determines the RECFM, LRECL and BLKSIZE from the data set label.

10

GP3 DD statement. The third OUTFIL output data set is named OUTPUT.GERMAN.GP3 and is cataloged. DFSORT determines the RECFM, LRECL and BLKSIZE from the data set label.

11

DFSPARM DD statement. DFSORT control statements follow.

12

LOCALE parameter. Overrides the installation default for LOCALE. The locale for the German language and the cultural conventions of Germany based on the IBM-1047 encoded character set will be active.

13

MERGE statement. FIELDS specifies an ascending 5-byte character control field starting at position 25, and a descending 4-byte packed decimal control field starting at position 40. The character (CH) control field will be merged according to the collating rules defined in locale De_DE.IBM-1047. The records in each input data set must already be in the order specified.

14-15

OUTFIL statement. The subset of records with character values less than or equal to 'Ö' in position 23 are written to the GP1 output data set. The character (CH) compare field and character constant will be compared according to the collating rules defined in locale De_DE.IBM-1047.

16-18

OUTFIL statement. The subset of records with character values greater than 'Ö' but less than 'Ü' in position 23 are written to the GP2 output data set. The character (CH) compare fields and character constants will be compared according to the collating rules defined in locale De_DE.IBM-1047.

19

OUTFIL statement. Any records not written to the GP1 or GP2 output data sets are written to the GP3 output data set.