0.004/30/97 DIANE LIVELY 00010001 1.0 PROGRAM NARRATIVE 00020000 ----------------- 00030000 00040000 THIS SUBPROGRAM PRINTS ADDRESS LABELS. IT CAN BE USED BY ANY 00050000 PROGRAM WHICH PRODUCES LABELS. THIS SUBPROGRAM ONLY CONTROLS THE 00060000 PRINTING OF LABELS. THE CALLING PROGRAM MUST DO EVERYTHING ELSE, 00070000 SUCH AS SELECTING DATA TO BE PRINTED, SORTING DATA, DESCRIBING 00080000 LABELS (FORMATING HEADER, TRAILER, OR SEPARATER LABELS), AND 00090000 COUNTING THE LABELS. THE CALLING PROGRAM NEEDS A PARMCARD TO ALLOW00100000 THE USER TO SELECT THE TYPE OF LABELS DESIRED. ONE-UP LABELS, 00110000 THREE-UP LABELS, STANDARD LABELS (3-UP ON PLAIN COMPUTER PAPER), 00120000 OR FOUR-UP LABELS (ON PLAIN COMPUTER PAPER) CAN BE PRODUCED. 00130000 00140000 THE CALLING PROGRAM MUST MOVE A "1" FOR ONE-UP LABELS, A "3" FOR 00150000 THREE-UP LABELS, AN "S" FOR STANDARD LABELS, OR A "4" FOR FOUR-UP 00160000 LABELS. STANDARD AND FOUR-UP LABELS ARE PRINTED ON THE BACK OF 00170000 COMPUTER PAPER AND CAN BE SENT TO AN INDEPENDENT MAILING SERVICE TO00180000 BE CUT, ETC. THESE CODES, "1", "3", "S", OR "4" MUST BE MOVED BY 00190000 THE CALLING PROGRAM TO A FIELD IN THE LINKAGE SECTION TO LET THE 00200000 SUBPROGRAM KNOW WHICH TYPE OF LABELS TO PRINT. FIVE LINES CAN BE 00210000 PRINTED PER LABEL WITH 33 CHARACTERS PER LABEL. FOR FOUR-UP 00220000 LABELS, THERE IS ROOM FOR ONLY 32 CHARACTERS PER LABEL. 00230000 00240000 THE DATA TO PRINT GOES IN THE LINKAGE SECTION OF THE CALLING 00250000 PROGRAM ALONG WITH A CONTROL CHARACTER. THE SUBPROGRAM IS CALLED 00260000 TO OPEN THE OUTPUT FILE, TO PRINT EACH LABEL, AND TO CLOSE THE 00270000 FILE. TO OPEN THE OUTPUT FILE AND TEST FORM ALIGNMENT, MOVE ALL 00280000 "X"S TO THE FIVE LINES AND MOVE "O" TO THE CONTROL FIELD. TO PRINT00290000 A LABEL, MOVE THE DATA TO BE PRINTED TO THE LINES AND " " OR "1" TO00300000 THE CONTROL FIELD. A " " IN THE CONTROL FIELD INDICATES TO THE 00310000 PROGRAM THAT YOU WANT TO CONTINUE PRINTING TO THE RIGHT OF THE 00320000 PREVIOUS LABEL, A "1" INDICATES THAT YOU WANT TO PRINT THE LABEL AT00330000 THE LEFT-MOST POSITION. TO CLOSE THE FILE, MOVE "C" TO THE 00340000 CONTROL FIELD. 00350000 00360000 THE FOLLOWING IS THE KEY COBOL SYNTAX NEEDED IN THE CALLING PROGRAM00370000 TO INTERFACE WITH REG742S (WORK AREA & HOW TO CALL SUBROUTINE): 00380000 00390000 COPY REG742C. 00400000 00410000 CALL 'REG742S' USING TYPE-LABELS SK-LABELS. 00420000 00430000 THE CALLING PROGRAM MUST PROVIDE FOR SPECIAL FORMS IN THE JCL. 00440000 THERE SHOULD BE A SETUP CARD TO TELL THE OPERATOR TO MOUNT LABELS. 00450000 00460000 EXAMPLE: /*SETUP PLEASE USE 3-UP LABELS. 00470000 SYSOUT=(J,,XXXX) IS USED FOR SPECIAL PRINTED 00480000 FORMS IN THE DD STATEMENT. XXXX = FORM NUMBER. 00490000 00500000 EXAMPLE: //PRTLABEL DD SYSOUT=(J,,0103) 00510000 00520000 00530000 2.0 USER OPERATING INSTRUCTIONS: N/A 00540000 -------------------------- 00550000 00560000 00570000 3.0 JOB SETUP INSTRUCTIONS: 00580000 ---------------------- 00590000 00600000 SPECIAL FORMS QUEUE: X100 - ONE-UP LABELS 00610000 X103 - THREE-UP LABELS 00620000 X010 - ONE-PART UNLINED PAPER 00630000 (X = ONE CHARACTER COLLEGE IDENTIFIER) 00640000 00650000 FORMS BUFFER: 6 LINES 00660000 6 LINES PER INCH 00670000 CHANNEL 1 IN LINE 1 00680000 FOR B600 AND CENTRONIC PRINTERS, SET 00690000 FORM LENGTH AT 3 INCHES. 00700000 00710000 ALIGNMENT INSTRUCTIONS: FIRST LINE PRINTS AT VERY TOP OF LABEL 00720000 00730000 PRINTED OUTPUT: LABELS OR SHEETS TO BE CUT INTO LABELS 00740000 00750000 FORMS TYPE: 3 1/2" X 15/16" 00760000 00770000 SPECIAL INSTRUCTIONS: N/A 00780000 00790000 4.0 FILES: 00800000 ----- 00810000 4.1 DATA BASE SEGMENTS USED: N/A 00820000 4.2 ADDITIONAL FILES USED: N/A 00830000 4.3 INPUT/OUTPUT RECORD LAYOUTS: N/A 00840000 00850000 00860000 5.0 SPECIAL FEATURES 00870000 ---------------- 00880000 00890000 5.1 CALLING PROGRAMS: 00900000 00910000 APP500 APP510 00920000 00930000 CEU510 CEU515 CEU530 CEU580 00940000 00950000 CON310 00960000 00970000 FAC950 FAC951 00980000 00990000 FIN310 FIN330 FIN392 FIN397 01000000 FIN570 FIN630 FIN680 FIN740 01010000 FIN768 FIN900 FIN745 01020000 01030000 GRD510 GRD600 GRP320 GRP336 01040000 01050000 MAS350 01060000 01070000 PER360 PER750 PER751 PER910 PER905 01080000 PER950 PER951 PER961 PER752 01090000 01100000 REC310 REC530 REC540 REC560 01110000 REC780 REC850 01120000 01130000 REG320 REG480 REG483 REG525 REG872 01140000 REG531 REG560 REG681 REG740 01150000 REG853 REG858 REG859 REG860 01160000 REG865 REG887 REG955 REG964 01170000 REG971 REG974 REG975 REG991 01180000 01190000 TRK700 01200000 01210000 VET510 01220000 01221000 5.2 SUBPROGRAMS CALLED: N/A 01230000 01240000 5.3 MESSAGE SEGMENT CODES: N/A 01250000 01260000 01270000 6.0 PROGRAM OPTIONS: NONE 01280000 ----------------------- 01290000 01300000 01310000 7.0 PROGRAM CHANGE HISTORY: 01320000 ----------------------- 01330000 01340000 7.1 VERSION NO: V2.3 01350000 CHANGE DATE: 08/23/85 01360000 PROGRAMMER NAME: DIANE LIVELY 01370000 PROGRAM CHANGE REQUEST NO: NONE 01380000 DESCRIPTION OF CHANGE: RELEASE VERSION 01390000 7.2 VERSION NO: V2.9 01400000 CHANGE DATE: 05/01/86 01410000 PROGRAMMER NAME: DIANE LIVELY 01420000 PROGRAM CHANGE REQUEST NO: STC-SR-067 01430000 DESCRIPTION OF CHANGE: 01440000 ADDED OPTION TO PRINT STANDARD LABELS--LABELS PRINTED ON 01450000 STANDARD PAPER WHICH ARE SENT TO AN INDEPENDENT MAILING 01460000 SERVICE TO BE CUT AND ATTACHED TO LITERATURE. 01470000 7.3 VERSION NO: V3.7 01480000 CHANGE DATE: 02/04/88 01490000 PROGRAMMER NAME: RICHARD GILLETTE 01500000 PROGRAM CHANGE REQUEST NO: STC-SO-378 01510000 DESCRIPTION OF CHANGE: 01520000 MODIFIED PROGRAM SO THAT WHEN '1' IS PASSED IN LABEL 01530000 CONTROL, THE LABEL IS FORCED TO BE LEFTMOST (3-UP AND 01540000 STANDARD LABELS ONLY). 01550000 7.4 VERSION NO: V3.8 01560000 CHANGE DATE: 03/18/88 01570000 PROGRAMMER NAME: HEFLIN 01580000 PROGRAM CHANGE REQUEST NO: STC-SR-439 01590000 DESCRIPTION OF CHANGE: 01600000 ADDED REC780 AND FAC950 TO CALLING PROGRAMS IN ABOVE 01610000 DOCUMENTATION. 01620000 7.5 VERSION NO: V3.15 01630000 CHANGE DATE: 11/15/88 01640000 PROGRAMMER NAME: ANNE JONES, TNCC 01650000 PROGRAM CHANGE REQUEST NO: STC-TN-291 01660000 DESCRIPTION OF CHANGE: 01670000 ADDED GRD600 TO CALLING PROGRAMS IN ABOVE DOCUMENTATION. 01680000 7.6 VERSION NO: V4.01 01690000 CHANGE DATE: 03/08/89 01700000 PROGRAMMER NAME: TRUITT 01710000 PROGRAM CHANGE REQUEST NO: 00002190 01720000 DESCRIPTION OF CHANGE: 01730000 CHANGED THE LINKAGE SECTION TO USE THE COPYLIB MEMBER 01740000 REG742C INSTEAD OF HARD CODE. 01750000 01760000 VERSION NO: V4.01 01770000 CHANGE DATE: 03/28/89 01780000 PROGRAMMER NAME: ANNE JONES, TNCC 01790000 PROGRAM CHANGE REQUEST NO: 01800000 DESCRIPTION OF CHANGE: 01810000 ADDED PER961 TO CALLING PROGRAMS IN ABOVE DOCUMENTATION. 01820000 01830000 7.7 VERSION NO: V4.03 01840000 CHANGE DATE: 05/16/89 01850000 PROGRAMMER NAME: KEN BALLARD, TNCC 01860000 PROGRAM CHANGE REQUEST NO: N/A 01870000 DESCRIPTION OF CHANGE: 01880000 ADDED CON310 TO LIST OF CALLING PROGRAMS. 01890000 01900000 7.8 VERSION NO: V4.05 01910000 CHANGE DATE: 08/24/89 01920000 PROGRAMMER NAME: G. TAYLOR 01930000 PROGRAM CHANGE REQUEST NO: 3629 01940000 DESCRIPTION OF CHANGE: 01950000 CORRECTED LIST OF CALLING PROGRAMS. 01960000 01970000 7.9 VERSION NO: V4.10 01980000 CHANGE DATE: 02/12/90 01990000 PROGRAMMER NAME: G. TAYLOR 02000000 PROGRAM CHANGE REQUEST NO: 4962 02010000 DESCRIPTION OF CHANGE: 02020000 ADD TRK700 TO LIST OF CALLING PROGRAMS. 02030000 02040000 7.10 VERSION NO: V4.12 02050000 CHANGE DATE: 04/15/90 02060000 PROGRAMMER NAME: BETH DUFF 02070000 PROGRAM CHANGE REQUEST NO: 00005096 02080000 DESCRIPTION OF CHANGE: 02090000 ADDED REG681 TO CALLING PROGRAMS IN ABOVE DOCUMENTATION. 02100000 02110000 7.11 VERSION NO: V4.27 02120000 CHANGE DATE: 10/15/91 02130000 PROGRAMMER NAME: DANA BRYANT 02140000 PROGRAM CHANGE REQUEST NO: 8749 02150000 DESCRIPTION OF CHANGE: 02160000 ADDED REG974 TO CALLING PROGRAMS IN ABOVE DOCUMENTATION. 02170000 02180000 7.12 VERSION NO: V4.28 02190000 CHANGE DATE: 11/22/91 02200000 PROGRAMMER NAME: G. TAYLOR 02210000 PROGRAM CHANGE REQUEST NO: 8990 02220000 DESCRIPTION OF CHANGE: 02230000 ADDED PER360 TO CALLING PROGRAMS IN ABOVE DOCUMENTATION. 02240000 02250000 7.13 VERSION NO: V4.34 02260000 CHANGE DATE: 05/14/92 02270000 PROGRAMMER NAME: CAROLYN SMITH 02280000 PROGRAM CHANGE REQUEST NO: 9981 02290000 DESCRIPTION OF CHANGE: 02300000 ADDED REG865 TO CALLING PROGRAMS IN ABOVE DOCUMENTATION. 02310000 02320000 7.14 VERSION NO: V4.39 02330000 CHANGE DATE: 10/01/92 02340000 PROGRAMMER NAME: BARBARA SHANKO 02350000 PROGRAM CHANGE REQUEST NO: 9395 02360000 DESCRIPTION OF CHANGE: 02370000 ADD REG975 TO LIST OF CALLING PROGRAMS. 02380000 02390000 7.15 VERSION: V5.04 02400000 CHANGE DATE: 09/15/1993 02410000 PROGRAMMER: HARRY L. WALDRON, VWCC 02420000 PROGRAM CHANGE REQUEST: 12571 12616 02430000 DESCRIPTION OF CHANGE: 02440000 ADDED "REG860" TO LIST OF CALLING PROGRAMS. 02450000 02460000 7.16 VERSION: V5.06 02470000 CHANGE DATE: 11/15/1993 02480000 PROGRAMMER: HARRY L. WALDRON, VWCC 02490000 PROGRAM CHANGE REQUEST: 13106 02500000 DESCRIPTION OF CHANGE: 02510000 ADDED "REG858" TO LIST OF CALLING PROGRAMS. 02520000 02530000 7.17 VERSION: V5.09 02540000 CHANGE DATE: 02/15/94 02550000 PROGRAMMER: BARBARA SHANKO, ASC 02560000 PROGRAM CHANGE REQUEST: 12010 02570000 DESCRIPTION OF CHANGE: 02580000 ADDED "FIN768" TO LIST OF CALLING PROGRAMS. 02590000 02600000 7.18 VERSION: V5.09 02610000 CHANGE DATE: 02/15/94 02620000 PROGRAMMER: PEGGY EMMERICH, VWCC 02630000 PROGRAM CHANGE REQUEST: 13490 02640000 DESCRIPTION OF CHANGE: 02650000 ADDED "GRD320" TO LIST OF CALLING PROGRAMS. 02660000 02670000 7.19 VERSION: V6.05 02680000 CHANGE DATE: 07/31/96 02690000 PROGRAMMER: DIANE LIVELY, JSRCC 02700000 PROGRAM CHANGE REQUEST: 16332 02710000 DESCRIPTION OF CHANGE: CHANGED TO PRODUCE 4-UP LABELS. 02720000 02730000 7.20 VERSION: V.6.10 02740000 CHANGE DATE: 04/01/97 02750000 PROGRAMMER: DEBBIE NELSON 02760000 DESCRIPTION OF CHANGE: 02770000 ADDED "FIN745" TO LIST OF CALLING PROGRAMS. 02780000 ALSO ADDED "FAC951", "PER752", "PER905", "REG872", 02790000 AND "VET510". THESE PROGRAMS CALL "REG742S" AS WELL. 02800000 02810000