0.001/21/94 LORI CALLIOTTE
1.0  PROGRAM NARRATIVE:
     ---------------------------------------
     STEP TWO IN PELL TAPE EXCHANGE PROCESS.
     ---------------------------------------

     THIS IS STEP TWO IN THE PROCESS USED IN THE PELL TAPE EXCHANGE.
     STEP ONE WAS THE RUNNING OF FIN790 AND SUBMISSION OF
     THE TAPE TO THE DEPARTMENT OF EDUCATION(DOE).  SEVERAL WEEKS AFTER
     SUBMITTING THE FIN790 TAPE TO DOE, DOE WILL RETURN THE TAPE
     YOUR INSTITUTION SUBMITTED ALONG WITH ONE OF THEIR TAPES.  ON
     THE DEPARTMENT OF EDUCATIONS TAPE IS A LIST OF ALL THE STUDENTS
     SUBMITTED ON THE LAST FIN790 TAPE SUBMISSION.  EACH STUDENT
     IS RETURNED WITH A CODE INDICATING IF THEY WERE ACCEPTED, REJECTED,
     REJECTED BUT ACCEPTED WITH ASSUMPTIONS OR WHETHER THEY WERE A
     DUPLICATE. THE CODES ARE "R", "E", "A", "D", "I".  AN EXPLANATION
     OF THESE CODES FOLLOWS.

     FINDUMP IS A PROC THAT DOES A DUMP OF THE TAPE THAT IS RETURNED
     BY DOE AFTER THE SUBMISSION OF THE FIN790.

     ********************IMPORTANT NOTE*****************************

     THE DEPARTMENT OF EDUCATION'S TAPE MUST BE RETURNED WITHIN A COUPLE
     OF DAYS AFTER RECEIVING IT OR DOE WILL CHARGE YOUR INSTITUTION A
     FINE.

     THE ADDRESS TO RETURN THE DEPARTMENT OF EDUCATIONS TAPE TO IS:
                           PELL GRANT DATA EXCHANGE
                           U.S. DEPARTMENT OF EDUCATION
                           PELL GRANT SYSTEMS DIVISION
                           P.O. BOX 10800
                           HERNDON, VA. 22070-7009
     *****************************************************************

     THE FOLLOWING DATASET NEEDS TO BE ALLOCATED IF THIS IS THE
     FIRST TIME FINDUMP HAS BEEN RUN.

          &COLLEGE.AD.PELL.PSEQPROD.DOETAPE

          VOLUME SERIAL       VCCTSO
          DEVICE TYPE         3380
          ORGANIZATION        PS
          RECORD FORMAT       FB
          RECORD LENGTH       320
          BLOCK SIZE          6400
          1ST EXTENT          5
          SECONDARY CYLINDERS 5

     THIS DATA SET WILL BE USED FOR EVERY RETURNED DOE TAPE.

     FINDUMP READS THE DEPARTMENT OF EDUCATIONS TAPE RETURNED WITH
     THE FIN790 TAPE AND COPIES DOE'S TAPE ONTO ONE OF YOUR INSTITUTIONS
     TAPES. THE COPIED TAPE SHOULD BE KEPT FOR FIVE YEARS.

     IN ADDITION, FINDUMP COPIES THE TAPE INTO A SEQUENTIAL FILE.
     (THE ONE ALLOCATED ABOVE (&COLLEGE.AD.PELL.PSEQPROD.DOETAPE)).
     THIS SEQUENTIAL FILE IS READ BY FIN791 AND A REPORT
     OF REJECTIONS AND ACCEPTANCES WITH ASSUMPTIONS IS CREATED.
     THE FOLLOWING CODES ARE CHECKED FOR "R", "E", "A", "D", "I".
     VALUES ARE IN POSITION (80) RECORD STATUS CODE ON TAPE FILE.
     FIN791 AND FIN792 WILL USE THIS SEQUENTIAL FILE.

     HINT/REMINDER:
     IF THIS SEQUENTIAL FILE IS DELETED, IT CAN BE RESTORED FROM THE
     BACKUP TAPE.  FIN791 USES THE SEQUENTIAL FILE TO PRODUCE A
     REPORT OF REJECTED/ACCEPTED STUDENTS.  FIN792 USES THE FILE
     TO DELETE STUDENTS FROM FIN790'S CONTROL FILE IN ORDER THAT
     THEY MAY BE SUCCESSFULLY RESUBMITTED AS NEW STUDENTS WHEN FIN790
     IS RUN AGAIN.

     DOE'S CODES AND AN EXPLANATION.
                     "R" = REJECTED.
                     "E" = REJECTED WITH ERRORS.
                     "A" = ACCEPTED WITH ASSUMPTIONS.
                     "D" = DUPLICATES.
                     "I" = ACCEPTED.

     THIS REPORT IS TO BE SENT TO EACH OF YOUR INSTITUTIONS FINANCIAL
     AID OFFICES.  CORRECTIONS ARE TO BE MADE BEFORE THE NEXT FIN790
     TAPE RUN. SOME OF THE REJECTIONS CAN BE CORRECTED ONLINE.
     SOME WILL BE PARMCARD ENTRIES ON THE NEXT FIN790 RUN.  TRANSACTION
     NUMBERS ARE THE ONES THAT CAN BE CORRECTED ONLINE (FIN005).  NAME
     CHANGES, SOCIAL SECURITY ERRORS OR CHANGES WILL BE PARMCARD
     ENTERIES ON THE NEXT RUN AND MUST BE SUBMITTED TO THE DATA CENTER
     BEFORE THE NEXT SCHEDULED RUN OF THE FIN790 PELL TAPE EXCHANGE
     PROGRAM.

