Usefull Phone Numbers:

866-BEELINE (866-233-5463) Tech Support

Training Regime:

Review Test Aps (MEDS)
IDMS Tables, Relations & structure
IDMS Relational Concepts
IDMS Set Concepts
Shop Tools
Areas of Weakness; Application Screens, IDMS Set Concepts, ADSO & ADS/Alive
Areas of Gained Proficiency; IDMS Relational Concepts, XSUB(Clemson Created) & Table Navigation/Display

Client Server Refresher:

Current Projects/Concepts:
Load Apache/TomCat on machine, done.
Load Java editor, Eclipse & NetBean, done.
Build simple app, MVC architecture (Servlet controller, POJO Model, JSP to display data). Call it BeerSelection, IP.

     Not finding resource, servlet.
     Resolved, Package name program compiled under in error, viewed log file to verify resolve error.
     Error resolved used TomCat log files to diagnose error.

Add JSP page, with scriplets to display processed data.
Created MVC application to query input from user returning data based on user input and extracting Listener Object.
Create new application simple lunar calculation(MVC).
Add ServletContextListener to above applications.
12/01/09 - Loading MySQL & MySQL Work Bench on laptop, remaining question how to tie database to TomCat server? Gain proficiency with MySQL Work Bench. Connect MySQL & TomCat Server.


Future Projects/Concepts:
Add code to redirect various header errors to specific pages.
Load Cache database to laptop, Future.
Recreate shopping cart, Reviewing concept of attribues & parameters (scope & use).
12/01/09 - Loading MySQL & MySQL Work Bench on laptop, remaining question how to tie database to TomCat server? Reviewing various JSP sub languages i.e. EL etc.

Weekly Schedule:

• Week 1, 9/21 - 9/27
  Goals: Get up to speed with shop standards, administrative tasks i.e. ID's, badge, HIPPA training, weekly status reports, system access(RACF), time reporting system (Bee Line), access to IDMS tables & other shop tools.
  Weekly Status: Logon Id's established(TSO & Network), printers connected ID acquired, LAN, TSO & E-Mail set up. Learning to use shop tools i.e. TBOX & MEDS Test. Setting up ChangeMan panels. Created CM package MEDS004773 for MED1000 modifications.
  Problems: Time reporting system (Bee Line), where is it (no one seems to know) & zeke access denied. Still unresolved do I have SC sign TekSystems time sheets/fax, assume so unless told other wise.

• Week 2, 9/28 - 10/03
  Goals: Complete Assigned tasks. Find out from SC who can sign time sheet when she is out. Set up Bee Line, Running dynamic SQL outside of MEDS Test System/OCF - use. Alternate means of running SQL via batch job. Resolve questions for assigned task; job mod.
  Weekly Status: Per Travis time sheets not required, Bee Time line entries will suffice. Logged into Bee Line, entered last weeks hours (40), MED1000 questions answered. Since @MED1000 in a PDS other then PROD.JCL member had to be staged into CM Package, component modified, ready for testing. Ran MED1000 with TYPRUN=SCAN job card, JCL clean. Created test JCL (testing file contention problems), all ran smooth, note sent to SC.
  Problems: Time reporting system (Bee Line), per NWN Corporation rep SC committed hours for 9/27 - 9/30 this locked me out of entering hours for remainder of week. Bee Line will have to be reset. Sharon Collett [SCollett@nwnit.com] POC for this SNAFU. Resolution Press EDIT Button (beneath Timesheet header).

• Week 3, 10/04 - 10/10
  Goals: Complete Assigned tasks, obtain prod move for CM Package MEDS004773 from SC. Freeze said CM package. Continue training with MEDS aps(screens & batch), IDMS tables(batch & CA ADS) & shop tools. Work on area of weakness i.e. ADS Alive & ADS/Online.
  Weekly Status: Filled in knowledge gaps, accessing past production jobs, VSAM file creation (test/prod). Tasked with modifying MEDS.PROD.RCVR.JCL(CAT48BGS), Changeman Package MEDS004780. Will send snapshot of approved BeeLine screen every Monday to Amanda. Job CAT48BGS to remain in hold library (no ChangeMan move), Mods to JCL made, resultant SQL data in question. Queries currently under review. Extensive use of MEDS Test System/OCF to review SQL mods in test. Eligibility SQL reviewed & looks OK, APPLICANTS PENDING SQL mods reviewed, JC mod OK to move. Modification/testing of jobs MEDS.CONNECT.DIRECT.PROCESS(@MED1000) and MEDS.PROD.RCVR.JCL(CAT48BGS). With both jobs I can proceed no further (waiting user OK). Currently reviewing all production ABENDS, 10/09 TTR1001 ABEND SYSTEM=000 USER=3134, test job.
  

• Week 4, 10/11 - 10/17
  Goals: Complete Assigned tasks, Modification/testing of jobs MEDS.CONNECT.DIRECT.PROCESS(@MED1000) and MEDS.PROD.RCVR.JCL(CAT48BGS). Both jobs require user OK. Continue training with MEDS aps(screens & batch), IDMS tables(batch & CA ADS) & shop tools.
  Weekly Status: Get last weeks hours approved, sent note to SC. Reviewed programs (TTR1001/2/4/5/6), documentation & links forwarded by JG. Reviewing ADS/Alive documentation. Reviewing MVS Quick Fix software for possible benifts to Clemson. Currently reviewing all production ABENDS, 10/14 TTR1001 ABEND SYSTEM=000 USER=3134, test job. Ran CAT48BGS for user OK, plan to implement (with user blessing)10/14. User feedback will have to use Application Effective Date in addition to other preds. Added XSUB Symbolics for SQL Date Predicates, anticapating user mod. Reviewing JCL @MED1000, will the current mods address the potenceal file contention problem? Production moves; CAT48BGS; Origional CAT48BGS will be archived and modified version moved into MEDS.PROD.RCVR.JCL. Not sure of production steps for @MED1000 mods since this is another non standardized production PDS.
  

• Week 5, 10/18 - 10/24
  Goals: Complete Assigned tasks, Modification/testing of jobs MEDS.CONNECT.DIRECT.PROCESS(@MED1000) and MEDS.PROD.RCVR.JCL(CAT48BGS). Both jobs require user OK. Review production ABENDS. Continue training with MEDS aps(screens & batch), IDMS tables(batch & CA ADS) & shop tools. Prep for future DB2/Client Server Project, reasson hired.
  Weekly Status: ChangeMan Package MEDS004773 Audited, Frozen & Approved. ChangeMan Package MEDS004780 mods look good, SQL's modified, using system year for SQL predicates. User requested modification of output, changes made & tested, result sent to user. CHANGE MAN PACKAGE MEDS004773 promoted to QA, approval and promotion to UA in process via JG. Assigned task to add new table to adding this table to the load/unload programs JCL. Compiled MED1100 & MED1101, corrected ChangeMan jobcard. Error in MMA_AUDIT DECLGEN notified JG 10/22. Reviewed code mods in MED1100/1101/1150/1200. Package MEDS004780 moved to pseudo production home 10/23.
  

