For binary values whose hexadecimal equivalents can be represented by one or two characters in the 64-character set (Appendix B, Standard EBCDIC Collating Sequence table), use either an include character (I and C in columns 6 and 8 of the record type specifications) or an include zone (I and Z in columns 6 and 8 of the record type specifications) ANDed with an include digit (IAD in columns 6 through 8 of the record type specifications).
Type 2 Include Sequence
For bi nary values whose hexadecimal zone portions do not appear in the 64-character set, use two include specifica-tions for the zone portion ANDed with an include digit for the digit portion.
Example: Select records that contain a value of 44 in posi·
ti on 2. The binary representation of this number is 0010 1100, which is a hex 2C. For the digit portion, select a character from the table in Appendix B with a digit por·
tion of C (for example,<. *,%,and@). Use this character in an include line, comparing its digit portion to the binary value of 1100. Because there is no character in the 64·
character set whose zone portion is equivalent to 2, use two include lines to describe constants with a zone portion greater than 1 and less than or equal to 2. Describe these constants as packed, which reverses the zone and digit por-tions from hex F1 and F2 to hex 1 F and 2F.
lnteg_er (Binary) and Real Number Sorting D-9
Record Type
Factor 1 R" FaCw1 2 ;f,..,ld Cons!a<'-t, or K<!)'1H>rdi
Number
Location
Hexadecimal Binary
Value Value
Field to be selected 2C
=
0010 1100=
Character @ 7C
=
0111 1100=
Packed character 2 2F
=
0010 1111 = Packed cha1·acter 1 1F = 0001 1111 =The record type specifications shown will cause selection of all records containing (in column 2) a value between 31
(hex 1 F) and 47 (hex 2F) whose digit portion is equal to C.
Note: The 16 hexadecimal values whose zone portions are B cannot be accessed with these types of entries.
Therefore, there can be no record selection based on these values.
Sample Sort Job 4 Description
The purpose of this sample job is to select records from an inventory file whose reorder point is 7800. The reorder point is a 2-byte quantity in columns 44 and 45 of the inventory records. The quantity is stored in binary (7800 =
0001 1110 0111 1000), and the hexadecimal representation of this number is hex 1 E78. (Use the Programming Refer-ence Summary to help with binary and hexadecimal
conversions.)
---1
Decimal Value
44 124 47 31
Comments
~ ...
SEQUENCE SPECIFICATIONS Header
Record Type
. '
Pag .. [l}]
Job Description
GX21·9089 UM050' Pr1n11d1r. U.S '\ .
4i; 4~ (·C ~1 :,; ~:i 54 55 SC ~1 58 5!:1 60 c'l e;: 63 64 65 66 67 68 69 70 71 7:! 73 74
Comments Factor 1
I ~~~~~~~-,,-,.,,-,_-_ _:::::-__ -_-_-_-~-+---~~~-~~~~~~~~~~~~----~--l
,§~ -;1 - - - ,
Nomb"
J j ~ ii
Lo"""" Lo""o"~::::c
: From To From To I l .
9 110 11 12 13 14 15 1a 11 1s 1r- w.21 n n 24 :?5 21;1 :1l:s ::>JO .;1 J:? JJ J4 J~ 36 .n JF JP 40 41 4. 4J 44 4~ 413 47j4B 4l' so c:.:1 s2 53 54 :.-~ 56 57 58 5€' 60 01 62 63 64 65 66 67 68 69 10 11 n 73 74 3 '
0 1
0 ' 0 3 0 4 0 5
F eel o~erflo1,I ore Feld I
Field
7~
~ ~ I~ I ' Rm~odJ- - - -,
Lo"1ioo
i i I ~
I~;:,
:Comments
From To a: ~ U <f I I
3 4 5 6 7 1 6 9 10 11 12 13 14 15 16 17 18 19 :::O 21 2J_n 24 25 26 27 28 29 30 31 32 33 34 35 36 37 JS 39 40 41 4:! 43 44 45146 47 48 49 50 51 52 53 54 55 56 57 S8 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74
~~-+'+-~1~ 1 I+'
1: · --!--;-. , · ..,.~LQJlE-YC~~ "T-ri:W_
1_ • ._T_
1_T
1 1_l
1 ._r
1 1:
~?~
-1! ' )71'1ll - Hl1
1tt-
1+1-. ' ' ~f_?_L-PE_.DAIL~:_' --·
_ !.~
1-1~++-H-Ll--++-o 9 F 1 : 1 1 ! 1 : r 1 . · . ! . , , 1 1 1 1 :
r
+---i_
+--+-1+--t--
+-t--i -t-t-+--r-+--+---+---<----
--·--r- - - -- --· II f
I ' !1
:o
F j_ l j l 1 I 1 _i_ ! 1 ! ' ·+· -l!r-t-++-li i
1J I '
i : j !l
I j ' I ' T . ; ' ' ' , J_
1 11 1 1 1 1 1 1
1l ,1
1J I
i ' '~-
l'11·
11 lt-'-I;-h1":-:.~-C=.-.__i_._1'-1
'J_j_
l l ' ' ' j_l ' 11 1 1 111'1'1 1 1 1 1
11 1 1 1 1 1
1 '
1•31 F
1
l•T
F• ldeograptuc Kirt ut1l1ty only,
Hexadecimal Binary Decimal
Value Value Value
Field to be selected, column 44 1E = 0001 1110 = 30
Character + 4E
=
0100 1110 = 78Packed character 1 1F
=
0001 1111 = 31Packed character 0 OF
=
0000 1111=
15Field to be selected, column 45 78 = 0111 1000
Character@ 7C
=
0111 1100Character 8 F8
=
1111 1000Integer (Binary) and Real Number Sorting D-11
These specifications will cause selection of all records con-taining (in column 44) a value between 15 (hex OF) and 31 (hex 1 F) whose digit portion is equal to E. They will further limit selection of records to those which have a binary value in column 45 whose zone portion equals 7 and whose digit portion equals 8. Therefore, all records selected will have hex 1 E78 in columns 44 and 45.
Header Specification Column 6
H identifies the line as a header line.
Columns 7-12
SORTR identifies the job as a tagalong sort.
Columns 13-17
The total length of the control field is 6 bytes.
Column 18
The A stands for ascending order. The file will be sorted according to the standard collating sequence shown in Appendix B.
Columns 29-32
The convol field is not dropped when d<1ta is written to the output file (column 28 is blank). Therefore, the length of the output record equals the length of the control field (6 bytes) plus the length of the data field ( 105 characters) specified by lines 07 and 08. This output record length totals 111, which is the entry for columns 29 through 32.
Record Type Specifications
Line 01 selects records whose digit portion in column 44 is E. Lines 02 and 03 select records whose packed value in column 44 is less than or equal to hex 1 F and, at the same time, is greater than a piJcked value of hex OF.
The only hexadecimal values that satisfy both specifications for lines 02 and 03 are hex 11 through hex 1 F. Line 04 is a comment line. Lines 05 and 06 select records whose zone portion in column 45 is 7 and whose digit portion is 8.
Field Specifications Column 6
F identifies the lines as field specification lines.
Columns 7, 8, and 9-16
Line 07 indicates that the control field is in positions 1 through 6 of the input records. Only the digit portions of the characters will be used. This control field will be included in the output file.
Line 08 indicates that the other 105 input record characters are included as data in the output file.
The loadable sort interface allows you to load the sort program from an assembler program. The assembler macros, $SORT and $SRT, can be used to generate the call to the sort program and the loadable sort parameter list.
For information on $SORT and $SRT, refer to the Basic Assembler and Macro Processor Reference Manual. For
information on the loadable sort parameter list, see Load-able Sort Parameter List in this appendix. When the load-able sort interface is used, the sort sequence specifications must be either in a source member or in the loadable sort parameter list.
Remember the following when using the loadable sort interface:
• All files used during the sort job must have been defined by FI LE statements and must have been closed before the sort program is called. (See the System Support Reference Manual for an explanation of how to specify FI LE statements.)
• If one (or more) of the input files used by the sort pro-gram is an offline multivolume file, the work file must be defined by a FI LE statement. (See Chapter 5 for information on how to specify a FI LE statement for a work file.)
• If a sort job does not complete successfully, control is returned to the assembler program with bit 3 of the indicator byte on in the loadable sort parameter list (see