The following example shows how to specify the DRAWER keyword.
|...+....1....+....2....+....3....+....4....+....5 ....+....6....+....7....+....8
00010A R RECORD1 SKIPB(3)
00020A FIELD1 10 1SPACEA(1)
00030A FIELD2 5 1SPACEA(1)
00040A
00050A R RECORD2 DRAWER(2)
00060A FIELD3 5 1
00070A FIELD4 5 6SKIPA(1)
00080A
00090A R RECORD3 DRAWER(2)
00100A FIELD5 10 1SPACEA(1)
00110A FIELD6 10 1SKIPA(1)
00120A FIELD7 10 1SPACEA(1)
00130A FIELD8 10 1SPACEA(1)
00140A
00150A R RECORD4
00160A FIELD9 10 1SKIPB(30)
00170A FIELD10 10 21
00180A R RECORD5 SKIPB(3)
00190A FIELD11 10 1SPACEA(1)
00200A FIELD12 10 1SPACEA(1)
00210A R RECORD6 SKIPB(1) DRAWER(&FIELD13)
00220A FIELD13 4 P
00230A FIELD14 10 1
The printer is not on a page boundary after record format RECORD1 is processed. When record format
RECORD2 is processed, DRAWER is ignored and paper continues to come from the source drawer
previously specified (file level). Because SKIPA(1) is specified for FIELD4 of RECORD2, the printer is on a
page boundary after RECORD2 is processed. The paper for both pages of RECORD3 comes from drawer
2. The paper source for record formats RECORD4 and RECORD5 is the drawer specified at the file level
(drawer 1 in this example). But because RECORD4 starts in the middle of a page, it prints on the same
page as RECORD3 (drawer 2). Record format RECORD5 prints on a different page (SKIPB(3)) and prints
on paper from drawer 1.RECORD6 allows the application program to specify the drawer-number by setting
field FIELD13.
Bookmarks