0.005/27/97 CAROL WILLIS 1.0 PROGRAM NARRATIVE: ----------------- THIS PROGRAM PRINTS A REPORT OF APPLICATIONS ON FILE FOR THE DISCIPLINES SPECIFIED ON INPUT CARD ONE AND FOR EITHER THE DATE ENTERED OR DATE RECEIVED ON INPUT CARD TWO. THERE IS AN OPTION TO PRINT LABELS. REG742S SUBPROGRAM PRINTS THE LABELS. 2.0 SAMPLE JCL: ---------- 2.1 RUN JCL ------- //CVAPP500 JOB (PPPP,RRRR,5,25),'APP500',CLASS=F, // PRTY=3,MSGCLASS=A,MSGLEVEL=(1,1),REGION=2048K /*ROUTE PRINT ZZZZZ //STEP1 EXEC APP500,COLLEGE= ,AGENCY= ,FORM1= ,FORM2= //PARMCARD DD * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXX /* // SYMBOLIC DESCRIPTION ******************** REQUIRED - AGENCY COLLEGE AGENCY CODE NUMBER (E.G. AGENCY=292) COLLEGE DENOTES THE TWO CHARACTER COLLEGE NAME ABBREVIATION (E.G. COLLEGE=CV) OPTIONAL - FORM1 = INDICATES THE FORM NUMBER THE REPORT WILL BE STORED UNDER DEFAULT = A000 (I.E. FORM1=0001) FORM2 = INDICATES THE FORM NUMBER THE LABELS WILL BE STORED UNDER DEFAULT = LABL (I.E. FORM2=A000) RUNTYPE = INDICATES WHETHER OR NOT TO USE TEST OR PRODUCTION FILES DEFAULT = PROD (I.E. RUNTYPE=TEST) SRTSIZE = AMOUNT OF DASD STORAGE IN CYLINDERS ALLOCATED TO EACH SORT WORK FILE DEFAULT = 3 (I.E. SRTSIZE=4) 2.2 INPUT PARAMETERS: ---------------- PPPP - PROGRAMMER NUMBER RRRR - ROOM NUMBER ZZZZ - REMOTE NUMBER INPUT CARD ONE CC DESCRIPTION -- ----------- 1-72 DISCIPLINE CODES (IN GROUPS OF FOUR) LEAVE NO SPACES BETWEEN CODES INPUT CARD TWO CC DESCRIPTION -- ----------- 1 OPERATOR ( "=" OR ">" OR "<") '=' EQUAL '>' GREATER THAN '<' LESS THAN 2 SELECTION CHOOSE "E" FOR DATE ENTERED CHOOSE "R" FOR DATE RECEIVED 3-8 DATE (YYMMDD) 9-10 FULL-TIME/PART-TIME SELECTION SPACES = CHOOSE ALL 'FT' = CHOOSE ONLY FULL-TIME 'PT' = CHOOSE ONLY PART-TIME 11-13 SHALL MAILING LABELS BE PRINTED ALSO "YES" OR "NO " (BLANKS = NO) 14 TYPE OF LABELS '1' = ONE ACROSS LABELS '3' = THREE ACROSS LABLES 'S' = STANDARD LABELS 15-17 IF LABELS ARE DESIRED SHOULD THEY BE PRINTED IN ZIPCODE ORDER "ZIP" = YES IF CC 11-17 ARE LEFT BLANK, NO LABELS WILL BE PRINTED AND THE REPORT WILL BE SORTED ALPHABETICALLY. 2.3 JCL EXAMPLES: ------------- 1. THE FOLLOWING EXAMPLE WILL PRODUCE A LISTING OF JOB APPLICATIONS ON FILE AT CVCC WHERE ANY ONE OF THE SEVEN DISCIPLINES IS EQUAL TO 5005 OR 5021 FOR A DATE ENTERED EQUAL TO APRIL 12, 1986 CHOOSING ONLY PART-TIME, WITH NO MAILING LABELS. JOB CARD ROUTE CARD //APP500 EXEC APP500,COLLEGE=CV,AGENCY=292 //PARMCARD DD * 50055012 =E860412PT /* // 2. THE FOLLOWING EXAMPLE WILL PRODUCE A LISTING OF JOB APPLICATIONS ON FILE AT CVCC WHERE ANY ONE OF THE SEVEN DISCIPLINES IS EQUAL TO 0010 FOR A DATE RECEIVED GREATER THAN DECEMBER 31, 1985 WITH THREE ACROSS MAILING LABELS REQUESTED AND THE LABELS AND REPORT IN ZIPCODE ORDER. JOB CARD ROUTE CARD //APP500 EXEC APP500,COLLEGE=CV,AGENCY=292 //PARMCARD DD * 0010 >R851231 YES3ZIP /* // 3.0 JOB SETUP INSTRUCTIONS: ---------------------- SPECIAL FORMS QUEUE: STANDARD FORMS BUFFER: STANDARD ALIGNMENT INSTRUCTIONS: STANDARD (FOR BOTH REPORT AND LABELS) PRINTED OUTPUT: APPLICATIONS ON FILE BY DISCIPLINE MAILING LABELS FORMS TYPE: 11 X 14 FOR REPORT ONE-UP MAILING LABELS OR THREE-UP MAILING LABELS OR 11 X 14 FOR STANDARD LABELS SPECIAL INSTRUCTIONS: NONE 4.0 FILES: ----- 4.1 DATA BASES/SEGMENTS USED ------------------------ APPLICM DATA BASE 1. APPLICM MASTER (READ) CONTROL DATA BASE 1. DISCIPLINE SEGMENT (READ) 4.2 ADDITIONAL FILES USED: NONE --------------------- 5.0 SPECIAL OUTPUT MESSAGES: N/A ----------------------- 6.0 SPECIAL FEATURES: ---------------- 6.1 CALLING PROGRAMS: NONE 6.2 SUBPROGRAMS CALLED: REG742S 6.3 MESSAGE CODES: NONE 7.0 PROGRAM OPTIONS: NONE --------------- 8.0 PROGRAM CHANGE HISTORY: ---------------------- 8.1 VERSION NO: V3.1 (NEW PROGRAM) CHANGE DATE: N/A PROGRAMMER NAME: CAROL WILLIS PROGRAM CHANGE REQUEST NO: N/A DESCRIPTION OF CHANGE: N/A 8.2 VERSION NO: V3.7 CHANGE DATE: 01/26/88 PROGRAMMER NAME: CAROL WILLIS PROGRAM CHANGE REQUEST NO: STCCV030 DESCRIPTION OF CHANGE: UPDATE LABEL DOCUMENTATION 8.3 VERSION NO: V3.13 CHANGE DATE: 08/25/88 PROGRAMMER NAME: CAROL WILLIS PROGRAM CHANGE REQUEST NO: STC-CV-019 DESCRIPTION OF CHANGE: MODIFIED TO PRINT A TOTAL AT THE END OF THE REPORT. IF NO ENTRIES ARE QUALIFIED A MESSAGE IS PRINTED ON THE REPORT. MODIFIED TO ACCEPT FROM ONE THROUGH EIGHTEEN DISCIPLINE CODES. CHANGED LABEL LOGIC TO CALL REG742S SUBPROGRAM TO PRINT LABELS. JCL NOW HAS TWO INPUT CARDS. ONE FOR DISCIPLINE CODES AND ONE FOR REST OF INPUT. ADDED TYPE LABELS TO INPUT CARD 2 FOR REG742S. ADDED DOCUMENTATION FOR OPTIONAL SYMBOLIC PARAMETERS TO ABOVE DOCUMENTATION. 8.4 VERSION NO: V4.1 CHANGE DATE: 03/20/89 PROGRAMMER NAME: CAROL WILLIS PROGRAM CHANGE REQUEST NO: 00002467 DESCRIPTION OF CHANGE: MODIFIED TO PRINT SECOND ADDRESS LINE ON MAILING LABELS. 8.5 VERSION : V6.11 CHANGE DATE : 05/27/97 PROGRAMMER : PAMELA J DALRYMPLE CHANGE REQUEST #: 00017646 DESCRIPTION : MODIFIED PROGRAM TO INSURE ALL FILES WERE PROPERLY CLOSED BEFORE NORMAL EOJ TO AVOID SC03 ABEND.