2.0  SAMPLE JCL
     ----------

     2.1  RUN JCL
          ______
          //FINDUMP JOB (XXXX,YYYY,09,50,,,2),FINDUMP,MSGCLASS=A,
          //   MSGLEVEL=(1,1),CLASS=F,PRTY=3
          /*ROUTE  PRINT PPPPPP

              WHERE (XXXX,YYYY) IS YOUR ACCOUNTING INFORMATION
                    PPPPPP      IS YOUR OUTPUT DESTINATION

              NOTE: THE COPY PARAMETER IN THE JOB STATEMENT SHOULD
                    BE SET TO A NUMBERS THAT REFLECT THE NUMBER OF
                    COLLEGES FINANCIAL AID OFFICES.
          /*SETUP ******************************************************
          /*SETUP *  PLEASE MOUNT TAPE #W00000 WITHOUT RING. (DOE TAPE)*
          /*SETUP *  PLEASE MOUNT TAPE #000000 WITH RING.    (OUR TAPE)*
          /*SETUP ******************************************************
          //FINDUMP EXEC FINDUMP,
          //             COLLEGE=TC,
          //             RUNTYPE=PROD,
          //             ENDYR=,
          //             INSTNUM=07777,
          //             DOETAPE=,
          //             DOENUM=,
          //             OURTAPE=
          /*
*
          SYMBOLIC DESCRIPTION
          --------------------
            REQUIRED
            --------

            COLLEGE   DENOTES THE TWO CHARACTER COLLEGE ABBREVIATION
                      (EX. COLLEGE=TC)

            ENDYR     DENOTES THE LAST DIGIT OF THE LAST YEAR
                      REPRESENTING THE ACADEMIC YEAR.  FOR EXAMPLE,
                      A '3' WOULD BE ENTERED FOR THE ACADEMIC YEAR
                      (92-93).

            INSTNUM   DENOTES THE LAST FIVE DIGITS OF YOUR PELL
                      INSTITUTION NUMBER.
                      (EX.  INSTNUM=03712)
                      FOR EXAMPLE TCC'S INSTITUTION NUMBER IS 03712

            DOETAPE   DENOTES THE TAPE VOLUME NUMBER FOR THE PELL
                      EXCHANGE TAPE RETURNED FROM THE DEPARTMENT
                      OF EDUCATION (EX. DOETAPE=W00690)
                      THIS IS ALWAYS ON THE STICKER ON THE TAPE DOE
                      SENDS TO YOUR INSTITUTION.

            DOENUM    THIS IS ALWAYS ON THE LABEL ON DOE'S RETURNED
                      TAPE.  (EX. CDS.YR4.PEL03712.#3347336)
                      OF EDUCATION (EX. DOETAPE=#3347336)

            OURTAPE   THIS IS THE TAPE NUMBER SET ASIDE TO COPY DOE'S
                      RETURNED TAPE ONTO.
                      (EX. DOETAPE=000948)

                OPTIONAL
                --------

            RUNTYPE   INDICATES WHETHER TO USE THE TEST OR PRODUCTION
                      FILES.
                      DEFAULT: PROD
                      (E.G., RUNTYPE=TEST)


*    2.2  INPUT PARAMETERS
          ________________

          SYS5.SIS.PARMLIB      INPUT TO FINDUMP PROC
          ------------------- ---------------------
          FINDUMP1              LABEL   DATA=YES
          FINSAS                SHORT SAS PROGRAM STORED IN
                                SYS5.SIS.PARMLIB UNDER FINSAS.
  ****************THIS IS THE SMALL SAS JOB STORED IN PARMLIB******
  DATA TAPEIN;
  INFILE TAPEIN;
    INPUT   @1   PART1    $CHAR132.
            @133 PART2    $CHAR132.
            @265 PART3    $CHAR56.;

PROC PRINT;
VAR PART1;
VAR PART2;
VAR PART3;
TITLE1 'PELL TAPE EXCHANGE RETURNED TAPE (OUR COPY)';
*****************************************************************

 3.0  JOB SETUP INSTRUCTIONS
      ----------------------

     SPECIAL FORMS QUEUE:    STANDARD FOR REPORT

     FORMS BUFFER:           STANDARD FOR REPORT

     ALIGNMENT INSTRUCTIONS: STANDARD

     PRINTED OUTPUT:         DUMP OF THE TAPE RETURNED FROM DOE


4.0  FILES:

     4.1  FILES USED:
              1.  TAPEFILE     - FILE ON THE TAPE RETURNED FROM PELL.
                  NAME OF FILE WILL BE ON THE LABEL ON THE TAPE
                  DOE SENDS TO US.

     4.3  INPUT/OUTPUT RECORD LAYOUTS:
              A.  TAPE-RECORD (LAYOUT OF RECORD ON PELL TAPE RETURNED)
     -------------------------------------------------------------------
     ]  POSITION    ]                  ]       ]  DATA  ]              ]
     ] FROM ]  TO   ]   FIELD NAME     ] SIZE  ]  TYPE  ]   COMMENTS   ]
     ]------]-------]------------------]-------]--------]--------------]
     ]   1  ]   1   ] RECORD TYPE      ]   1   ]    N   ] CONSTANT '2'.]
     ]   2  ]  14   ] PELL ID          ]  13   ]   AN   ]              ]
     ]      ]       ] SSN              ]   9   ]   AN   ]              ]
     ]      ]       ] LAST NAME        ]   2   ]   AN   ] 1ST 2 CHAR.  ]
     ]      ]       ] TRANSACTION NO.  ]   2   ]    N   ] NEW FIELD    ]
     ]  15  ]  70   ] FILLER           ]  56   ]    N   ] FIELDS WE DO ]
     ]      ]       ]                  ]       ]        ]  NOT USE.    ]
     ]  71  ]  79   ] OUR SSN          ]   9   ]    N   ] OUR KEY (SSN)]
     ]  80  ]  80   ] RECORD STATUS CODE   1   ]    N   ] R = REJECTED ]
     ]      ]       ]                  ]       ]        ] E = REJECTED ]
     ]      ]       ]                  ]       ]        ]     W/ERRORS ]
     ]      ]       ]                  ]       ]        ] A = ACCEPTED ]
     ]      ]       ]                  ]       ]        ]     W/ASSUMPT]
     ]      ]       ]                  ]       ]        ] D = DUPLICATE]
     ]      ]       ]                  ]       ]        ] I = ACCEPTED ]
     ]      ]       ]                  ]       ]        ]              ]
     ]      ]       ]                  ]       ]        ] ** NOTE **   ]
     ]      ]       ]                  ]       ]        ] WE REPROCESS ]
     ]      ]       ]                  ]       ]        ] ONLY THE 'R' ]
     ]      ]       ]                  ]       ]        ] AND 'E' RECS.]
     ]      ]       ]                  ]       ]        ]              ]
     ]  81  ] 320   ] FILLER           ] 240   ]   AN   ] FIELDS WE DO ]
     ]      ]       ]                  ]       ]        ]  NOT USE.    ]
     ]______]_______]__________________]_______]________]______________]
*
5.0  SPECIAL OUTPUT MESSAGES:
*
6.0  SPECIAL FEATURES:

7.0  PROGRAM CHANGE HISTORY:

     7.1  VERSION NO.:                5.08
          CHANGE DATE:                01/03/94
          PROGRAMMER NAME:            LORI CALLIOTTE
          PROGRAM CHANGE REQUEST NO.: #13423
          DESCRIPTION OF CHANGE:
          INITIAL RELEASE.
          IF YOUR INSTITUTION PARTICIPATES IN THE PELL TAPE EXCHANGE,
          THIS PROC IS USED TO COPY THE TAPE THE DEPARTMENT OF
          EDUCATION SENDS WHEN YOUR INSTITUTIONS PELL TAPE FROM THE
          LATEST FIN790 SUBMISSION IS RETURNED.  DOE'S TAPE IS
          COPIED AND A SEQUENTIAL FILE IS CREATED ON DISK.  THIS
          SEQUENTIAL FILE WILL BE USED BY FIN791 AND FIN792.