Generic Label Printing Utility

This utility provides a way to print labels from any extract file. It requires an input file, either fixed or variable length, that has 1 record per label to be printed. Length of the record does not matter.

Whichever of these elements is used in either an input or output format must be present in the other (output or input) format, with one exception. Century may be part of the output format without being specified as part of the input format.

The program will print one label per input record. It can print up to 5 lines of text per label. In addition, it can sort on any data in the data record. Output will be labels, either 1-up, 2-up or 3 up. Since a standard label has 35 characters per line, print will either be padded with blanks or truncated to that length.

Each input and/or sort field can be up to 50 bytes in length. There are thirteen (13) parameters as follows:

  1. Start position of data to print on label line #1
  2. Length of data to print on label line #1
  3. Start position of data to print on label line #2
  4. Length of data to print on label line #2
  5. Start position of data to print on label line #3
  6. Length of data to print on label line #3
  7. Start position of data to print on label line #4
  8. Length of data to print on label line #4
  9. Start position of data to print on label line #5
  10. Length of data to print on label line #5
  11. Start position of data to be used for sorting
  12. Length of data to be used for sorting
  13. Number of labels across
    1. 1-Up Labels
    2. 2-Up Labels
    3. 3-Up Labels

JCL Requirements

The following is sample JCL for this routine. 


//IS9025X  JOB   (AUP02,13),DP,MSGLEVEL=1,MSGCLASS=P,NOTIFY=POPERIC,
//         TIME=(9,59)
//JCLLIB   JCLLIB ORDER=PCP40.PROC.CNTL
/*ROUTE    PRINT LOCAL
/*JOBPARM  LINES=250
//*RPT1     OUTPUT FORMS=6401,FCB=LBL,DEST=SAM   1-UP LABELS
//*RPT1     OUTPUT FORMS=6402,FCB=LBL,DEST=SAM   2-UP LABELS
//RPT1     OUTPUT FORMS=6403,FCB=LBL,DEST=SAM   3-UP LABELS
//**********************************************************************
//*****    IS9025:    GENERALIZED LABELS
//**********************************************************************
//IS9025A  EXEC  EASYPLUS,ACCOUNT=PCP40,VER=PROD,TBLVER=PROD
//LBLFILE  DD    DSN=AUP07.SIS.XXXX.XXXXXX,DISP=SHR
//PRTFL01  DD    SYSOUT=A,OUTPUT=*.RPT1
//SYSIN    DD    *
  %IS9025A 01 25 35 30 70 20 100 15 0 0 01 25 3
/*
//

LBLFILE is the input file. A value of 0 for any of the first 12 parameters will cause that field to be turned off, i.e., ignored.

OIT--Applications Support


Last Modified: Tuesday, 28-Nov-2000 10:34:55 CST

©2000 All Rights Reserved