• Week 6, 10/25 - 10/31
  Goals: Complete Assigned tasks. Review production ABENDS, continue training with MEDS aps(screens & batch), IDMS tables(batch & CA ADS) & shop tools. Continue work on TT # 366 MMA Interface – Phase 2(Package MEDS004784), move Package MEDS004780 into pseudo production. Continue to monitor job @MED1000. Productionize package MEDS004780/CAT48BGS code. Prep for future DB2/Client Server Project, reasson hired.
  Weekly Status: 10/29 AM DCLGEN for table MMA_TRANSACTIONS still incorrect, until corrected can not compile programs that use it(JC notified 10-22), MMA_AUDIT table does not exist in QA & Prod, will have use TEST tables & populate test MMA_AUDIT to test Lyles Unload/Load procedures. 10/28 Populated test table with semi bogus data (valid HH ID/SBJ ID remaining data bogus). Run against CHGMAN You can point to your Changeman JCL library in your XSUB command. It would look like XSUB ‘MEDS.CMNSTAGE.MEDS.#009999.JCL(@MED1010)’ followed by the parms. 9999 is your package number. Told to add tables MMA_TRANSACTION & MMA_TRANS_HIST. Table testing Reviewed prod job runs @MED1000 & CAT48BGS all appears well. 10-26, created requirements to productionize CAT48BGS, note sent to JG. Reviewing JCL CAT48BGS for steps required to move CAT48BGS from "MEDS.PROD.RCVR.JCL" to "MEDS.PROD.JCL".
  Problems: System data i.e. CHGMAN jobcard & XE (eXtended Edit) data set names not saved when I shut my machine down, JC notified. This is currently just a pain in the butt and a source of curiosity. INSUFFICIENT AUTHORITY to allocate DSN in job in MEDS.QA.JCL(INPTUNLD), copied into MEDS.QA.JCL(INPTUNLD), without allocation authority unable to run table prep step INPTUNLD and unload jobs MED1000/1001/1150. I have authority to allocate MEDS.DT. datasets.

