Mainframe Conversion Using the Vancouver Utilities by Owen
Mainframe Conversion • • • Using the Vancouver Utilities by Owen Townsend UV Software Inc. Partner with Tx. MQ Inc. Partner with Travancore www. uvsoftware. ca
UV Software Inc. • General purpose data utilities for unix/linux • Mainframe Migration Tools, to convert JCL, COBOL, & Data to unix/linux/Windows/SFU • Converted over 30 mainframes since 1993 • HQ Vancouver Canada • President Owen Townsend, owen@uvsoftware. ca www. uvsoftware. ca
Tx. MQ – Partner with UV Software • • • IBM Business Partner in US & Canada Servicing fortune 1000 clients since 1991 Mainframe sales, installation, training Assisting migrations to open systems Offices in Amherst NY & Markham ON Contact scott@txmq. com www. uvsoftware. ca
Travancore Software Solutions • Onshore & offshore IT software services • Mainframe support, web enabling, etc • Partnering with UV Software & Tx. MQ – For Mainframe migrations to open systems • HQ Trivandrum, Kerala, India • Contact Shyam Subramanyam – Shyam@travancore. net www. uvsoftware. ca
Why Migrate to Unix/Linux ? • Increase Performance • Reduce Cost: – Linux systems less expensive than proprietary Mainframes • Reduce Risk: – migrating existing systems is less risky than rewrites or new package implementations • Preserve legacy logic: – Proven & customized over many years www. uvsoftware. ca
Vancouver Utilities Contents • • JCL conversion to Korn shell scripts COBOL porting to Micro Focus COBOL Data conversion from EBCDIC to ASCII General purpose DATA utilities for unix www. uvsoftware. ca
Conversion Methods • Unix, Linux, or Windows/SFU environment • Mass conversion of all files in directories • Scripts convert thousands of files quickly – 1000 JCLs (2 minutes) – 250 programs (3 minutes) – Script to compile 250 programs (2 minutes) – Generate 200 data conversion jobs (1 minute) – Execute 200 file conversions (5 gig, 1 hour) www. uvsoftware. ca
JCL Conversion - Highlights • • • DDN/DSN converted to Export DDN=DSN SORT/SYNCSORT converted to ‘uvsort’ IEBGENER/IDCAMS converted to ‘uvcp’ GDG files converted to ksh functions Console logging Micro Focus COBOL animation made easy Replacements for Ditto, Dyl 280, Easytrieve $RUNDATA/$RUNLIBS testing/production Laser scripts, 132 cols x 66 lines on 8½ x 11 www. uvsoftware. ca
JCL Conversion Example #1 • sample JCL & script (1 step COBOL) • Korn shell script equivalent www. uvsoftware. ca
JCL Conversion Ex#2 (SORT) • sample JCL & script (SORT/uvsort) • Ksh script (uvsort + cobol) www. uvsoftware. ca
Sync. Sort conversion to ‘uvsort’ • Syncsort functionality at lower cost • INCLUDEs, OMITs, SUMs, OUTREC, etc. • Uvsort sels, dels, sums, mvcs, etc. • sample INCLUDE AND/OR conditions www. uvsoftware. ca
JCL Conversion #3 (GDG files) • GDG files supported by ksh functions • exportgen 0, exportgen 1, exportgenp • sample JCL & script with GDG files • Korn shell script equivalent www. uvsoftware. ca
IEBGENER & IDCAMS • IEBGENER converted to ‘uvcp’ • IDCAMS REPRO converted to ‘uvcp’ • IEBGENER & IDCAMS JCL sample • Korn shell script equivalent www. uvsoftware. ca
COBOL porting to Micro Focus • Not much to do, but saves manual editing • Insert EXTERNAL on select/assign stmts • Translate to lower case except in quotes – more modern appearance – easier to edit with unix/linux editors (vi, etc) • Insert detail file status test code – For Micro Focus extended file status display www. uvsoftware. ca
Data Conversion • Translate EBCDIC to ASCII – Preserving packed/binary fields – Correcting zoned signs to ASCII standards • Conversion jobs generated from copybooks – and LISTCAT file specs • 1 script to generate all conversion jobs • 1 command to convert all data files www. uvsoftware. ca
Data Conversion Example • Data conversions generated from copybooks Sample copybook (citytax 1. cpy) • Cob. Map record layout from copybook Sample cobmap (citytax. map) • Data conversion job (uvcopy) Sample uvcopy data conversion job (citytax 1. uv) www. uvsoftware. ca
Data File specs from LISTCAT • LISTCAT info completes conversion jobs – Info added to copybook/cobmap/uvcopy job – Data filename, file type, Indexed keys Sample LISTCAT & extracted control file uvcopy job completed by control file www. uvsoftware. ca
Converting flat files to RDBMS • Convert data to pipe delimited text files – Packed/binary fields edited signs & decimal pts • Packed/binary fields unpacked & edited – Conversion jobs auto-gen’d from copybooks • • SQL loader control file also generated Sample pipe delimited output file Sample uvcopy job to perform pipe delimit Sample loader control file www. uvsoftware. ca
Conversion Directories • For JCL, COBOL, & Data conversions • Conversion Libraries • Data directories for testing or production • sample test data subdirs www. uvsoftware. ca
Scripts to convert All JCL/COBOL/DATA • jcl 2 ksh 5 A – convert All JCL to ksh • cnv. MF 5 A – convert all COBOL to Micro Focus • gencnv. C - generate all Data conversion jobs • uvcopyxx ‘pfx 2/*’ - execute all data convert jobs www. uvsoftware. ca
Scripts to convert 1 JCL/COBOL/Data. File • jcl 2 ksh 51 – convert 1 JCL to ksh • cnv. MF 51 – convert 1 program to Micro. Focus • gencnv. B – convert 1 datafile to ASCII • genpipe. A – convert 1 file to pipe-delimited • uvcopy pfx 3/datafilename – execute 1 conversion job www. uvsoftware. ca
Testing & Debugging Aids • uvhd & uvhdcob – data file investigation – Browse, search, update, print, etc • uvhd – sample EBCDIC file display – uvhd dat 1 ebc/custmas 1 r 256 s 3 a • uvhd – sample ASCII file display – uvhd dat 2 asc/custmas 1 r 256 s 3 • uvhdcob – sample record display – uvhdcob dat 2 asc/custmas 1 maps/custmas 1 www. uvsoftware. ca
COBOL Cross-References • • xcobcall 1 – list called programs in each program xcobcall 2 – crossref programs calling any 1 program xcobcopy 1 – list copybooks in each program xcobcopy 2 – crossref programs using any 1 copybook • cobfiles - COBOL files report – organization, access, open-mode, recsize, copybook, www. uvsoftware. ca
JCL Cross-References • • xjkshfile 1 – list datafiles in each JCL/script xjkshfile 2 – crossref programs using any 1 datafile xjkshprog 1 – list programs in each JCL/script xjkshprog 2 – crossref JCL/scripts using any 1 program • Jobflow reports – generated from JCL + COBOL programs – Show file I/O from step to step in multi-step jobs – Sample jobflow report www. uvsoftware. ca
Converting DYL 280 to uv… • Sample#1 – file init (write 1 blank/zero rec) Mainframe DYL 280 code Equivalent uvcp Equivalent uvcopy • Sample#2 – add records to an indexed file Mainframe DYL 280 code Equivalent uvcopy www. uvsoftware. ca
Pre-Programmed jobs (uvcopy) • table 2 – table summaries by arguments – Table entries limited only by memory – Table dumped at EOF in argument sequence – Percentages on every line of 100% total line • • Sample input data file Sample table summary report Operating instructions & console displays uvcopy job equivalent www. uvsoftware. ca
Replacements for Mainframe Utilities • Uvqrpg – Report Generator – up to 8 page headings & footers – up to 8 control break fields & total levels – up to 100 accumulators per level – built in sort • Sample input file • Sample output report • Sample uvqrpg code www. uvsoftware. ca
Free Sample Conversions • Email sample JCL for conversion – Korn shell scripts returned within 48 hours • Send 1 zip file including: – Up to 10 JCLs (representative variety) – Any referenced PROCs – Any control cards (SYSIN library modules) – for SORT FIELDS, IKJEFT 01 params, etc • Email to owen@uvsoftware. ca www. uvsoftware. ca
Conversion Plan – phase 1 • Training & Conversion jumpstart – 3 or 4 weeks of onsite assistance – by UVSI, Tx. MQ, or Travancore personnel – Train customer team to use conversion tools – Convert all JCLs, COBOLs, & Data files – Test/debug 1 st few JCL/scripts & programs www. uvsoftware. ca
Conversion plan – phase 2 & 3 • Testing & Debugging – 3 to 12 months depending on project size – By customer conversion team – aided by Tx. MQ or Travancore as desired • Go Live – Usually over a weekend www. uvsoftware. ca
- Slides: 30