0.007/31/96 DIANE LIVELY 1.0 PROGRAM NARRATIVE ----------------- THIS PROGRAM PRODUCES ADDRESS LABELS FOR RECORDS IN A TEMPORARY FILE. THE TEMPORARY FILE CAN BE CREATED USING A DYL-280 PROGRAM WHICH HAS BEEN CODED AS REQUIRED TO SELECT RECORDS WHICH FIT THE SPECIFIC SELECTION CRITERIA OR PROGRAMS, SUCH AS REG932 OR REC750, CAN BE RUN TO CREATE THE TEMPORARY FILE. RECORDS CAN BE SORTED AS FOLLOWS: (1) BY NAME, (2) BY ZIP CODE, (3) BY ADVISOR, (4) NOT BY THIS PROGRAM, (5) BY NAME WITHIN CAMPUS, (6) BY ZIP CODE WITHIN CAMPUS, (7) BY DIVISION WITHIN CAMPUS, (8) BY CURRICULUM WITHIN CAMPUS OR (9) ADVISOR WITHIN DIVISION, (0) ADVISOR AND ZIPCODE--SEE PARMCARD. IF YOU ARE USING A DYL-280 PROGRAM AND WISH TO SORT ANOTHER WAY, CODE A SORT STATEMENT IN DYL-280 AND CHOOSE OPTION 4. A LABEL IS PRINTED AT THE BEGINNING AND END OF THE JOB USING PARMCARD DATA TO DESCRIBE THE RUN. IF LABELS ARE SORTED BY ADVISOR (OPTION (3) AND (0)), ADVISOR HEADER AND TRAILER LABELS ARE PRINTED TO SEPARATE EACH ADVISOR'S LABELS. THE FIRST POSITION OF THE ADVISOR CODE IS THE CAMPUS. IF RECORDS ARE SORTED BY CAMPUS (OPTION (5) AND (6)), CAMPUS HEADER AND TRAILER LABELS ARE PRINTED TO SEPARATE EACH CAMPUS' LABELS. IF RECORDS ARE SORTED BY DIVISION (OPTION (7)), DIVISION HEADER AND TRAILER LABELS ARE PRINTED. THE FIRST POSITION OF THE DIVISION CODE IS THE CAMPUS. IF RECORDS ARE SORTED BY CURRICULUM WITHIN CAMPUS (OPTION (8)), HEADER AND TRAILER LABELS ARE PRODUCED TO SEPARATE EACH CURRICULUM WHEN THERE IS A BREAK ON CAMPUS OR CURRICULUM, AND THE CAMPUS IS PRINTED ON THE HEADER AND TRAILER LABELS. IF RECORDS ARE SORTED BY ADVISOR WITHIN DIVISION (OPTION (9)), HEADER AND TRAILER LABELS ARE PRODUCED TO SEPARATE EACH ADVISOR WHEN THERE IS A BREAK ON ADVISOR OR DIVISION, AND THE DIVISION IS PRINTED ON THE HEADER AND TRAILER LABELS. THE '@' SORT OPTION SORTS BY ZIPCODE WITH NO BREAKS AND PRINTS A TOTAL NUMBER OF LABELS. THE '*' SORT OPTION WILL SORT BY ZIPCODE WITH NO BREAK, BUT GIVES EACH ZIPCODE TOTAL AT THE END OF THE LABELS. THE PROGRAM GIVES THE TOTAL NUMBER OF RECORDS READ AND LABELS PRINTED. IT ALSO COMPUTES TOTALS FOR EACH CONTROL BREAK. 2.0 SAMPLE JCL: ---------- 2.1 RUN JCL ------- A. USING REG932 TO SELECT RECORDS //REG740 JOB (WWWW,XXXX,9,29),REG740, // MSGCLASS=A,CLASS=F,PRTY=3 /*ROUTE PRINT YYYYYYYY /*SETUP PLEASE USE X-UP LABELS //REG932 EXEC REG932, // AGENCY=DDD, // COLLEGE=DD, // CENSUS=, // RUNTYPE=PROD //PARMCARD DD * -----SEE DOCUMENTATION FOR REG932-------- /* //REG740 EXEC REG740, // FCB=DDDD, // FORM=DDDD, // QUEUE=J, // RUNTYPE=PROD //REG740.PARMCARD DD * -----SEE INPUT CARD BELOW------ /* // B. USING DYL-280 TO SELECT RECORDS //REG740 JOB (WWWW,XXXX,9,29),REG740, // MSGCLASS=A,CLASS=F,PRTY=3 /*ROUTE PRINT YYYYYYYY /*SETUP PLEASE USE X-UP LABELS //REG740D EXEC REG740D // AGENCY=DDD, // COLLEGE=DD, // CENSUS=, // RUNTYPE=PROD, // SRTSIZE=3 //SYSIN DD * -----DYL-280 CODE-------- /* //REG740 EXEC REG740, // FCB=DDDD, // FORM=DDDD, // QUEUE=J, // RUNTYPE=PROD //REG740.PARMCARD DD * -----SEE INPUT CARD BELOW------ /* // C. USING REC750 TO SELECT RECORDS //REG740 JOB (WWWW,XXXX,9,29),REG740, // MSGCLASS=A,CLASS=F,PRTY=3 /*ROUTE PRINT YYYYYYYY /*SETUP PLEASE USE X-UP LABELS //REC750 EXEC REC750, // AGENCY=DDD, // COLLEGE=DD, // CENSUS=, // SRTSIZE=X, // RUNTYPE=PROD //REC750.PARMCARD DD * -----SEE DOCUMENTATION FOR REC750-------- /* //REG740 EXEC REG740, // FCB=DDDD, // FORM=DDDD, // QUEUE=J, // RUNTYPE=PROD //REG740.PARMCARD DD * -----SEE INPUT CARD BELOW------ /* // SYMBOLIC DESCRIPTION ******************** REQUIRED - AGENCY COLLEGE AGENCY CODE NUMBER (E.G. AGENCY=291) COLLEGE TWO CHARACTER COLLEGE NAME ABBREVIATION (E.G. COLLEGE=BR) FCB CARRIAGE CONTROL BUFFER NAME (E.G. FCB=H103) FORM FORM NUMBER THE OUTPUT IS TO BE STORED UNDER (E.G. FORM=0103) OPTIONAL - CENSUS THREE CHARACTER CENSUS DATA BASE DEFAULT: NONE (E.G. DEFAULT=CEN) QUEUE QUEUE CLASS THE OUTPUT IS TO BE SPOOLED UNDER DEFAULT: J (E.G. QUEUE='*') RUNTYPE INDICATES WHETHER OR NOT TO USE TEST OR PRODUCTION FILES DEFAULT: PROD (E.G. RUNTYPE=TEST) SRTSIZE AMOUNT OF DASD STORAGE IN CYLINDERS ALLOCATED TO EACH SORT WORK FILE DEFAULT: 3 (E.G. SRTSIZE=4) 2.2 INPUT PARAMETERS ---------------- WWWW - PROGRAMMER NUMBER XXXX - ROOM NUMBER YYYYYYYY - PRINTER INPUT CARD CC DESCRIPTION -- ----------- 1 TYPE OF LABELS (MUST BE 1, 3, S, OR 4) 1 - FOR 1-UP 3 - FOR 3-UP S - FOR STANDARD (3-UP, PLAIN PAPER) 4 - FOR 4-UP (PLAIN PAPER) 2 SORT OPTION @ - TO SORT BY ZIPCODE(WITHOUT ZIPCODE BREAK) * - TO SORT BY ZIPCODE(WITHOUT ZIPCODE BREAK) BUT PRINTS TOTALS FOR EACH ZIPCODE AT THE END OF THE LABELS 0 - TO SORT BY ADVISOR AND ZIPCODE 1 - TO SORT BY NAME 2 - TO SORT BY ZIP CODE 3 - TO SORT BY ADVISOR AND NAME 4 - NO SORT 5 - TO SORT BY NAME WITHIN CAMPUS 6 - TO SORT BY ZIP CODE WITHIN CAMPUS 7 - TO SORT BY DIVISION 8 - TO SORT BY CURRICULUM WITHIN CAMPUS 9 - TO SORT BY ADVISOR WITHIN DIVISION 3-80 DESCRIPTION OF RUN EX: 33ADVISOR CURR 648;CAMP A 3.0 JOB SETUP INSTRUCTIONS: ---------------------- SPECIAL FORMS QUEUE: (EG. 0100, 0103, 0010) FORMS BUFFER: (EG. 0103, 0100) ALIGNMENT INSTRUCTIONS: STANDARD PRINTED OUTPUT: 1-UP LABELS, 3-UP LABELS, 4-UP, STANDARD (3-UP ON UNLINED COMPUTER PAPER) FORMS TYPE: 3 1/2 " BY 1" SPECIAL INSTRUCTIONS: PREPARE A PARMCARD FOR REG932 --OR-- PREPARE A PARMCARD FOR REC750 --OR-- CODE A DYL-280 PROGRAM TO CREATE THE TEMPORARY FILE WHICH IS PASSED TO REG740. PREPARE A PARMCARD FOR REG740. 4.0 FILES: ----- 4.1 DATA BASE SEGMENTS USED STUDENT DATA BASE 1. STUDENTM (READ ONLY) 4.2 ADDITIONAL FILES USED: 1. TEMPFILE 4.3 INPUT/OUTPUT RECORD LAYOUTS: LOCATION LENGTH TYPE DESCRIPTION 1-16 16 ALPH LAST NAME 17-26 10 ALPH FIRST NAME 27 1 ALPH INITIALS 28-29 2 ALPH NAME SUFFIX 30-51 22 ALPH ADDRESS 52-67 16 ALPH CITY 68-69 2 ALPH STATE 70-78 9 ALPH ZIP CODE 79-82 4 ALPH ADVISOR CODE 83-85 3 ALPH CURRICULUM 5.0 SPECIAL FEATURES ---------------- 5.1 CALLING PROGRAMS: N/A 5.2 SUBPROGRAMS CALLED: 1. REG742S 5.3 MESSAGE SEGMENT CODES: N/A 6.0 PROGRAM OPTIONS: ---------------- NONE 7.0 PROGRAM CHANGE HISTORY: ----------------------- 7.1 VERSION NO: V2.11 CHANGE DATE: 08/17/86 PROGRAMMER NAME: DIANE LIVELY PROGRAM CHANGE REQUEST NO: NONE DESCRIPTION OF CHANGE: RELEASE VERSION 7.2 VERSION NO: V2.12 CHANGE DATE: 10/17/86 PROGRAMMER NAME: RICK HEFLIN PROGRAM CHANGE REQUEST NO: STC-SO-238 DESCRIPTION OF CHANGE: ADDED RUNTYPE PARAMETER TO PROC 7.3 VERSION NO: V2.13 CHANGE DATE: 01/29/87 PROGRAMMER NAME: DIANE LIVELY PROGRAM CHANGE REQUEST NO: STC-SR-130 DESCRIPTION OF CHANGE: ADDED SORT OPTIONS 7 AND 8. ADDED CURRICULUM TO THE TEMPORARY FILE. 7.4 VERSION NO: V3.03 CHANGE DATE: 10/06/87 PROGRAMMER NAME: R.H.CLARK PROGRAM CHANGE REQUEST NO: SCT-VW-307 DESCRIPTION OF CHANGE: ADDED OPTION TO PRINT LABELS GENERATED BY REG750. 7.5 VERSION NO: V3.11 CHANGE DATE: 05/06/88 PROGRAMMER NAME: R.H.CLARK PROGRAM CHANGE REQUEST NO: SCT-VW-395 DESCRIPTION OF CHANGE: ADDED OPTION TO SORT BY ADVISOR DIVISION, ADVISOR, CURRICULUM AND STUDENT NAME. PRINT CONTROL BREAKS ON ADVISOR. 7.6 VERSION NO: V3.13 CHANGE DATE: 07/20/88 PROGRAMMER NAME: ROSE TAYLOR PROGRAM CHANGE REQUEST NO: SCT-SR-541 DESCRIPTION OF CHANGE: OPTION '3' WAS PRINTING A HEADER FOR EVERY OTHER LABEL. CORRECTED TO PRINT ONLY ONE HEADER LABEL PER ADVISOR. ADDED HEADER AND TRAILER LABELS FOR OPTION '2' WITH TOTALS PER ZIP CODE ON THE TRAILER LABELS. 7.7 VERSION NO: V4.01 CHANGE DATE: 01/26/89 PROGRAMMER NAME: WAYNE DAVIS PROGRAM CHANGE REQUEST NO: I# 00001940 DESCRIPTION OF CHANGE: MODIFIED THE PROGRAM TO PRINT ONLY THE INITIAL SELECTION DESCRIPTION LABEL, THE ACTUAL LABELS, TRAILER LABELS ONLY FOR ZIPCODE SORT, AND THE TOTAL DESCRIPTION LABEL. REMOVED ALL LINEUP LABELS WITHIN ALL SORT OPTIONS. NOTE: ADDED A PARMCARD OPTION '@' TO SORT BY ZIPCODE WITHOUT A BREAK ON CHANGE OF ZIPCODE. 7.8 VERSION NO: V4.03 CHANGE DATE: 05/18/89 PROGRAMMER NAME: BARBARA TRUITT PROGRAM CHANGE REQUEST NO: 00002885 DESCRIPTION OF CHANGE: MODIFIED THE PROGRAM TO NOT PRINT A COMMA WHEN THE CITY AND STATE ARE BLANK, JSRCC HAS NEED FOR NAME ONLY LABELS. 7.9 VERSION NO: V4.07 CHANGE DATE: 10/10/89 PROGRAMMER NAME: DIANE LIVELY PROGRAM CHANGE REQUEST NO: 00004063 DESCRIPTION OF CHANGE: ADDED A NEW SORT OPTION (0) TO SORT BY ADVISOR AND ZIP CODE. PROGRAM CHANGE REQUEST NO: NONE DESCRIPTION OF CHANGE: CHANGED PROGRAM TO COMPILE AND LINK UNDER COBOL II COMPILER. 7.10 VERSION NO: V4.39 CHANGE DATE: 10/20/92 PROGRAMMER NAME: BARBARA SHANKO, ASC PROGRAM CHANGE REQUEST NO: 00010953 DESCRIPTION OF CHANGE: ADDED A NEW SORT OPTION (*) TO SORT BY ZIPCODE WITH NO BREAK IN BETWEEN ZIPCODES BUT WILL PRINT THE TOTALS OF EACH ZIPCODE AT THE END OF THE LABELS. LINK UNDER COBOL II COMPILER. 7.11 VERSION NO: V5.17 CHANGE DATE: 10/20/94 PROGRAMMER NAME: JOYCE HENLEY PROGRAM CHANGE REQUEST NO: 00012319 DESCRIPTION OF CHANGE: CHANGED STEPNAME IN PROC FROM STEP1 TO REG740. ADDED UTL510/REQUEUE STEPS. 7.12 VERSION NO: V6.01 CHANGE DATE: 02/15/96 PROGRAMMER NAME: PAMELA J. DALRYMPLE CHANGE REQUEST NO: 00016285 DESCRIPTION OF CHANGE: MODIFIED ZIP CODE TABLE OCCURENCES FROM 100 TO 500. 7.13 VERSION NO: V6.05 CHANGE DATE: 07/31/96 PROGRAMMER NAME: DIANE LIVELY, JSRCC CHANGE REQUEST NO: 00017067 DESCRIPTION OF CHANGE: CHANGED PROGRAM FOR 4-UP LABELS. ALSO, ADDED A HYPHEN WHEN 9 DIGITS ARE USED FOR THE ZIP.