Found Source Code

This is a list of all source code that we have discovered on various media.

Example Code

This is one of the source code files recovered from the ZOL folder.

(odarec)
record odarec(55)
set   odattype:0;  tuvvwx= ttype where x=0=report calculations only, 1=go to g/l only, 2=bill, 3=bill and g/l
;4 & 5 removed 8/2/81       4=income only, 5=inc&gl, 1x=factor amounts based only on non-zero,  2x=all lses will get even distr.
;      0wx=automatic request for new % info, 1wx=only request when spec. called,
;    2,3,4,5 removed 8/02/81 2wx=auto. based on prod. mcf, 3wx=auto prod. bbl, 4wx=sales mcf, 5wx=sales bbl
;     2wx=dont calculate factors - use already enter factors
;   0vvwx=do not summarize information,  1vvwx=summarize,
;  0uvvwx=oddail lines are properties, 1uvvwx=oddail lines are partners
string odadesc(30);   description of group
define odahead1:'lease'
define odahead2:'amt  '
set odataxpc:0;  8/02/81...no longer used
set  odaacct:0;   used for summary acct number for billings
endrec
 
(odbrec)
 
record odbrec(8)
set odbgr:0
set reloda:0
endrec
 
;
(oddrec)
 
record oddrec(30)
set  oddtamt:0;  total amount this month
set  oddfactor:0; factor arrived at this month
set  odddist:0;  distribution number
set  oddamt1:0;  used to calc. % factor
set  oddamt2:0;  dr. income account number if not using acct
set  oddamt3:0;
set oddamt4:0;  head uses it for # of records in group
endrec
(oddtot)
 
record oddtotal(30)
set  oddtgramt:0;  total amount this month
set  oddtfactor:0; factor arrived at this month
set  oddtdist:0;  distribution number
set  oddtamt1:0;  used to calc. % factor
set  oddtamt2:0;  dr. income account number if not using acct
set  oddtamt3:0;
set oddtamt4:0;  head uses it for # of records in group
endrec
;
(oderec)
 
record oderec(10);   list for oddrec
set  ?lgr:0;  gr,pros,lse,sub,well#
set  relodd:0
endrec
;
(odmrec)
 
record odmrec(65)
set odmgrno:0;  group
set odmglno:0;  account
set odmvou :0;  voucher
set odmdate:0;  date
set odmvend:0;  a/p vendor
set odmamt  :0;   amount
set ?odmid:0;   property
set odmdist:0;  distr.#
string odmdesc(30);  description
endrec
;

ZOL

This was found on the CDC Finch Drive that was with the Counterfeit System.

File	Notes	Link
ZOA	Currently unsure of what this source code is for	Link
ZOB2	Currently unsure of what this source code is for	Link
ZOC	Currently unsure of what this source code is for	Link
ZOD	Currently unsure of what this source code is for	Link
ZOE	Currently unsure of what this source code is for	Link
ZOG	Currently unsure of what this source code is for	Link
ZOJ	Currently unsure of what this source code is for	Link
ZOL	Currently unsure of what this source code is for	Link
ZOLIB	Currently unsure of what this source code is for	Link
ZOO	Currently unsure of what this source code is for	Link
ZOT	Currently unsure of what this source code is for	Link

YREND90

This was found on the CDC Finch Drive that was with the Counterfeit System.

File	Notes	Link
ZOA270	Currently unsure of what this source code is for	Link
ZOJ231	Currently unsure of what this source code is for	Link
ZOL261	Currently unsure of what this source code is for	Link
ZRP582	Currently unsure of what this source code is for	Link
ZRP5@1	Currently unsure of what this source code is for	Link
ZRV5@1	Currently unsure of what this source code is for	Link
ZRV980	Currently unsure of what this source code is for	Link
ZRV982	Currently unsure of what this source code is for	Link
ZRVS	Currently unsure of what this source code is for	Link

Data6

This was a lone source code file in the root directory of one of the removable platters.

File	Notes	Link
ZOR100	Currently unsure of what this source code is for	Link

General Ledger

This is the full source code, JCL and CPL, for the General Ledger Application.

File	Type/Notes	Link
BLDGL	JCL file to build GL on a new platter	Link
FILD	JCL file	Link
FINS	JCL file	Link
GLACC1	JCL file	Link
GLAUDT	JCL file	Link
GLBCOM	JCL file	Link
GLBRN	JCL file	Link
GLBUDG	JCL file	Link
GLCLEA	JCL file	Link
GLCOVE	JCL file	Link
GLDDAT	JCL file	Link
GLEAN	JCL file	Link
GLEDGE	JCL file	Link
GLF56	JCL file	Link
GLFCOM	JCL file	Link
GLFINC	JCL file	Link
GLFINS	JCL file	Link
GLHD	JCL file	Link
GLHREP	JCL file	Link
GLINIT	JCL file	Link
GLMAST	JCL file	Link
GLMDAT	JCL file	Link
GLMENU	JCL file that is the primary start file for the application	Link
GLNDAT	JCL file	Link
GLNEW	JCL file	Link
GLOOK	JCL file	Link
GLPACK	JCL file	Link
GLPRIO	JCL file	Link
GLREPO	JCL file	Link
GLSRNK	JCL file	Link
GLSUB	JCL file	Link
GLSUBG	JCL file	Link
GLTRAN	JCL file	Link
GLTRIA	JCL file	Link
GLTTRA	JCL file	Link

File	Type/Notes	Link
G	CPL source code	Link
ZGL500	CPL source code	Link
ZGL501	CPL source code	Link
ZGL502	CPL source code	Link
ZGL503	CPL source code	Link
ZGL504	CPL source code	Link
ZGL505	CPL source code	Link
ZGL506	CPL source code	Link
ZGL507	CPL source code	Link
ZGL508	CPL source code	Link
ZGL509	CPL source code	Link
ZGL510	CPL source code	Link
ZGL511	CPL source code	Link
ZGL512	CPL source code	Link
ZGL514	CPL source code	Link
ZGL530	CPL source code	Link
ZGL531	CPL source code	Link
ZGL532	CPL source code	Link
ZGL534	CPL source code	Link
ZGL535	CPL source code	Link
ZGL536	CPL source code	Link
ZGL537	CPL source code	Link
ZGL538	CPL source code	Link
ZGL540	CPL source code	Link
ZGL541	CPL source code	Link
ZGL543	CPL source code	Link
ZGL544	CPL source code	Link
ZGL545	CPL source code	Link
ZGL546	CPL source code	Link
ZGL547	CPL source code	Link
ZGL548	CPL source code	Link
ZGL549	CPL source code	Link
ZGL550	CPL source code	Link
ZGL551	CPL source code	Link
ZGL552	CPL source code	Link
ZGL553	CPL source code	Link
ZGL554	CPL source code	Link
ZGL560	CPL source code	Link
ZGL565	CPL source code	Link
ZGL570	CPL source code	Link
ZGL575	CPL source code	Link
ZGL580	CPL source code	Link
ZGL581	CPL source code	Link
ZGL585	CPL source code	Link
ZGL588	CPL source code	Link
ZGL589	CPL source code	Link
ZGL590	CPL source code	Link
ZGL591	CPL source code	Link
ZGL595	CPL source code	Link
ZGL596	CPL source code	Link
ZRPD00	CPL source code	Link