original artists
filk authors
what's new
about this site
Original song Modern Major General
Original artist Gilbert and Sullivan
Filk author Carolyn Jorgensen
Intro I wrote this as a mnumonic to help me pass the test in COBOL 101.

Standard COBOL Structure Form

This is a simple model of the standard COBOL structure form.
Four separate parts to understand which all procedures must conform.
each has their tricky ins and outs especially to confuse you.

I-DEN-TI-FI-CA-TION is the first and likewise is the easiest,
with ID name and author for perusal by a nosy guest,
Date written and compiled is also information to be keyed,
and some remarks to toss right in for those who really like to read.

next INPUT / OUTPUT sections with SELECT / ASSIGN part-ti-u-lars.
There's one SELECT created just for every file's special name,
Then ASSIGN to which output or drive with path and file name.

DATA has two major parts: FILE SECTION and the WORKING STORE,
with one FD for every file SELECT / ASSIGN had named before.
Each FD has a BLOCK, RECORD, a LABEL, and the DATA too,
DATA's broken down to fields with LEVEL names and PICTURES too.

WORKING STORAGE is the place where all the extra parts are kept,
like HEADINGS, FILLERS, COUNTERS, SWITCHES, and the like it will accept.
At placing them through the report you really should be most adept,
They'll dress up all those boring files and you won't look so quite inept.

PROCEDURE is the final phase within the COBOL symphony,
where everything defined before now sings together perfectly.
The paragraphs are numbered to outline the movements of the score,
Now DATA takes the center stage and WORKING STORAGE is the corps.

INITIALIZE with OPEN files, MOVE zeros to the counters too,
Then start the LOOPs with READ and IFs, while counters keep close track for you.
MOVE each FIELD-NAME to RECORD-LINE so you can print it carefully,
Then print the HEADERS, CLOSE the files, and STOP RUN ends it perfectly

0-9 / A / B / C / D / E / F / G / H / I / J / K / L / M / N / O / P / Q / R / S / T / U / V / W / X / Y / Z