This section gives an example to modify the code to produce the following cartridge label. The company name has been added to the label, the DSN moved to line 3, the dates on the label are displayed in the format MMMDD/YYYY, no setup labels are generated and the actual labels are routed to WTO route code 13. The labels are defined as 12 rows by 50 columns and the extra rows are used for alignment. REEL type labels are not modified but are routed to WTO route code 15. The lines added/modified are indicated by the sequence numbers which correspond to the code in TMELBLS.
CARTRIDGE LABEL:
....+....1....+....2....+....3....+....4....+....5....+....6
----------------------------------------------------
| |
1 | COMPUTER ASSOCIATES INTERNATIONAL, INC. |
2 | |
3 |DSN......................................... |
4 | CJOB.... CDATE..... |
5 | EXPDT..... |
6 | DEN TRTC LRECL. BLKSIZ RCFM |
7 | |
8 | VOLSER VSEQ LBL UNIT |
----------------------------------------------------
CODE UPDATES:
DEF OUTPUT_LABEL (X 602) = ' ' 'OUTPUT' 'LABEL'
DEF LINE ARRAY 12 = OUTPUT_LABEL 003-052 X
DEF WORK_LINE (X 50) = ' '
DEF CART01_COMPANY = WORK_LINE 005-043 X
DEF CART03_DSN = WORK_LINE 001-044 X
DEF SETUP_REQUESTED (X 1) = 'N'
SET DATE_FMT = 'MMMDD/YYYY'
SET WTO1_REQ = 013
SET ROWS = 12
SET COLUMNS = 50
SET CART01_COMPANY = 'COMPUTER ASSOCIATES INTERNATIONAL,INC.'
!!!!!!!!!!!!!!!!!!
! FORMAT LINE-3 !
!!!!!!!!!!!!!!!!!!
SET WORK_LINE = ' '
SET CART03_DSN = DSN
SET LINE(/3/) = WORK_LINE
SET WTO1_REQ = 015
SET ROWS = 12
SET COLUMNS = 50
|
Copyright © 2013 CA Technologies.
All rights reserved.
|
|