• Week 7, 11/01 - 11/07
  Goals: Complete Assigned tasks. Review production ABENDS, continue training with MEDS aps(screens & batch), IDMS tables(batch & CA ADS) & shop tools. Test CHGMAN MEDS004784 package mods. Update CHGMAN Package MEDS004780 to steps required to move CAT48BGS from "MEDS.PROD.RCVR.JCL" to "MEDS.PROD.JCL". Corrections to DCLGEN for table MMA_TRANSACTIONS will not be completed until 11/02, recompile MED1100/1101/1320/1200, add acc for each prgm. Test Prep for future DB2/Client Server Project, reasson hired. Active tasks;
  Weekly Status:Programs recompiled E37 with 1150, need to recompile (new file sizes for modified tables). Modify JCL & create test data in modified tables. Created CHGMAN Package MEDS004791 for program MED1150. Create program to read DataBase catalog to generate table field positions.
  Problems:Getting following error when compiling MED1150: IGD17279I,1 VOLUMES WERE REJECTED BECAUSE THEY DID NOT HAVE SUFFICIENT SPACE (04 IGD104I MEDS.CMNSTAGE.MEDS.#004784.DIO RETAINED, DDNAME=SYS00018 IEF142I CHGMAN COPYDIO - STEP WAS EXECUTED - COND CODE 0028 IEF285I CMNZMFP.R534.CUSTOM.LOAD PASSED IEF285I VOL SER NOS= MEDS0X. Resolution: Move MED1100 into own package & compile. Ran TBOX option 16 for MED1150 following results, *** ERROR 2222 IN ROUTINE EXPLAIN_AM, 2222 is a catch all IDMS return code, resolution submit with Batch vice Daily for Update programs. Ran test @MED1310 ABENDED. New problem, BGMSNP LRECL/BLKSIZE problem, LW dealing with. Return code 12 for UNLOAD steps for MMA_TRANSACTIONS & MMA_TRANS_HIST "E C300067 FIELD POSITION EXTENDS BEYOND RECORD" error message.

• Week 8, 11/08 - 11/14
  Goals: Complete Assigned tasks. Complete testing TT # 366 MMA Interface – Phase 2. Run @MED1010(test)/1100(test)Run @MED1300(DT2) & if dups found run @MED1010/1150 else run @MED1200. Review production ABENDS, continue training with MEDS aps(screens & batch), IDMS tables(batch & CA ADS) & shop tools. Prep for future DB2/Client Server Project, reasson hired.
  Weekly Status:Successfully ran @MED1300/1310/1320, backed up DT2 DB(TSO ===>,XSUB ID(MEDSDBT,BKUPDT2)).
  Remaining test plan:
  Run @MED1150 against DT2 to remove duplicates
  Ran successfully 11/09/09 Run @MED1200 against DT2 to insert Table rows
  Ran successfully 11/09/09 ReRun @MED1300 against DT2
  ReRun @MED1150 against DT2 to remove duplicates
  ReRun @MED1200 against DT2 to load data
  Reviewed MEDSDT2 tables after above Load (@MED1200), MMA_AUDIT, MMA_TRANSACTIONS & MMA_TRANS_HIST tables. Completed testing of TT # 366 MMA Interface – Phase 2. Reviewed Code mods via TSO Compare Dialog(OK). Reviewing CAT48BGS production move, CHGMAN package MEDS004802, component name RPT1280. Added XSUB IF/ELSE to send the email distribution, this list is only for If J = '@' else send EMAIL to USERID. Created @RPT1280.DOC, required for all new jobs (CHGMAN Package MEDS004806).
  Audit/Freeze package MEDS004802 11/11/09
  Retested MMA mods, compare three tables in TEST & DT2, Audit/Freeze package MEDS004808/4791 11/12/09
  Audit/Freeze package MEDS004802 11/12/09
  Testing non production modifications (@MED2100/2120/2200), involves date aging & training duplication process.
  Successfully ran @MED1110 from package 4808, zero return code but some 1100 DSN's not deleted. Successfully tested date aging process (@MED2120/2100).
  Problems:Audited CHGMAN Package MEDS004784 SYNCH12 pointing at MED1150, SRC(deleted previous week). Various PDS in CHGMAN package contained MED1150. Solution create new package populate.
  Where do I send JCL CheckList & INFOPAC Documents? See MVS document.
  

• Week 9, 11/15 - 11/21
  Goals: Complete Assigned tasks, Tiger Tracks # 815 (RPT1280) & # 366 MMA Interface. Review production ABENDS, continue training with MEDS aps(screens & batch), IDMS tables(batch & CA ADS) & shop tools. Prep for future DB2/Client Server Project, reasson hired.
  Weekly Status:CHGMAN packages MEDS004808/4791 tested in teas, can not APPROVE until table changes (new table - MMA_AUDIT, mods to two pre-existing tables - MMA_TRANSACTIONS & MMA_TRANS_HIST) made in QA. Verify table changes in QA. As of 11/17 1600 changes not made. All tasks up to date TT # 815 (RPT1280) moved to QA (11/16) for testing, JG notified. Direct connect works as expected, job no longer has contention problems, submitted as @MED1000 PRC.
  UPDATE SHOP TRAINING, IDMS concepts Set vice Relationasl, Access modual, TBOX Options & ADSO concepts. Prepare CHGMAN packages MEDS004808/4791 for QA move (package approval, promotion & note sent to Sandra) , contingent on QA table changes. New task modifing PRC @MED1000, CHGMAN package MEDS004821 created. Base line check out of @MED1000. Component mods made, how to test package? CHGMAN Package MEDS004806 reverted following edits made;

  ++* IF J = 'Q'
  ++*    CVNAME      = 'QA'
  ++*    DEST        = 'MEDSE'
  ++*    DICT        = 'QA'
  
  DICT assignment removed for Q & A IF statements, QA wants to provide DICT parm on the command line. 
  

  Package Audited, frozen & reapproved. Reviewed CHGMAN package MEDS004821 component @MED1000, scanned JCL & compare against production code. Move CHGMAN package MEDS004821 up and test it out live. Holding off on freeze, something quirky happening with @MED1001(not being triggered-started 11/10). Assisting LW wiht Batch Cobol program, problems with SOC7(blast from the past), resolution; add is numeric COBOL display to confirm suspected numeric fields are being hosed and once confirmed visually inspect bad data.
  

• Week 10, 11/22 - 11/28
  Goals: Abbreviated (Thanksgiving) Work Week/Complete Assigned tasks, ask JG about shop EXPEDITER set ups. Review production ABENDS, continue training with MEDS aps(screens & batch), IDMS tables(batch & CA ADS) & shop tools. Prep for future DB2/Client Server Project, reasson hired.
  Weekly Status: Retested task TT # 366 MMA(loading selected HH ID #'s from TEST to DT2 tables) using new HH ID #'s, tables compared no discrepancies noted. Reran Table aging process (included production & non production code again no discrepancies noted. Reviewing MMIS JCL, plan to add XSUB to MMIS jobs, reviewing updated XSUB documentation 11/24. Audited & Froze CHGMAN job/moved to QA. Created CHGMAN package MEDS004825, component (@BUY0200) brought in & mods made. Comment out EMAIL steps MAILA/B2 & MailA/B3 & verify list DCIT_MEDS_MFMAIL-L. Corrected existing CHGMAN Packages, modifing CNTL data for consistancy i.e., title, install instructions & install CNTL data. Updated version 4 of the DDD for MMA project, made minor corrections. MEDS004821 BASELINE RIPPLED 2009/11/25 @ 10:05:13(@MED1000). Instructed to use following form is what we use for reporting status each week, M:\MMIS\MARC\Production Support.
  Problems: Admonshed by SC to dedicate 100% of time on the work assigned "it is imperative for you to commit to it for 100% of your time". Unfortunatly all tasks assigned have either been completed or are in a hold status waiting 3rd party completion(listed below), immediate supervisor JG aware of this.
  No authority to update M:\MMIS\MARC\Production Support, JG informed 11/25/09.1000.

• Week 11, 11/29 - 12/05
  Goals: Complete Assigned tasks. Review XSUB documentation, nail down application of XSUB technology to MMIS jobs & Audit/Freeze/Promote CHGMAN package MEDS004825. Review production runs for @MED1000, ignore all other ABENDS, continue training with MEDS aps(screens & batch), IDMS tables(batch & CA ADS) & shop tools. Prep for future DB2/Client Server Project, reasson hired.
  Weekly Status: Sent not to JG requested more work, reviewed MMIS jobs & XSUB documentation. This in response to new assignment. Promoted CHGMAN package MEDS004825 (@BUY0200) for QA testing. Review MMIS jobs & MEDS jobs, ID XSUB mandatory mods, use @RPT1280 as a model. Reviewed production runs for jobs @MED1000 & @BUY0200, monitoring recent job mods made. Verify following completed or in the process for job @RPT1280; INFOPAC setup & job scheduling(on demand) note sent to JG. Reviewed MMIS procedures to move modified JCL into production PDS's. Given TT 906 request CHGMAN package MEDS004830 created & populated with baseline job @ESC2200, mods made & currently testing. CHGMAN Package MEDS004802 BASELINE RIPPLED 2009/12/03 @ 11:38:27. Assisting LW with Training Data Base adds, monitoring production job runs(@RPT1280 moved into production).
  Problems: Attempting to test JCL mods to @ESC2200, input DSN for preceeding step not available, searching. Still no authority to update M:\MMIS\MARC\Production Support, will continue to pass status DSN to JG to add. Unable to generate input file for ESC2200.
  

• Week 12, 12/06 - 12/12
  Goals: Complete Assigned tasks. Review project modifications for MMA Interface – Phase 2 & Add XSUB to MMIS Jobs. Assist LW in loading Training DB & complete task TT 906. Continue training with MEDS aps(screens & batch), IDMS tables(batch & CA ADS) & shop tools. Prep for future DB2/Client Server Project, reasson hired.
  Weekly Status: Reviewed coding requirements & ID'ed special helpers, i.e., DATE IDENTIFIERS & TABLE COBOL GENERATORS. MSP tables will preceed MMA table mods. MEDS004821 BASELINE RIPPLED. 12/08 - Completed CHGMAN Packages MEDS004838 & MEDS004839 (members modified not tested). Non-Production modifications for MMA table mods moved to CHGMAN package MEDS004843. Non-Productive modifications made to @MED2100/2120/2200 (contains MMA & MSP table mods). Test table data created for MSP table tests (test to DT2). Drop Dead Date for QA MSP QA move is 12/11/09. Assigned to Exparte Project, LK point of contact for project. MEDS004844 Component RPT5000.SRC checked out(Exparte project). CHGMAN packages MEDS004838/4839 Audited & frozen, 12/11 request sent to JG to approve & send note to QA. Training with Time Sheet Reporting, SAGE(in addition to BeeLine).
  Problems: How to handle MMA MSP changes? Modify BaseLine modules for MSP table changes test &when moved to prod mod code for MMA table mods. Ran Aging (non prod code) ran @MED1100 pointing at DT2 following error; ABEND SYSTEM=000 USER=2222. Moved access mod for MED1101 to DT2 reran zero return code.
  

• Week 13, 12/13 - 12/19
  Goals: Complete Assigned tasks. Work on Exparte Project (@RPT5100 & RPT5000/5130). Finish up any loose ends for TT 753, moved to QA 12/14 AM. Continue training with MEDS aps(screens & batch), IDMS tables(batch & CA ADS) & shop tools. Prep for future DB2/Client Server Project, reasson hired.
  Weekly Status:Reviewed Notice creation, touched base with LB (pertaining to Queue Record creation). ESC2200 status inquiry sent to DBA-KC. DDD & BRD required for Exparte task (note sent to BH), Notice formats & rollup rules required. Questions, method to update IDD entities i.e. Tables RPT001CT/1ET and IDMS copy books i.e., ELD001. Notice formats for ELD001/62/067 obtain record layout for bytes 503 thru 1800. Touch base with LB about Queue Records for ELD records. LB will create IDMS copy books for QUEUE records ELD001/062/067. I will create Queue work records for fore mentioned records, they will differ in bytes 503 thru 1800(will combine all three into one - roll up) Verified roll up concepts, i.e., House Hold ID, read all HH records into a internal program array, occurs 100 times 1800 bytes. New HH ID process internal table, roll up process applied to internal array. 2nd internal program array, occurs 100 times 1 byte, w write or s suppress. Multiple occurrences in ELD records, generated by new members within a HH ID. Create Queue & Queue Work Records for ELD001, ELD062 & ELD067 via IDDM. Gaining Proficiency with IDD Menu. Created IDD entries via IDDM for (ELD062 & ELD067) Queue & QWORK records populated with Common group field.
  Problems: Queue Records created by issuing subsystem programmer, Shifting creation responswibility to DEH (contractor new to system). Queue records need to be created prior to QWORK & roll up program creation. A definite slow down. 12/18 - Waiting on LW for tech specs for the queue records, DIW until completed.
  

• Week 14, 12/20 - 12/26
  Goals: Abbreviated (Christmas) Work Week/Complete Assigned tasks. Continue coding for Exparte project, creation of Queue & QWork records compiling roll up program (RPT5110) and stand ready for any bugs discovered in MSP QA testing. Continued training IDMS tables(batch & CA ADS) & shop tools. Continued prep for DB2/Client Server Project.
  Weekly Status: Updated IDD tables RPT001CT & RPT001ET via IDDM. Reviewed Queue & QWORK records (IDD Record format). Created and code RPT5110, desk checked flow chart for RPT5110. ID'ed several questionable Roll Up Specs, will leave as black holes and send note to LW for answer. In addition need Queue record questions answered, i.e. namely verify the fields required? Reviewed status of TT # 906, DBA will get back with me after Christmas.
  

• Week 15, 12/27 - 01/02
  Goals: Abbreviated (New Years)work week/complete assigned tasks. Continue coding RPT5010, send LK note, questions pertainind to RPT5010. Resumed QA testing of MSP project, stand ready. Continue training with MEDS aps(screens & batch), IDMS tables(batch & CA ADS) & shop tools. Prep for future DB2/Client Server tasks.
  Weekly Status: Touched base with shop DBA(KC) about additional discrepancies found in @ESC2200, unnecessary steps as soon as steps id will make changes. Modified program RPT5010, neither LW or LB available will have to wing QUEUE record (001/062/067) changes. 12/29 Questions pertaining to RPT5110 sent to LK, ansers received, reviewing code flow for RPT5110. Not sure of which Bene to add to ELD001 QWORK record. Assistance needed with Queue/QWORK record generation, SME's required (LK or LB), both out till next year. Created new CHGMAN packages for MMA project, MEDS004872 & MEDS004873. Waiting for MSP move(01/03) to production before baseLine move.
  Problems: Created Queue records for 062, 067 added MBR occurences, High level qualifier ELD062/ELD067 not appended to Queue Records copy books, members created via IDDM. Resolved IDDM has feature to add High level qualifier to IDD records. 12/30 - BeeLine Server down/Server back up 10:34. Do all fields added to Queue records via IDDM have to exist in the Data Dictionary, if so what is the procedure to add new fiellds i.e. How to designate for Approved & Disapproved fields?

          DES-LONG Two Occurrences 
          DES-REASON-80
  

  Above fields must be entered into Data Dictionary by LB, TH or JG.
  

• Week 16, 01/03 - 01/09
  Goals: Complete Assigned tasks. Clean up Exparte Queue/QWORK records for ELD001/062/067. Review new changes to @ESC2000. Move MMA table mods back into @MED* & MED* components, retest MMA mods. Resolve Exparte questions, Finalized Queue/QWORK records, ELD010 missing MBR ID fld. Continue training with MEDS aps(screens & batch), IDMS tables(batch & CA ADS) & shop tools. Prep for future DB2/Client Server tasks.
  Weekly Status: Reviewing MSP packages in leu of Table changes, prod move scheduled for 1/5/10. Exparte holdup Queue & QWORK record confirmation. Packages retested, Packages (MEDS004838/MEDS004839) reverted & install dates modified. Created CHGMAN package MEDS004877 for @ESC2200 - Modify e-mail addresses in JCL. Compared CHGMAN component & BaseLine version. CHGMAN package MEDS004877 Audited & Frozen, ready for move. MSP packages will migrated next week. New Data Dictionary adds completed for Exparte Queue/QWORK records 1/7. RPT5110 unanswered questions sent to LK * CCed to BH, waiting on this & new Data Dictionary entries.
  01/06 - Kick Off meeting for Exparte Project. Between MSP & Exparte spent up to six hours this week at meetings - testament to endurance.
  Problems: ABEND in QA.

  QA promoted pkgs 4838 and 4839 to QA and UT. When running MED1100 (QMED1100 J001468), I abended. Lyall, 
  Gloria and I looked at it and the abend indicates: 
  ERROR ON FETCH MMA_TRN_CURSOR
  SQLCODE  =        -4
  SQLCERC  =      5202
  SQLCLNO  =       256
  SQLSTATE = 42611
  DB005000 T230 C0M324: Message for module MED1101, SQL statement number : 168.
  DB005202 T230 C-4M324: Number of input and output columns are not the same
  CEE3250C The system or user abend U2222 R=NULL     was issued.
  Answer:Code change involved MSP tables not MMA, verified that the package code & JCL had the correct 
  file size for pre mma_transactions table. So that leaves the problem with the Data Base itself. 
  The Accept Tables 
  or QA tables pointing to MMA mods or package code/JCL is itself pointing to wrong tables. Again I 
  need to know when you ran job MED1010, and to ask you to run it all from the top MED1010.  
  
  IOF Problem Prefix pointing at wrong prefix.
  Resolution:
  Get Profile DSN, 3.4 logon i.e. HEUNGER
  HEUNGER.ISPF.PROFILE
  Go to native TSO 
  Delete Profile DSN in native TSO del 'HEUNGER.ISPF.PROFILE'
  Close down TSO
  Restart TSO,  HEUNGER.ISPF.PROFILE reallocated, problem resolved.
   
  

• Week 17, 01/10 - 01/17
  Goals: Complete Assigned tasks. Resolve MSP QA Abends1/07. Complete RPT5110, prepare test data. Retrofit MMA table mods back into current production moduals, retest MMA mods. Continue training with MEDS aps(screens & batch), IDMS tables(batch & CA ADS) & shop tools. Prep for future DB2/Client Server tasks.
  Weekly Status: Status note sent to BH, unanswered questions down to 3, RPT5110 getting more complex, whoopee. Reverted changed implementation date for package MEDS004877, package refroazen &approval request sent to JG. Currently waiting on JG for addition of new Data Dictionary items & answer to teck questions for Xparte project. Note from SC "You are only doing one status report which is the one that you do for us. Please incorporate Blane’s into the one that you complete for us." contradictory to BH Status report.
  Get Xpediter(Batch) set up, will be needed for Exparte(RPT5110) testing. Request for Data Dictionary Group adds sent to JG 1/12. Data Dictionary Adds completed, QWORK Records ELD062/067 completed, RPT5110 still a complicated mess but essentially error free. Create test input for RPT5110 & set up XPEDITER run. Unanswered questions for RPT5110 pertaining to Roll Up senarios still need to be addressed & test input DSN needs to be created. Shifting attention to RPT5000, RPT5110 requires resolution of questions/actions prior to its successful completion. Potential problem ELD001 QWORK record exceeds 1800 byte size, designed size = 1910 bytes, note sent to Particapants. File size problem must be resolved prior to successful compile of programs RPT5000 & RPT5110. RPT5110 clean compile, desk check & creation of test ibnput data. 12/14 Asked KB about status of TT # 906.
  Problems: ABEND in QA for packages MEDS004838 & MEDS004839.

  Package MEDS004838 & MEDS004839 demoted from QA, I will verify MMA File sizes for JCL/Source code & 
  Data Dictionary Records, if correct no idea. Problem with Data Dictionary, DD pointing at MMA table changes.

  Used SNAP Commands to create modified DD. Commented out effected table Data Dictionary includes & replaced with modified data. Due to DB difference in TEST & QA unable to test, moving CHGMAN package into QA.

• Week 18, 01/18 - 01/24
  Goals: Complete Assigned tasks. Still waiting for resolution of QA/Abends prior to moving MMA table mods back into @MED* & MED* components. Continue training with MEDS aps(screens & batch), IDMS tables(batch & CA ADS) & shop tools. Prep for future DB2/Client Server tasks.
  Weekly Status: Waiting for QA-MSP tests, resolution include modified table Data Dictionary definition vice pullingf in dd defs from the system, if this works will replace mods with system includes when MMA mods go into production. Check status of following TT:
  TT # 1016 @ESC2200 and TT # 906 (@ESC2200). Note sent to JG (status inquiry) 01/16. Create Expediter JCL to run RPT5110 & RPT5000 (CHGMAN modified code).
  QA-MSP tested out, zero return code. Reviewing Exparte Roll Up specks & examples. Create & ran JCL running RPT5110, no ELD001/062/067 records to process. Established Expediter defaults. Attempted to run job RPT5100 Expediter, Expediter source not found.
  Problems: Created new IDMS Program getting USER=2222 when running RPT5110, RPT5110: USING DICTIONARY MEDSTEST Module RPT5110 not found.

  Solution:
  Run TBOX option 16
  Move Access Method to CHGMAN Package.
  Ran job RPT5000, executing program RPT5110. 
  Zero Return code, no processing.  
  

  How to get the CHGMAN Source into the DDIO?
  In CHGMAN set STAGE: USER OPTIONS Screen as follows; ABENDAID OPTION ,===>,Y,

• Week 19, 01/25 - 01/31
  Goals: Status of MSP QA testing, TT # 1016 & TT # 906 find out and complete. Complete Assigned tasks. After MSP mods moved to prod, back fit MMA mods into prod code/JCL. Move MMA table mods back into @MED* & MED* components, retest MMA mods. Continue training with MEDS aps(screens & batch), IDMS tables(batch & CA ADS) & shop tools. Prep for future DB2/Client Server tasks.
  Weekly Status:XPediter set up complete, switch to populate DDIO file with CHGMAN component set in STAGE: USER OPTIONS screen. Relayed Status of RPT5110 & RPT5000 with SG (1/25), Scheduled for online training to create test data this week. Setup XPediter for RPT5110 via Batch mode, stepped through RPT5110. Created EXPARTE testing senarios (MVS DSN anomalies, expected Roll Up scenarios & data/program anomalies), current RPT5110 problems/questions in third party hands. MSP Package mods QA testing in progress.
  Problems: QA Testing of MSP packages with following errors:

  Access module MED1200 is not recreatable. See job QMED1200 (J014377). 
  Also,  we’re still getting the same error (MMA_Cursor) when running MED1100 from the CHGMAN pkg.
  Possible Solution(s): Instead of Select # for the two tables use select actual table fields, 
  as far as Access mod problem KB queried. Waiting on SD to Revert packages & KB's reply. QA used 
  earlier DB version.
  01/27 - MSP QA running MED1200 in ACPT, abended file attribute mismatch was detected. 
  File VALID-MMA-TRN-FILE in program 4614 & the file specified in the ASSIGN clause had a record length of 5353.
  MMA_TRANSACTIONS/MMA_TRANS_HIST had modified copy books vice production, corrected 15 miniutes later.
    
  

• Week 20, 02/01 - 02/07
  Goals: Last week, clean up files(double deleting all documents generated during course of contract) & contact unemployment & consulting contacts.
  Weekly Status: Completed
  

Work Area: 
Table mods need to be moved into QA DataBase.
Prior to CHGMAN promotion create new access MODS to capture latest table changes. 
11-23 Retested with new HH ID #'s, extracted from TEST tables & loaded to DT2 tables.
MSP Interfaces will have to be moved in 1st, then MMA will be moved int those changes.
Because of MSP table modifications MAA table mods will have to be reinstalled & tested.
12/08/09 - Non-Production modifications for MMA table mods moved to CHGMAN package MEDS004843.
12/31/09 - Created new CHGMAN packages for MMA project, MEDS004872 & MEDS004873. 
Waiting for MSP move(01/03) to production before baseLine move.

Access module MED1200 is not recreatable. See job QMED1200 (J014377). 
Also,  we’re still getting the same error (MMA_Cursor) when running MED1100 from the CHGMAN pkg.
Possible Solution(s): Instead of Select # for the two tables use select actual table fields, 
as far as Access mod problem KB queried. 
Attempt to create Access module for MED1200 in test via TBOX 16 & end up with two error messages;
"Too many input values in insert operation".
Makes no sence mods already in test.
QA used earlier DB version.

Work Area: 
12/03/09 - CHGMAN Package MEDS004830 created & populated with baseline job @ESC2200.
12/04/09 - mods made & currently testing, Attempting to test JCL mods to @ESC2200,
input DSN for preceeding step ESC2300 not available.
12/21/09 - Following Note from KC:
12/29/09 - Per KC unnecessary steps in job as soon as steps id will make changes. 

"After looking at the production JCL, I see several things that will need to be changed.  
I’d be glad to look at it and make suggestions, but probably not today."
Will follow up 12/28.
01/07/09 - Still waiting on above corrections & OK to test on the fly (Freeze without running job @ESC2200).
01/14/10 - Still waiting, spoke to KB.  

Work Area: 
Questions 
1. IDD component updates i.e. tables (RPT001CT/1ET) & IDMS copy books (ELD001 etc). 
A1:Go to MEDS Test System
   Enter IDD
   Enter DIS REC ELD001-QUEUE-RECORD AS SYNTAX
   Change ADD ??????????????????????????
A2:Go to MEDS Test System
   Enter IDDM
Taken to IDD Menu, see notice document for short cuts.
A3:TSO Snap & sub method
   Run ‘MEDS.TEST.JCL(LWADDQUE)’ and the queue record syntax as ‘MEDS.TEST.JCL(LWQUEREC)’.
   To get the record layout you need, you can use TBOX to display it in a printout, then SNAP 
   the printout to a PDS member.  
   You can probably snap directly to an 80 byte dataset without going through a 133 byte dataset.
 

12/10/09 - CHGMAN package MEDS004844 built/baseline(@RPT5000).
12/15/09 - CHGMAN package new program RPT5010 modeled after RPT5030.
12/18/09 - Creation of Queue Records shifted to DEH, Waiting on LW for tech specs for the queue records, 
DIW until completed. Created QUEUE/QWORK for ELD062 & ELD062 records.
12/21/09 - Updated IDD tables RPT001CT & RPT001ET via IDDM. Reviewed Queue & QWORK records (IDD Record format).
12/22/09 - Desk checked flow chart for RPT5110. ID'ed several questionable Roll Up Specs, will leave as black holes 
and send note to LW for answer. In addition need Queue record questions answered,
i.e. namely verify the fields required? 
12/29/06 - Modified program RPT5010, neither LW or LB available will have to wing QUEUE record (001/062/067) changes. 
Questions pertaining to RPT5110 sent to LK, ansers received, reviewing code flow for RPT5110.
Created Queue records for 062, 067 added MBR occurences, High level qualifier ELD062/ELD067 not appended 
to Queue Records copy books, members created via IDDM. RESOLVED.
12/30/09 - Not sure of which Bene to add to ELD001 QWORK record. Correct high level qualifier appended to QWORK records.
12/31/09 - Create list of new fields for Queue/QWORK's ELD001/062/067 & send to LB, no action expected until next week.
01/06/10 - Queue & QWORK created for ELD001/062/067.
01/07/10 - Waiting on JG to create Data Dict entries and answer to RPT5110 questions. 
01/08/10 - Unanswered Questions sent to LK, waiting on this and Data Dictionary entries. 
01/12/10 - Request for Data Dictionary Group adds sent to JG. QWORK Records ELD062/067 completed, 
RPT5110 still a complicated mess but essentially error free. 
01/13/10 - Shifting attention to RPT5000, RPT5110 requires resolution of questions/actions prior to its successful.
Potential problem ELD001 QWORK record exceeds 1800 byte size, designed size = 1910 bytes, note sent to Participants. 
01/14/10 - Clean compile of RPT5110 (Desk Check required), review test data creation. 
01/20/10 - Create & ran JCL running RPT5110, no ELD001/062/067 records to process.
Established Expediter defaults. Attempted to run job RPT5100 Expediter, Expediter source not found. 
01/27/10 - Ran eXPediter with RPT5110, no real processing, created EXPARTE testing senarios.  

Work Area: 
Not yet assigned currently reviewing MMIS jobs & mandatory XSUB requirements. 
This task similar to TT # 815 (@RPT1280), need to ID jobs that will be modified. 
Questions 
1. How will changes be implemented?
Possibility via CHGMAN into new Production PDS & archiving old PDS.
2. Review XSUB standards.
3. Create test plan.
4. ID jobs to be converted.

Shop Tools/Procedures:

Procedure to scan JCL execute modified JCL
   Enter XTSO Command Line 
   Sub job from XTSO with \S (JCL Scan).
   Select job, won’t execute. 
   EDIT job Command line.
   Edit Job, minimum Commenmt out scan & remove comma.
 
IDDM Dialog Screen
   Enter from MEDS Test System screen.
   Quick method to access IDD objects i.e. tables & IDD Records (copy books). 
   For additional details see Steps to Create a New Notice document.

   Do all fields added to Queue records via IDDM have to exist in the Data Dictionary, 
   if so what is the procedure to add new fiellds i.e. How to designate for  Approved & Disapproved fields?
        DES-LONG Two Occurrences 
        DES-REASON-80

Answer: Above fields must be entered into Data Dictionary by LB, TH or JG.

SNAP
TSO IOF:
SD command Line
1.	SNAP OF PRINT FILE OR DSN
A.	PRINT FILE GOTO TSO 
B.	IOF JOB LIST MENU 
C.	TYPE SD ON COMMAND LINE 
D.	FILL OUT INFORMATION 
                  -------- IOF Snap Data Set Options ---------
            COMMAND ===>,
                                 
             COMMAND ===>,
                                                   ,Job: HEUNGER(J00454
 ,DSNAME       ,===>,test.data

 ,RECFM        ,===>,fB           ,Record format
 ,LRECL        ,===>,133          ,Logical record length
 ,BLKSIZE      ,===>,1330         ,Block size
 ,PRIMARY      ,===>,20           ,Primary allocation   (in tracks)
 ,SECONDARY    ,===>,20           ,Secondary allocation (in tracks)

Create DSN 

ENTER

COMMAND ===>,snap 9999
EDIT      ,
******,****
((10  ,
000002,
000003,
000004,

000493,      271 //SYSPRINT  DD SYSOUT=*
000494,      272 //ABNLIGNR  DD DUMMY
000495,      273 //SYSUT1    DD DISP=(OLD,DELETE),DSN=&&LIST
000496,      274 //SYSUT3    DD UNIT=SYSDA,SPACE=(CYL,(5,5))
((0497,      275 //SYSUT4    DD UNIT=SYSDA,SPACE=(CYL,(5,5))
******,**************************** Bottom of Data ***************

000001,//HEUNGER JOB (B2803399,ELAN,,999),'CHGMAN',TIME=(1,4),CLASS=K
000002,/*JOBPARM Q=H
000003,/*CLEMPARM IOFUSER=HEUNGER
000004,//*
000005,//*
000006,//* )IM CMN$$JCD
000007,//*
000008,//*  JOB REQUESTED BY HEUNGER ON 2010/01/15 AT 09:34
000009,//*
000010,/*JOBPARM LOCK=MEDTDML
000011,//JOBLIB   DD DSN=CMNZMFP.R534.CUSTOM.LOAD,DISP=SHR
000012,//          DD DSN=CMNZMFP.R534.LOAD,DISP=SHR
000013,//          DD DSN=SERENA.SERCOMC.V5R4M8.LOAD,DISP=SHR

Done

 


EXPEDITER
Batch Required Setup:
1. Create DDIO File, CHGMAN STAGE: USER OPTIONS screen activate DDIO creation.
2. Set up Defaults, LoadLibs, DDIO etc.
3. Point XP at JCL.
4. Designate XP step, "I" at XP step.
5. Enter run on the command line.
6. Enjoy the ride.
 

ViewDirect - HHS (MEDS Test) ADSO Screen Testing
ADSO Components & equivalent COBOL objects
•	ADSO dialogs and their associated processes are converted to CICS command level COBOL programs 
       (or the equivalent in UNIKIX and MicroFocus environments) 
•	Work records are converted to COBOL copy members 
•	OLM maps are converted to BMS or SDF maps 
•	MAP work records are converted to COBOL copy members 
•	IDD Edit and Code tables are converted to COBOL copy members 
•	INCLUDE modules are converted to COBOL copy members 
•	ADSA tables are converted into COBOL control programs 

Other ADSO COBOL considerations
Customization Options:
•	Renaming of dialogs (programs), maps, and other components 
•	Whether COBOL PERFORM statements are to be generated as a PERFORM section name or as a PERFORM 
        paragraph name THRU paragraphname-EXIT 
•	Whether COBOL MOVE statements should emulate ADSO rounding or be truncated 
•	The type of library control cards to be used for COBOL programs, copy members and generated 
        maps (e.g. IEBUPDTE, CA-Librarian, CA-Panvalet, etc.) 

Online training to create test data.

MEDS Test System 
  MEDS Gives you the capability to enter dialoge with screens. 
  OCF to enter dynamic SQL Region (ability to execute table queries dynamically).
  
Reviewing current production table data 
  Run job MEDS.TEST.JCL(CAT48TS2), insert SQL in job.
 
Printing JCL & source code, even ChangeMan. 
  TSO edit PRT command line, full dsn in ''.
 
TBOX
  Print Member or,IDD,Process Module
  Print Table Definition(s) - Portrait Mode
  View Table Elements List
  View Messages List
  Creating/Updting Access Module Syntax for Changeman option 16 
  Convert Record to COBOL Format
  Option 4,  Viewing Data Dictionary Elements List. 
  Option 16, Creation of new ACCESS Modules (think of it as a DB2 Precompile). 
  Option 17, Move ACC from one region to another i.e. SAS pointing from test to DT2  
  Option 23, create Culprit Code for tables

ChangeMan Required Sequence of Events
  Create Package
  Populate & edit package components
  Audit Package
  Freeze Package
  Approve Package
  Promote Package to next QA level (10).
  Now in QA's hand.

Notice Creation
  Part of Exparte project, expand as needed.

Viewing Current Production Jobs
  MEDSIOF Command Line

Reviewing current production job output
  Go to ViewDirect - HHS (MEDS Prod) INFOPAC ID:......,meds
  Now enter job name i.e. @ARS5000

Own JCL
  IOF Command Line

TSO PROFILEs
....DATA (FIXED - 10)....RECOVERY ON....NUMBER OFF...................
....CAPS OFF....HEX OFF....NULLS ON STD....TABS OFF..................
....AUTOSAVE OFF PROMPT....AUTONUM OFF....AUTOLIST OFF....STATS OFF..
....PROFILE UNLOCK....IMACRO NONE....PACK OFF....NOTE ON.............
....HILITE OFF CURSOR FIND...........................................

NUMBER OFF unable to enter ten digit numbers, NUMBER ON loose data when entering ten digit numbers.

Production Jobs (old) 

Pointing JOBs at CHGMAN packages

Point to the Changeman JCL library in your XSUB command.  It would look like XSUB 
‘MEDS.CMNSTAGE.MEDS.#009999.JCL(@MED1010)’ followed by the parms.  9999 is your package number.


JCL
New Jobs:
Create CHGMAN Package containing DOC, AUDIT & Freeze.
Create CHGMAN Package for JCL.
 
Submitting job from IOF.
Select job, type edit on the command line, brings up JCl. 
SUB Command line.


XSUB

000001,++*XSUB
000002,++* DECLARE CCYY_C   INTEGER    INTERNAL = SYSYR
000003,++* DECLARE CCYY_N   INTEGER    INTERNAL
000004,++* CCYY_N = CCYY_C + 1
000005,++* DECLARE N_BYDATE STRING CMDLINE CAPS TRIM = '2009-01-01'
000006,++* DECLARE N_EYDATE STRING CMDLINE CAPS TRIM = '2009-12-31'
000007,++* DECLARE N_NBYDTE STRING CMDLINE CAPS TRIM = '2010-01-01'
000008,++* DECLARE N_NEYDTE STRING CMDLINE CAPS TRIM = '2010-12-31'
000009,//CAT48TST JOB (B2803399,&,,250),'&',
000010,//         MSGLEVEL=(1,1),TIME=(5,5)
000011,/*JOBPARM Q=H
000012,//********************************************************************
000013,//ISD1 OUTPUT DEST=DISD,DEFAULT=YES,JESDS=ALL
000014,//********************************************************************
000015,++* IMBED 'HHSMMIS.PROD.JCL(@COMMENT)'
000016,//IDCAMS    EXEC PGM=IDCAMS
000017,//*
000018,//SYSIN    DD  *
...
...
...

//SYSIPT   DD *
SET OPTIONS OUTPUT TO ELGOUT1;
CONNECT TO MEDSPROD;
SET TRANSACTION TRANSIENT READ;
SET SESSION CURRENT SCHEMA MEDSCHMA;
SELECT
    MEH_NUM_MEMBER_ID AS E
    FROM MEDSCHMA.MBR_ELIG_HISTORY
   WHERE MEH_NUM_PYMT_CAT = '48'
     AND MEH_DTE_EFFECTIVE_ELIG <= '&<CCYY_N>-12-31'
     AND (MEH_DTE_INELIG IS NULL
      OR  MEH_DTE_INELIG > '&<CCYY_C>-12-31')
...
...
...
SELECT
    MEH_NUM_MEMBER_ID AS E
    FROM MEDSCHMA.MBR_ELIG_HISTORY
   WHERE MEH_NUM_PYMT_CAT = '48'
     AND MEH_DTE_EFFECTIVE_ELIG <= '2010-12-31'
     AND (MEH_DTE_INELIG IS NULL
      OR  MEH_DTE_INELIG > '2009-12-31')
; 

Building SQL preds based on System Date params
 
000001,++*XSUB
000002,++* DECLARE EDMD_C   STRING TRIM CMDLINE = '  '
000003,++* DECLARE ED_M     STRING TRIM CMDLINE = '  '
000004,++* DECLARE ED_D     STRING TRIM CMDLINE = '  '
000005,++* DECLARE EDMD     STRING TRIM CMDLINE = '  '
000006,++* DECLARE CCYY_C   INTEGER    INTERNAL = SYSYR
000007,++* DECLARE CCYY_N   INTEGER    INTERNAL
000008,++* DECLARE MM_C     INTEGER    INTERNAL = SYSMON#
000009,++* CCYY_N = CCYY_C + 1
000010,++* CCYY_N = CCYY_C + 1
000011,++* IF MM_C = 10
000012,++*    ED_M = '01'
000013,++*    ED_D = '01'
000014,++* ELSE
000015,++*    ED_M = '10'
000016,++*    ED_D = '01'
000017,++* ENDIF
000018,++* EDMD = '-&<ED_M>-&<ED_D>'
000019,//CAT48TST JOB (B2803399,&,,250),'&',000041,++**
…
…
…
000062,//SYSIPT   DD *
000063,SET OPTIONS OUTPUT TO ELGOUT1;
000064,CONNECT TO MEDSPROD;
000065,SET TRANSACTION TRANSIENT READ;
000066,SET SESSION CURRENT SCHEMA MEDSCHMA;
000067,SELECT
000068,    MEH_NUM_MEMBER_ID AS E
000069,    FROM MEDSCHMA.MBR_ELIG_HISTORY
000070,   WHERE MEH_NUM_PYMT_CAT = '48'
000071,     AND MEH_DTE_EFFECTIVE_ELIG <= '&<CCYY_N>&<EDMD>'
000072,     AND (MEH_DTE_INELIG IS NULL
000073,      OR  MEH_DTE_INELIG > '&<CCYY_C>-12-31')
000074,;
…
…
…

SET OPTIONS OUTPUT TO ELGOUT1;
Status = 0        SQLSTATE = 00000
CONNECT TO MEDSPROD;
Status = 0        SQLSTATE = 00000
SET TRANSACTION TRANSIENT READ;
Status = 0        SQLSTATE = 00000
SET SESSION CURRENT SCHEMA MEDSCHMA;
Status = 0        SQLSTATE = 00000
SELECT
    MEH_NUM_MEMBER_ID AS E
    FROM MEDSCHMA.MBR_ELIG_HISTORY
   WHERE MEH_NUM_PYMT_CAT = '48'
     AND MEH_DTE_EFFECTIVE_ELIG <= '2010-01-01'
     AND (MEH_DTE_INELIG IS NULL
      OR  MEH_DTE_INELIG > '2009-12-31')
;

SORT
000001,++*XSUB
000002,++* DECLARE CCYY_C   INTEGER    INTERNAL = SYSYR
000003,++* DECLARE CCYY_N   INTEGER    INTERNAL
000004,++* DECLARE DATE_C   STRING TRIM CMDLINE = SYSDATE
000005,++* CCYY_N = CCYY_C + 1
000006,//CAT48BGS JOB (B2803399,&,,250),'&',
000007,//         MSGLEVEL=(1,1),TIME=(20,5)
000008,/*JOBPARM Q=H
000009,//********************************************************************
000010,//ISD1 OUTPUT DEST=DISD,DEFAULT=YES,JESDS=ALL
000011,//********************************************************************
000012,++* IMBED 'HHSMMIS.PROD.JCL(@COMMENT)'
000013,//IDCAMS    EXEC PGM=IDCAMS
000014,//*
...
...
...
000302,//SORTELG   EXEC PGM=SORT,COND=(0,NE)
000303,/*
000304,//SORTIN   DD DSN=TEMP.CAT48ELG.REFORMAT,DISP=SHR
000305,//*
000306,//SORTOF1  DD DSN=&&HDRCWRK,
000307,//            DISP=(NEW,PASS,DELETE),
000308,//            UNIT=(DISK),
000309,//            SPACE=(CYL,(100,100),RLSE)
000310,//*
000311,//SYSIN  DD  *
000312, SORT FIELDS=COPY,DYNALLOC
000313, OUTFIL FILES=1,INCLUDE=ALL,
000314,        HEADER1=(1:'RUN DATE: & '),
000315,        HEADER2=(1:'                    '),
000316,        TRAILER1=(1:'BENEFITS FOR CALENDAR YEAR: &'),NODETAIL
000317, END
000318,/*
000319,//SORTMSG   DD SYSOUT=(,)
000320,//SORTELG   EXEC PGM=SORT,PARM='RC16=ABE',COND=(0,NE)
000321,/*
000322,//SORTIN   DD DSN=TEMP.CAT48ELG.REFORMAT,DISP=SHR
000323,//*
000324,//SORTOF1  DD DSN=&&ELGWORK,
000325,//            DISP=(NEW,PASS,DELETE),
000326,//            UNIT=(DISK),
000327,//            SPACE=(CYL,(100,100),RLSE)
000328,//*
000329,//SYSIN  DD  *
000330, SORT FIELDS=COPY,DYNALLOC
000331, OUTFIL FILES=1,INCLUDE=ALL,
000332,        TRAILER1=(1:'PCAT 48 ELIGIBLES          ',30:COUNT),NODETAIL
000333, END
000334,/*
000335,//SORTMSG   DD SYSOUT=(,)
000336,//SORTAPL   EXEC PGM=SORT,PARM='RC16=ABE',COND=(0,NE)
000337,/*
000338,//SORTIN   DD DSN=TEMP.CAT48APL.REFORMAT,DISP=SHR
000339,//*000340,//SORTOF1  DD DSN=&&APLWORK,
000341,//            DISP=(NEW,PASS,DELETE),
000342,//            UNIT=(DISK),
000343,//            SPACE=(CYL,(100,100),RLSE)
000344,//*
000345,//SYSIN  DD  *
000346, SORT FIELDS=COPY,DYNALLOC
000347, OUTFIL FILES=1,INCLUDE=ALL,
000348,        TRAILER1=(1:'PCAT 48 APPLICANTS PENDING ',30:COUNT),NODETAIL
000349, END
000350,/*
000351,//SORTMSG   DD SYSOUT=(,)
000352,//*-------------------------------------------------------------------*
000353,//* END OF THE YEAR ADDITIONS
000354,//* CREATE TEMP FILES FOR REPORT PROCESSING - ONE WITH PCAT 48 ELIGIBLES
000355,//* COUNT AND ONE WITH PCAT 48 PENDING BUDGET GROUPS/APPLICANTS COUNT
000356,//**--------------------------------------------------------------------
000357,//SORTELG   EXEC PGM=SORT,COND=(0,NE)
000358,/*
000359,//SORTIN   DD DSN=TEMP.CAT48ELA.REFORMAT,DISP=SHR
000360,//*
000361,//SORTOF1  DD DSN=&&HDRNWRK,
000362,//            DISP=(NEW,PASS,DELETE),
000363,//            UNIT=(DISK),
000364,//            SPACE=(CYL,(100,100),RLSE)
000365,//*
000366,//SYSIN  DD  *
000367, SORT FIELDS=COPY,DYNALLOC
000368, OUTFIL FILES=1,INCLUDE=ALL,
000369,        HEADER1=(1:'                    '),
000370,        TRAILER1=(1:'BENEFITS FOR CALENDAR YEAR: &'),NODETAIL
000371, END
000372,/*
000373,//SORTMSG   DD SYSOUT=(,)
000374,//SORTELG   EXEC PGM=SORT,COND=(0,NE)
000375,/*
000376,//SORTIN   DD DSN=TEMP.CAT48ELA.REFORMAT,DISP=SHR
000359,//SORTIN   DD DSN=TEMP.CAT48ELA.REFORMAT,DISP=SHR
000360,//*
000361,//SORTOF1  DD DSN=&&HDRNWRK,
000362,//            DISP=(NEW,PASS,DELETE),
000363,//            UNIT=(DISK),
000364,//            SPACE=(CYL,(100,100),RLSE)
000365,//*
000366,//SYSIN  DD  *
000367, SORT FIELDS=COPY,DYNALLOC
000368, OUTFIL FILES=1,INCLUDE=ALL,
000369,        HEADER1=(1:'                    '),
000370,        TRAILER1=(1:'BENEFITS FOR CALENDAR YEAR: &'),NODETAIL
000371, END
000372,/*
000373,//SORTMSG   DD SYSOUT=(,)
000374,//SORTELG   EXEC PGM=SORT,COND=(0,NE)
000375,/*
000376,//SORTIN   DD DSN=TEMP.CAT48ELA.REFORMAT,DISP=SHR
...
...
...
******************************** Top of Data *****************************
 SYNCSORT FOR Z/OS  1.3.2.0R    U.S. PATENTS: 4210961, 5117495   (C) 2007
                                                       z/OS   1.9.0
 SYNCSORT LICENSED FOR CPU SERIAL NUMBER 129A4, MODEL 2098 O02
 SYSIN :
  SORT FIELDS=COPY,DYNALLOC
  OUTFIL FILES=1,INCLUDE=ALL,
         HEADER1=(1:'RUN DATE: 10/19/09 '),
         HEADER2=(1:'                    '),
         TRAILER1=(1:'BENEFITS FOR CALENDAR YEAR: 2009'),NODETAIL
  END
 WER276B  SYSDIAG= 6664920, 7286138, 7286138, 3223331
 WER164B  6,904K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
 WER164B     0 BYTES RESERVE REQUESTED, 2,306,849 BYTES USED
...
...
...
SYNCSORT FOR Z/OS  1.3.2.0R    U.S. PATENTS: 4210961, 5117495   (C)
                                                      z/OS   1.9.0
SYNCSORT LICENSED FOR CPU SERIAL NUMBER 129A4, MODEL 2098 O02
SYSIN :
 SORT FIELDS=COPY,DYNALLOC
 OUTFIL FILES=1,INCLUDE=ALL,
        TRAILER1=(1:'PCAT 48 ELIGIBLES          ',30:COUNT),NODETAIL
 END
WER276B  SYSDIAG= 6664920, 7286138, 7286138, 3223331
...
...
...
RUN DATE: 10/19/09

BENEFITS FOR CALENDAR YEAR: 2009
PCAT 48 ELIGIBLES                5439
PCAT 48 APPLICANTS PENDING         28

BENEFITS FOR CALENDAR YEAR: 2010
PCAT 48 ELIGIBLES                 678
PCAT 48 APPLICANTS PENDING       2624

SoftWare Linkage Sites:

IBM JCL Pub/ IBM OS 390 Pub/Microsoft Server/TekSystems On Line Training/Java Refresher On-line Training/
Clemson Catch all site/MVS Quick Fix/ Java Articles/ HTML Fundamentals/ Java Coding Techniques/
Additional Java Coding Samples/ HTML Colors/ MySQL Work Bench/ Getting Started with SQL Anywhere 11/
full list of SQL Anywhere on-demand presentationsrs/ COBOL File Status Sample Code/ COBOL File Status Codes/