COMTRAN
- 8 min read
- 3 chapters
Related on Lably
Through COBOL
Contributions to COBOL
Several elements of COMTRAN were incorporated into COBOL:
- Picture clause.
- Paragraphing: dividing code into paragraphs (with line breaks not significant).
- Paragraph names. Assigning names to paragraphs, and jumps (
GO TO's) are to a paragraph name, not to a line number. AT ENDclause on file input operations.- Figurative constant
HIGH-VALUE. - Passing a numeric value (
RETURN-CODE) back to the operating system when the program terminates.
Sign in to keep reading
2 more chapters are free with a Lably account.
Picture clause
A picture clause element defines how a particular data item should be formatted, for output. It consists of a string of letters and digits. It is similar to the FORTRAN format specifier seen in the READ and WRITE statements, or the formatting strings seen in more modern languages like C. This became an important part of COBOL.
Sample program
This is a sample COMTRAN program, doing payroll calculations.
<span id="mwKg"></span><span class="c" id="mwKw"> 01001</span><span class="w" id="mwLA"> </span><span class="o" id="mwLQ">*</span><span class="kr" id="mwLg">PROCEDURE</span> <span class="kr" id="mwLw"> </span> <span class="c" id="mwMA"> 01002</span><span class="w" id="mwMQ"> </span><span class="kr" id="mwMg">CALL </span><span class="p" id="mwMw">(</span><span class="nv" id="mwNA">EMPLOYEE</span><span class="p" id="mwNQ">.</span><span class="kp" id="mwNg">NUMBER</span><span class="p" id="mwNw">)</span><span class="w" id="mwOA"> </span><span class="nv" id="mwOQ">EMPLOYNO</span><span class="p" id="mwOg">,</span> <span class="c" id="mwOw"> 01003</span><span class="w" id="mwPA"> </span><span class="p" id="mwPQ">(</span><span class="nv" id="mwPg">BONDEDUCTION</span><span class="p" id="mwPw">)</span><span class="w" id="mwQA"> </span><span class="nv" id="mwQQ">BONDEDUCT</span><span class="p" id="mwQg">,</span> <span class="c" id="mwQw"> 01004</span><span class="w" id="mwRA"> </span><span class="p" id="mwRQ">(</span><span class="nv" id="mwRg">BONDENOMINATION</span><span class="p" id="mwRw">)</span><span class="w" id="mwSA"> </span><span class="nv" id="mwSQ">BONDENOM</span><span class="p" id="mwSg">,</span> <span class="c" id="mwSw"> 01005</span><span class="w" id="mwTA"> </span><span class="p" id="mwTQ">(</span><span class="nv" id="mwTg">BONDACCUMULATION</span><span class="p" id="mwTw">)</span><span class="w" id="mwUA"> </span><span class="nv" id="mwUQ">BONDACCUM</span><span class="p" id="mwUg">,</span> <span class="c" id="mwUw"> 01006</span><span class="w" id="mwVA"> </span><span class="p" id="mwVQ">(</span><span class="nv" id="mwVg">INSURANCE</span><span class="p" id="mwVw">.</span><span class="nv" id="mwWA">PREM</span><span class="p" id="mwWQ">)</span><span class="w" id="mwWg"> </span><span class="nv" id="mwWw">INSPREM</span><span class="p" id="mwXA">,</span> <span class="c" id="mwXQ"> 01007</span><span class="w" id="mwXg"> </span><span class="p" id="mwXw">(</span><span class="nv" id="mwYA">RETIREMENT</span><span class="p" id="mwYQ">.</span><span class="nv" id="mwYg">PREM</span><span class="p" id="mwYw">)</span><span class="w" id="mwZA"> </span><span class="nv" id="mwZQ">RETPREM</span><span class="p" id="mwZg">,</span> <span class="c" id="mwZw"> 01008</span><span class="w" id="mwaA"> </span><span class="p" id="mwaQ">(</span><span class="nv" id="mwag">DEPARTMENT</span><span class="p" id="mwaw">.</span><span class="nv" id="mwbA">TOTAL</span><span class="p" id="mwbQ">)</span><span class="w" id="mwbg"> </span><span class="nv" id="mwbw">DPT</span><span class="p" id="mwcA">.</span> <span class="w" id="mwcQ"> </span> <span class="c" id="mwcg"> 01009</span><span class="w" id="mwcw"> </span><span class="kr" id="mwdA">START</span><span class="p" id="mwdQ">.</span><span class="w" id="mwdg"> </span><span class="kr" id="mwdw">OPEN</span><span class="w" id="mweA"> </span><span class="kp" id="mweQ">ALL</span><span class="w" id="mweg"> </span><span class="nv" id="mwew">FILES</span><span class="p" id="mwfA">.</span> <span class="w" id="mwfQ"> </span> <span class="c" id="mwfg"> 01010</span><span class="w" id="mwfw"> </span><span class="err" id="mwgA">GET</span><span class="p" id="mwgQ">.</span><span class="nv" id="mwgg">MASTER</span><span class="p" id="mwgw">.</span><span class="w" id="mwhA"> </span><span class="err" id="mwhQ">GET</span><span class="w" id="mwhg"> </span><span class="nv" id="mwhw">MASTER</span><span class="p" id="mwiA">,</span><span class="w" id="mwiQ"> </span><span class="kp" id="mwig">AT</span><span class="w" id="mwiw"> </span><span class="kr" id="mwjA">END</span><span class="w" id="mwjQ"> </span><span class="nv" id="mwjg">DO</span><span class="w" id="mwjw"> </span><span class="kr" id="mwkA">END</span><span class="p" id="mwkQ">.</span><span class="kp" id="mwkg">OF</span><span class="p" id="mwkw">.</span><span class="nv" id="mwlA">MASTERS</span><span class="p" id="mwlQ">.</span> <span class="w" id="mwlg"> </span> <span class="c" id="mwlw"> 01011</span><span class="w" id="mwmA"> </span><span class="err" id="mwmQ">GET</span><span class="p" id="mwmg">.</span><span class="kp" id="mwmw">DETAIL</span><span class="p" id="mwnA">.</span><span class="w" id="mwnQ"> </span><span class="err" id="mwng">GET</span><span class="w" id="mwnw"> </span><span class="kp" id="mwoA">DETAIL</span><span class="p" id="mwoQ">,</span><span class="w" id="mwog"> </span><span class="kp" id="mwow">AT</span><span class="w" id="mwpA"> </span><span class="kr" id="mwpQ">END</span><span class="w" id="mwpg"> </span><span class="kr" id="mwpw">GO</span><span class="w" id="mwqA"> </span><span class="kp" id="mwqQ">TO</span><span class="w" id="mwqg"> </span><span class="kr" id="mwqw">END</span><span class="p" id="mwrA">.</span><span class="kp" id="mwrQ">OF</span><span class="p" id="mwrg">.</span><span class="nv" id="mwrw">DETAILS</span><span class="p" id="mwsA">.</span> <span class="w" id="mwsQ"> </span> <span class="c" id="mwsg"> 01012</span><span class="w" id="mwsw"> </span><span class="nv" id="mwtA">COMPARE</span><span class="p" id="mwtQ">.</span><span class="nv" id="mwtg">EMPLOYEE</span><span class="p" id="mwtw">.</span><span class="kp" id="mwuA">NUMBERS</span><span class="p" id="mwuQ">.</span><span class="w" id="mwug"> </span><span class="kr" id="mwuw">GO</span><span class="w" id="mwvA"> </span><span class="kp" id="mwvQ">TO</span><span class="w" id="mwvg"> </span><span class="kr" id="mwvw">COMPUTE</span><span class="p" id="mwwA">.</span><span class="nv" id="mwwQ">PAY</span><span class="w" id="mwwg"> </span><span class="kp" id="mwww">WHEN</span><span class="w" id="mwxA"> </span><span class="kp" id="mwxQ">DETAIL</span><span class="w" id="mwxg"> </span><span class="nv" id="mwxw">EMPLOYNO</span> <span class="c" id="mwyA"> 01013</span><span class="w" id="mwyQ"> </span><span class="kp" id="mwyg">IS</span><span class="w" id="mwyw"> </span><span class="ow" id="mwzA">EQUAL</span><span class="w" id="mwzQ"> </span><span class="kp" id="mwzg">TO</span><span class="w" id="mwzw"> </span><span class="nv" id="mw0A">MASTER</span><span class="w" id="mw0Q"> </span><span class="nv" id="mw0g">EMPLOYNO</span><span class="p" id="mw0w">,</span><span class="w" id="mw1A"> </span><span class="nv" id="mw1Q">LOW</span><span class="p" id="mw1g">.</span><span class="kp" id="mw1w">DETAIL</span><span class="w" id="mw2A"> </span><span class="kp" id="mw2Q">WHEN</span><span class="w" id="mw2g"> </span><span class="kp" id="mw2w">DETAIL</span> <span class="c" id="mw3A"> 01014</span><span class="w" id="mw3Q"> </span><span class="nv" id="mw3g">EMPLOYNO</span><span class="w" id="mw3w"> </span><span class="kp" id="mw4A">IS</span><span class="w" id="mw4Q"> </span><span class="ow" id="mw4g">LESS</span><span class="w" id="mw4w"> </span><span class="ow" id="mw5A">THAN</span><span class="w" id="mw5Q"> </span><span class="nv" id="mw5g">MASTER</span><span class="w" id="mw5w"> </span><span class="nv" id="mw6A">EMPLOYNO</span><span class="p" id="mw6Q">.</span> <span class="w" id="mw6g"> </span> <span class="c" id="mw6w"> 01015</span><span class="w" id="mw7A"> </span><span class="nv" id="mw7Q">HIGH</span><span class="p" id="mw7g">.</span><span class="kp" id="mw7w">DETAIL</span><span class="p" id="mw8A">.</span><span class="w" id="mw8Q"> </span><span class="kr" id="mw8g">MOVE </span><span class="s1" id="mw8w">'M'</span><span class="w" id="mw9A"> </span><span class="kp" id="mw9Q">TO</span><span class="w" id="mw9g"> </span><span class="nv" id="mw9w">MASTER</span><span class="w" id="mw-A"> </span><span class="nv" id="mw-Q">ERRORCODE</span><span class="p" id="mw-g">,</span><span class="w" id="mw-w"> </span><span class="kr" id="mw_A">FILE</span><span class="w" id="mw_Q"> </span><span class="nv" id="mw_g">MASTER</span><span class="w" id="mw_w"> </span><span class="kp" id="mwAQA">IN</span> <span class="c" id="mwAQE"> 01016</span><span class="w" id="mwAQI"> </span><span class="kp" id="mwAQM">ERROR</span><span class="p" id="mwAQQ">.</span><span class="kr" id="mwAQU">FILE</span><span class="p" id="mwAQY">.</span> <span class="w" id="mwAQc"> </span> <span class="c" id="mwAQg"> 01017</span><span class="w" id="mwAQk"> </span><span class="err" id="mwAQo">GET</span><span class="w" id="mwAQs"> </span><span class="nv" id="mwAQw">MASTER</span><span class="p" id="mwAQ0">,</span><span class="w" id="mwAQ4"> </span><span class="kp" id="mwAQ8">AT</span><span class="w" id="mwARA"> </span><span class="kr" id="mwARE">END</span><span class="w" id="mwARI"> </span><span class="nv" id="mwARM">DO</span><span class="w" id="mwARQ"> </span><span class="kr" id="mwARU">END</span><span class="p" id="mwARY">.</span><span class="kp" id="mwARc">OF</span><span class="p" id="mwARg">.</span><span class="nv" id="mwARk">MASTERS</span><span class="p" id="mwARo">.</span> <span class="w" id="mwARs"> </span> <span class="c" id="mwARw"> 01018</span><span class="w" id="mwAR0"> </span><span class="kr" id="mwAR4">GO</span><span class="w" id="mwAR8"> </span><span class="kp" id="mwASA">TO</span><span class="w" id="mwASE"> </span><span class="nv" id="mwASI">COMPARE</span><span class="p" id="mwASM">.</span><span class="nv" id="mwASQ">EMPLOYEE</span><span class="p" id="mwASU">.</span><span class="kp" id="mwASY">NUMBERS</span><span class="p" id="mwASc">.</span> <span class="w" id="mwASg"> </span> <span class="c" id="mwASk"> 02001</span><span class="w" id="mwASo"> </span><span class="nv" id="mwASs">LOW</span><span class="p" id="mwASw">.</span><span class="kp" id="mwAS0">DETAIL</span><span class="p" id="mwAS4">.</span><span class="w" id="mwAS8"> </span><span class="kr" id="mwATA">MOVE </span><span class="s1" id="mwATE">'D'</span><span class="w" id="mwATI"> </span><span class="kp" id="mwATM">TO</span><span class="w" id="mwATQ"> </span><span class="kp" id="mwATU">DETAIL</span><span class="w" id="mwATY"> </span><span class="nv" id="mwATc">ERRORCODE</span><span class="p" id="mwATg">,</span><span class="w" id="mwATk"> </span><span class="kr" id="mwATo">FILE</span><span class="w" id="mwATs"> </span><span class="kp" id="mwATw">DETAIL</span><span class="w" id="mwAT0"> </span><span class="kp" id="mwAT4">IN</span> <span class="c" id="mwAT8"> 02002</span><span class="w" id="mwAUA"> </span><span class="kp" id="mwAUE">ERROR</span><span class="p" id="mwAUI">.</span><span class="kr" id="mwAUM">FILE</span><span class="p" id="mwAUQ">.</span> <span class="w" id="mwAUU"> </span> <span class="c" id="mwAUY"> 02003</span><span class="w" id="mwAUc"> </span><span class="kr" id="mwAUg">GO</span><span class="w" id="mwAUk"> </span><span class="kp" id="mwAUo">TO</span><span class="w" id="mwAUs"> </span><span class="err" id="mwAUw">GET</span><span class="p" id="mwAU0">.</span><span class="kp" id="mwAU4">DETAIL</span><span class="p" id="mwAU8">.</span> <span class="w" id="mwAVA"> </span> <span class="c" id="mwAVE"> 02004</span><span class="w" id="mwAVI"> </span><span class="kr" id="mwAVM">END</span><span class="p" id="mwAVQ">.</span><span class="kp" id="mwAVU">OF</span><span class="p" id="mwAVY">.</span><span class="nv" id="mwAVc">MASTERS</span><span class="p" id="mwAVg">.</span><span class="w" id="mwAVk"> </span><span class="kr" id="mwAVo">IF</span><span class="w" id="mwAVs"> </span><span class="kp" id="mwAVw">DETAIL</span><span class="w" id="mwAV0"> </span><span class="nv" id="mwAV4">EMPLOYNO</span><span class="w" id="mwAV8"> </span><span class="o" id="mwAWA">=</span><span class="w" id="mwAWE"> </span><span class="nv" id="mwAWI">HIGH</span><span class="p" id="mwAWM">.</span><span class="kp" id="mwAWQ">VALUE</span><span class="w" id="mwAWU"> </span><span class="kr" id="mwAWY">THEN</span><span class="w" id="mwAWc"> </span><span class="kr" id="mwAWg">GO</span><span class="w" id="mwAWk"> </span><span class="kp" id="mwAWo">TO</span> <span class="c" id="mwAWs"> 02005</span><span class="w" id="mwAWw"> </span><span class="kr" id="mwAW0">END</span><span class="p" id="mwAW4">.</span><span class="kp" id="mwAW8">OF</span><span class="p" id="mwAXA">.</span><span class="kp" id="mwAXE">RUN</span><span class="w" id="mwAXI"> </span><span class="nv" id="mwAXM">OTHERWISE</span><span class="w" id="mwAXQ"> </span><span class="kr" id="mwAXU">SET</span><span class="w" id="mwAXY"> </span><span class="nv" id="mwAXc">MASTER</span><span class="w" id="mwAXg"> </span><span class="nv" id="mwAXk">EMPLOYNO</span><span class="w" id="mwAXo"> </span><span class="o" id="mwAXs">=</span><span class="w" id="mwAXw"> </span><span class="nv" id="mwAX0">HIGH</span><span class="p" id="mwAX4">.</span><span class="kp" id="mwAX8">VALUE</span><span class="p" id="mwAYA">.</span> <span class="w" id="mwAYE"> </span> <span class="c" id="mwAYI"> 02006</span><span class="w" id="mwAYM"> </span><span class="kr" id="mwAYQ">END</span><span class="p" id="mwAYU">.</span><span class="kp" id="mwAYY">OF</span><span class="p" id="mwAYc">.</span><span class="nv" id="mwAYg">DETAILS</span><span class="p" id="mwAYk">.</span><span class="w" id="mwAYo"> </span><span class="kr" id="mwAYs">IF</span><span class="w" id="mwAYw"> </span><span class="nv" id="mwAY0">MASTEREMPLOYNO</span><span class="w" id="mwAY4"> </span><span class="o" id="mwAY8">=</span><span class="w" id="mwAZA"> </span><span class="nv" id="mwAZE">HIGH</span><span class="p" id="mwAZI">.</span><span class="kp" id="mwAZM">VALUE</span><span class="w" id="mwAZQ"> </span><span class="kr" id="mwAZU">THEN</span><span class="w" id="mwAZY"> </span><span class="kr" id="mwAZc">GO</span><span class="w" id="mwAZg"> </span><span class="kp" id="mwAZk">TO</span> <span class="c" id="mwAZo"> 02007</span><span class="w" id="mwAZs"> </span><span class="kr" id="mwAZw">END</span><span class="p" id="mwAZ0">.</span><span class="kp" id="mwAZ4">OF</span><span class="p" id="mwAZ8">.</span><span class="kp" id="mwAaA">RUN</span><span class="w" id="mwAaE"> </span><span class="nv" id="mwAaI">OTHERWISE</span><span class="w" id="mwAaM"> </span><span class="kr" id="mwAaQ">SET</span><span class="w" id="mwAaU"> </span><span class="kp" id="mwAaY">DETAIL</span><span class="w" id="mwAac"> </span><span class="nv" id="mwAag">EMPLOYNO</span><span class="w" id="mwAak"> </span><span class="o" id="mwAao">=</span><span class="w" id="mwAas"> </span><span class="nv" id="mwAaw">HIGH</span><span class="p" id="mwAa0">.</span><span class="kp" id="mwAa4">VALUE</span><span class="p" id="mwAa8">,</span><span class="w" id="mwAbA"> </span><span class="kr" id="mwAbE">GO</span> <span class="c" id="mwAbI"> 02008</span><span class="w" id="mwAbM"> </span><span class="kp" id="mwAbQ">TO</span><span class="w" id="mwAbU"> </span><span class="nv" id="mwAbY">COMPARE</span><span class="p" id="mwAbc">.</span><span class="nv" id="mwAbg">EMPLOYEE</span><span class="p" id="mwAbk">.</span><span class="kp" id="mwAbo">NUMBERS</span><span class="p" id="mwAbs">.</span> <span class="w" id="mwAbw"> </span> <span class="c" id="mwAb0"> 02009</span><span class="w" id="mwAb4"> </span><span class="kr" id="mwAb8">END</span><span class="p" id="mwAcA">.</span><span class="kp" id="mwAcE">OF</span><span class="p" id="mwAcI">.</span><span class="kp" id="mwAcM">RUN</span><span class="p" id="mwAcQ">.</span><span class="w" id="mwAcU"> </span><span class="kr" id="mwAcY">MOVE</span><span class="w" id="mwAcc"> </span><span class="kp" id="mwAcg">CORRESPONDING</span><span class="w" id="mwAck"> </span><span class="nv" id="mwAco">GRAND</span><span class="p" id="mwAcs">.</span><span class="nv" id="mwAcw">TOTAL</span><span class="w" id="mwAc0"> </span><span class="kp" id="mwAc4">TO</span><span class="w" id="mwAc8"> </span><span class="nv" id="mwAdA">PAYRECORD</span><span class="p" id="mwAdE">,</span><span class="w" id="mwAdI"> </span><span class="kr" id="mwAdM">FILE</span> <span class="c" id="mwAdQ"> 02010</span><span class="w" id="mwAdU"> </span><span class="nv" id="mwAdY">PAYRECORD</span><span class="p" id="mwAdc">,</span><span class="w" id="mwAdg"> </span><span class="kr" id="mwAdk">CLOSE</span><span class="w" id="mwAdo"> </span><span class="kp" id="mwAds">ALL</span><span class="w" id="mwAdw"> </span><span class="nv" id="mwAd0">FILES</span><span class="p" id="mwAd4">.</span> <span class="c" id="mwAd8"> 02011</span><span class="w" id="mwAeA"> </span><span class="kr" id="mwAeE">STOP</span><span class="w" id="mwAeI"> </span><span class="mi" id="mwAeM">1234</span><span class="p" id="mwAeQ">.</span> <span class="w" id="mwAeU"> </span> <span class="c" id="mwAeY"> 02012</span><span class="w" id="mwAec"> </span><span class="kr" id="mwAeg">COMPUTE</span><span class="p" id="mwAek">.</span><span class="nv" id="mwAeo">PAY</span><span class="p" id="mwAes">.</span><span class="w" id="mwAew"> </span><span class="kr" id="mwAe0">IF</span><span class="w" id="mwAe4"> </span><span class="kp" id="mwAe8">DETAIL</span><span class="w" id="mwAfA"> </span><span class="nv" id="mwAfE">HOURS</span><span class="w" id="mwAfI"> </span><span class="kp" id="mwAfM">IS</span><span class="w" id="mwAfQ"> </span><span class="ow" id="mwAfU">GREATER</span><span class="w" id="mwAfY"> </span><span class="ow" id="mwAfc">THAN</span><span class="w" id="mwAfg"> </span><span class="mi" id="mwAfk">40 </span><span class="kr" id="mwAfo">THEN</span><span class="w" id="mwAfs"> </span><span class="kr" id="mwAfw">SET</span><span class="w" id="mwAf0"> </span><span class="kp" id="mwAf4">DETAIL</span> <span class="c" id="mwAf8"> 02013</span><span class="w" id="mwAgA"> </span><span class="nv" id="mwAgE">GROSS</span><span class="w" id="mwAgI"> </span><span class="o" id="mwAgM">=</span><span class="w" id="mwAgQ"> </span><span class="p" id="mwAgU">(</span><span class="kp" id="mwAgY">DETAIL</span><span class="w" id="mwAgc"> </span><span class="nv" id="mwAgg">HOURS</span><span class="w" id="mwAgk"> </span><span class="o" id="mwAgo">-</span><span class="w" id="mwAgs"> </span><span class="mi" id="mwAgw">40</span><span class="p" id="mwAg0">)</span><span class="w" id="mwAg4"> </span><span class="o" id="mwAg8">*</span><span class="w" id="mwAhA"> </span><span class="nv" id="mwAhE">MASTER</span><span class="w" id="mwAhI"> </span><span class="nv" id="mwAhM">RATE</span><span class="w" id="mwAhQ"> </span><span class="o" id="mwAhU">*</span><span class="w" id="mwAhY"> </span><span class="mi" id="mwAhc">1</span><span class="p" id="mwAhg">.</span><span class="mi" id="mwAhk">5</span><span class="p" id="mwAho">.</span> <span class="w" id="mwAhs"> </span> <span class="c" id="mwAhw"> 02014</span><span class="w" id="mwAh0"> </span><span class="kr" id="mwAh4">SET</span><span class="w" id="mwAh8"> </span><span class="kp" id="mwAiA">DETAIL</span><span class="w" id="mwAiE"> </span><span class="nv" id="mwAiI">GROSS</span><span class="w" id="mwAiM"> </span><span class="o" id="mwAiQ">=</span><span class="w" id="mwAiU"> </span><span class="kp" id="mwAiY">DETAIL</span><span class="w" id="mwAic"> </span><span class="nv" id="mwAig">GROSS</span><span class="w" id="mwAik"> </span><span class="o" id="mwAio">+</span><span class="w" id="mwAis"> </span><span class="nv" id="mwAiw">MASTER</span><span class="w" id="mwAi0"> </span><span class="nv" id="mwAi4">RATE</span><span class="w" id="mwAi8"> </span><span class="o" id="mwAjA">*</span><span class="w" id="mwAjE"> </span><span class="mi" id="mwAjI">40</span><span class="p" id="mwAjM">,</span><span class="w" id="mwAjQ"> </span><span class="nv" id="mwAjU">DO</span> <span class="c" id="mwAjY"> 02015</span><span class="w" id="mwAjc"> </span><span class="nv" id="mwAjg">FICA</span><span class="p" id="mwAjk">.</span><span class="nv" id="mwAjo">ROUTINE</span><span class="p" id="mwAjs">,</span><span class="w" id="mwAjw"> </span><span class="nv" id="mwAj0">DO</span><span class="w" id="mwAj4"> </span><span class="nv" id="mwAj8">WITHHOLDING</span><span class="p" id="mwAkA">.</span><span class="nv" id="mwAkE">TAX</span><span class="p" id="mwAkI">.</span><span class="nv" id="mwAkM">ROUTINE</span><span class="p" id="mwAkQ">.</span> <span class="w" id="mwAkU"> </span> <span class="c" id="mwAkY"> 02016</span><span class="w" id="mwAkc"> </span><span class="kr" id="mwAkg">IF</span><span class="w" id="mwAkk"> </span><span class="nv" id="mwAko">MASTER</span><span class="w" id="mwAks"> </span><span class="nv" id="mwAkw">BONDEDUCT</span><span class="w" id="mwAk0"> </span><span class="kp" id="mwAk4">IS</span><span class="w" id="mwAk8"> </span><span class="ow" id="mwAlA">NOT</span><span class="w" id="mwAlE"> </span><span class="ow" id="mwAlI">EQUAL</span><span class="w" id="mwAlM"> </span><span class="kp" id="mwAlQ">TO</span><span class="w" id="mwAlU"> </span><span class="no" id="mwAlY">ZERO</span><span class="w" id="mwAlc"> </span><span class="kr" id="mwAlg">THEN</span><span class="w" id="mwAlk"> </span><span class="nv" id="mwAlo">DO</span> <span class="c" id="mwAls"> 02017</span><span class="w" id="mwAlw"> </span><span class="nv" id="mwAl0">BOND</span><span class="p" id="mwAl4">.</span><span class="nv" id="mwAl8">ROUTINE</span><span class="p" id="mwAmA">.</span> <span class="w" id="mwAmE"> </span> <span class="c" id="mwAmI"> 02018</span><span class="w" id="mwAmM"> </span><span class="nv" id="mwAmQ">DO</span><span class="w" id="mwAmU"> </span><span class="kr" id="mwAmY">SEARCH</span><span class="w" id="mwAmc"> </span><span class="kp" id="mwAmg">FOR</span><span class="w" id="mwAmk"> </span><span class="kp" id="mwAmo">INDEX </span><span class="o" id="mwAms">=</span><span class="w" id="mwAmw"> </span><span class="mi" id="mwAm0">1</span><span class="p" id="mwAm4">(</span><span class="mi" id="mwAm8">1</span><span class="p" id="mwAnA">)</span><span class="mi" id="mwAnE">12</span><span class="p" id="mwAnI">.</span> <span class="w" id="mwAnM"> </span> <span class="c" id="mwAnQ"> 02019</span><span class="w" id="mwAnU"> </span><span class="nv" id="mwAnY">NET</span><span class="p" id="mwAnc">.</span><span class="w" id="mwAng"> </span><span class="kr" id="mwAnk">SET</span><span class="w" id="mwAno"> </span><span class="nv" id="mwAns">PAYRECORD</span><span class="w" id="mwAnw"> </span><span class="nv" id="mwAn0">NETPAY</span><span class="w" id="mwAn4"> </span><span class="o" id="mwAn8">=</span><span class="w" id="mwAoA"> </span><span class="kp" id="mwAoE">DETAIL</span><span class="w" id="mwAoI"> </span><span class="nv" id="mwAoM">GROSS</span><span class="w" id="mwAoQ"> </span><span class="o" id="mwAoU">-</span><span class="w" id="mwAoY"> </span><span class="kp" id="mwAoc">DETAIL</span><span class="w" id="mwAog"> </span><span class="nv" id="mwAok">FICA</span><span class="w" id="mwAoo"> </span><span class="o" id="mwAos">-</span><span class="w" id="mwAow"> </span><span class="kp" id="mwAo0">DETAIL</span> <span class="c" id="mwAo4"> 02020</span><span class="w" id="mwAo8"> </span><span class="nv" id="mwApA">WHT</span><span class="w" id="mwApE"> </span><span class="o" id="mwApI">-</span><span class="nv" id="mwApM">DETAIL</span><span class="w" id="mwApQ"> </span><span class="nv" id="mwApU">RETIREMENT</span><span class="w" id="mwApY"> </span><span class="o" id="mwApc">-</span><span class="w" id="mwApg"> </span><span class="kp" id="mwApk">DETAIL</span><span class="w" id="mwApo"> </span><span class="nv" id="mwAps">INSURANCE</span><span class="w" id="mwApw"> </span><span class="o" id="mwAp0">-</span><span class="w" id="mwAp4"> </span><span class="kp" id="mwAp8">DETAIL</span> <span class="c" id="mwAqA"> 02021</span><span class="w" id="mwAqE"> </span><span class="nv" id="mwAqI">BONDEDUCT</span><span class="p" id="mwAqM">.</span>