IBM Infoprint 1130, User Manual

Page 1: ...ram development testing and program documentation Additional topics discussed include the 1130 system the 1130 Monitor Job Management Disk Management Core Management File Organization Disk Data Storag...

Page 2: ...edition but does not in any way obsolete the original edition Copies of this and other IBM publications can be obtained through IBM branch offices Address comments concerning the contents of this publ...

Page 3: ...n of this product or Section Subsections Page 01 00 I 00 01 service involved many considerations Its need was studied its function determined an announcement date selected etc In both cases management...

Page 4: ...duction Introduction J J Testing Effectively v v v Documentation Introduction v J j Conversion j J The 1130 System v v v The 1130 Monitor v v v v Job Management v v v Layout of 0 isk v v Disk Manageme...

Page 5: ...ivities specifically tailored to the 1130 user Section Subsections Page 01 00 I 00 03 and illustrates the points where management review is most essential Documenting Current Applications concerns the...

Page 6: ...ajor topics covered Sorting with Your 1130 describes the sort ing process and some alternate approaches Use of the Disk for Data Storage describes the way data is situated on the disk and stresses eff...

Page 7: ...60 Record Size 15 10 70 Other Considerations 15 10 80 Summary 15 10 90 Section Subsections Page 02 00 I 00 01 How to Safeguard Your Disk Data Files 15 20 00 Introduction 15 20 01 Know Your Data 15 20...

Page 8: ...10 35 10 20 35 20 00 35 20 10 35 20 20 40 00 00 40 01 00 40 10 00 40 20 00 40 30 00 Section Contents 45 00 00 Introduction 45 01 00 The 1131 CPU Console Printer and Keyboard Data Switches Console Dis...

Page 9: ...10 00 75 20 00 75 20 10 75 20 20 75 30 00 75 30 01 75 30 10 75 30 20 75 40 00 75 50 00 Section Subsections Page 02 00 I Section 80 Use of the Disk for Data Storage Section Contents General The Physica...

Page 10: ...Hardware Changes 90 30 10 Productive Time That Can Be Improved by Hardware Changes 90 30 20 Nonproductive Time That Can Be Reduced by Hardware Changes 90 30 30 Some Case Studies of Performance Improve...

Page 11: ...tion 05 PREINSTALLATION PLANNING CONTENTS Introduction General Planning Application and Conversion Planning Programming Planning 05 01 00 05 10 00 05 20 00 05 30 00 Section 05 Subsections Page 00 I 00...

Page 12: ...tions Page 05 01 I 00 01 need answers How will the personnel for your installation be selected When will your applica tions be implemented on the 1130 How will this job of implementation be carried to...

Page 13: ...efforts as mentioned previously must all have start dates If your foundation is firm and on schedule the later installation activities will also be smooth and on schedule The later installation activi...

Page 14: ...10 I00 02 APPLICATION DEVELOPMENT PLAN ACTIVITY TIME ESTIMATES Must Original Schedule Revised Revised Duration Start 5 or Dates Dates 1 Dates 2 in Finish IF Activity Weeks Date Start Finish Start Fini...

Page 15: ...2 Evaluation a Establishinent of controls b Management review 3 Programming of the application The most important steps in this process are once more the earliest Analysis and Evaluation If these item...

Page 16: ...Program development 5 0 Accounts Payable Review present system 5 Design reports and card layouts 2 0 Flowchart 1 0 Establish controls 5 Management review 1 0 Program development 6 0 Sales Analysis Rev...

Page 17: ...version personnel 2 0 Convert payroll and labor distribution files 2 0 Convert accounts receivable files 4 0 Convert accounts payable files 4 0 Convert inventory files 6 0 Train other departments ali...

Page 18: ...ent Figure 05 9 will provide the necessary control Used in conjunction with the Activity Time Esti mates for the Program Development Plan these charts show you at all times the progress of your instal...

Page 19: ...ta PAY 03 1 Test PAY 03 2 Production test PAY 03 2 Complete documentation PAY 03 2 Define PAY 04 Payroll 5 Flowchart PAY 04 2 Code PAY 04 5 Desk check list PAY 04 1 Test data PAY 04 2 Test PAY 04 2 Pr...

Page 20: ...Test data PLD 02 2 Test PLD 02 2 Production test PLD 02 2 Complete documentation PLD 02 2 Define AR 01 Accts Rec 1 Flowchart AR 01 1 Code AR 01 1 Desk check list AR 01 1 Test data AR 01 1 Test AR 01 2...

Page 21: ...1 Test data AP 01 1 Test AP 01 2 Production test AP 01 2 Complete documentation AP 01 2 Define AP 02 Accts Pay 5 Flowchart AP 02 3 Code AP 02 2 Desk check list AP 02 1 Test data AP 02 1 Test AP 02 2...

Page 22: ...est INV 01 2 prod lction test INV 01 2 Complete doc lmentation INV 01 2 Define INV 02 Inventory 4 Flowchart INV 02 2 Code INV 02 2 Desk check list INV 02 1 Test data INV 02 1 Test INV 02 2 Production...

Page 23: ...2 5 Code SA 02 1 0 Desk check list SA 02 1 Test data SA 02 1 Test SA 02 3 Production test SA 02 4 Complete documentation SA 02 2 Total application development 16 0 Only one start and finish date shoul...

Page 24: ...s Receivable Sales Analysis Inventory 10 01 00 10 10 00 10 20 00 10 30 00 10 40 00 10 40 10 10 40 20 10 40 30 10 40 40 Section Subsections Page 10 00 Accounts Payable Payroll Manual System Documentati...

Page 25: ...ng your time rediscovering the old proce dures you can spend it in improving them Depending on whether you are converting from a Section Subsections Page 10 01 I 00 01 manual system or a punched card...

Page 26: ...metaphor they think they have been looking only at elms when some of the trees have been maples Wherever possible count the files yourself rough counts are usually adequate look at the completed not...

Page 27: ...f entry date of transcription date of processing 2 At least one filled in document The filling in should be done by the man who normally per Section Subsections Page 10 10 I 00 02 forms the job and he...

Page 28: ...If you do not your 1130 application design and program development will suffer and you will be forced to retrace your steps to get up dated facts The surveys in 10 40 00 will either verify the accurac...

Page 29: ...dures can be documented in two places Section Subsections Page 10 30 I 00 1 On your flowcharts where for instance control tapes are balanced to accounting machine totals 2 With the survey questionnair...

Page 30: ...mation required on invoices of invoices TERMS 1 Standard by customer variable by customer or other 2 Do salesmen have protected customers 3 Pricing flexible changed to meet competition in field 4 How...

Page 31: ...Customer b Type of merchandise c Quantity of merchandise d Salesman s quoted price e Total of invoice f Combination of above g Other Group discounts Discounts on total invoice a Standard by customer...

Page 32: ...invoice taxable 4 Other taxes excise etc 5 Whole percents fractional FREIGHT 1 Based upon weight Volume Explain 2 Examples of computation 3 Prepaid percent collect percent 4 Is freight cost known at b...

Page 33: ...invoice serve as picking document As bill of lading 3 Average number of body lines 4 Minimum depth of form 5 Preprint invoice number Why 6 Are back orders noted on invoice 7 What is the length of ite...

Page 34: ...ucts is most active At what time of the year 17 Are the products of a seasonal nature When What is increase in orders 18 What items make up largest percentage of total sales volume 19 How much item in...

Page 35: ...presently being used CONTROL AND EDITING INFORMATION 1 What is the editing procedure for invoicing Who is responsible for final approval of invoice 2 What controls are now established for accuracy 3...

Page 36: ...n overpayments 7 Can cash be applied to oldest balance or must it be selective 8 What accounts are involved 9 Can distribution be made at cash posting time 10 How many ledger controls are carried a Ho...

Page 37: ...ent of customers pay by a Statement b Invoice c Time pay 4 How many statements mailed a Total b Weekly c Monthly d Are they mailed to all accounts 5 If time pay is allowed explain circumstances 6 Do s...

Page 38: ...esirable 4 Is aging by invoice Oldest dollar amount 5 Attach a sample card complete with typical postings CREDIT REFERENCE 1 Does credit department refer to ledgers How often 2 Is a credit record othe...

Page 39: ...o substantiate reports 2 What can be added to present reports to make them more meaningful b Who receives each report c By what priorities are reports prepared d Are cost analysis reports generated 1...

Page 40: ...ction Subsections Page 10 40 I 30 02 Sales Analysis Questionnaire cont d 4 Control information a What are controls and editing procedures for above reports 5 What is present cost to derive these repor...

Page 41: ...in sequence by part number 3 How many transactions are there of each type a Receipts and returns b Issues c Miscellaneous 4 Are standard or economic order quantities used If so how are they determined...

Page 42: ...led b How much volume do you lose 10 How and when is a physical inventory taken By whom 11 What controls are set up and maintained on the inventory system 12 What is the cost of inventory maintenance...

Page 43: ...d 18 What comparative information do you need a Month to date b Year to date c Same period last year d Percent of comparisons 19 Where must current inventory records be physically located Section 10...

Page 44: ...ften are budgets depleted and how often are analysis reports submitted CONTROLS AND EDITING PROCEDURES 1 How are payable accounts reconciled 2 Who is responsible for editing before releasing checks an...

Page 45: ...ices received from same vendor with different discount dates How are they handled 6 Are any invoices paid before arrival of goods 7 Can one invoice be charged to two or more accounts PROCEDURE 1 Is a...

Page 46: ...esponsible for AIC distribution of invoice 5 Is apron or rubber stamp used 6 What percent of invoices contain items chargeable to different income and expense accounts 7 Is distribution made directly...

Page 47: ...emporary or permanent a How many can a man have b When c Does job carry a rate 4 How many shifts are there a What kind of bonus is there b How is it calculated 5 What is employee turnover 6 What YTD i...

Page 48: ...y objection to the use of spot carbon on check 7 Should check amount be protected 8 Is check signer used 9 Do you write payroll checks on more than one bank 10 How and when are vacation checks written...

Page 49: ...ciency standards established a By machine b By employee DEDUCTIONS 1 Voluntary 1 2 3 4 5 6 2 Involuntary 7 8 9 10 11 12 3 Average deduction amount a Voluntary 1 2 3 4 5 6 b Involuntary 7 8 9 10 11 12...

Page 50: ...est month total a Voluntary 1 2 3 4 5 6 b Involuntary 7 8 9 10 11 12 6 List the posting media for each 1 of the above 2 3 4 5 6 7 8 9 10 11 12 7 What reports must be furnished 1 2 3 4 5 6 7 8 9 10 11...

Page 51: ...d closes must checks be available Section 10 e How long does it take for changes to clear through the personnel department 11 Reporting a Who reports payroll source data Employees Timekeeper Foreman S...

Page 52: ...Form filled in for payroll Samples of all documents being used Flowchart all of payroll procedure Notice that the illustrations are shown in the order in which they are ordinarily developed After the...

Page 53: ...oses 2 To provide state and federal governments unions and other agencies with a record of moneys collected for them 3 To furnish employees with a personal record of earnings deductions and taxes 4 To...

Page 54: ...Section Subsections Page 10 50 I 20 01 Survey Form The following is a typical completed survey form Note that the answers are short and descriptive The survey form is always necessary...

Page 55: ...many can a man have Yvlcut ID 1 fC0v b When cL c Does job carry a rate 4 How many shifts are there l tyv Q a What kind of bonus is there 2 l Db Jul W I b How is it calculated te t 04 5 What is employ...

Page 56: ...eck le 7 Should check amount be protected 8 Is check signer used 9 Do you write payroll checks on more than ope bank 10 How and when are vacation checks written y t ru l 11 How are advances handled 12...

Page 57: ...2 Involuntary 3 Average deduction amount a Voluntary b Involuntary 1 Percentage of activity a Voluntary b Involuntary 1 2 3 4 5 6 7 8 9 10 11 12 e Q4 1 5 2 i 30 3 Ii e tr 4 5 6 7 1 1 5 0 8 15 0 0 9 0...

Page 58: ...media for each of the above 7 What reports must be furnished 8 How are salesmen paid 1 1 GJ 2tl H CY 3 1 i SO 4 5 6 7 t 3 8 I 5D1 9 I D Ie If 7 rrHT 11 1 i 1t i1 12 6 1 ttLehl l A Qc 2 l A 3 A jR t J...

Page 59: ...riod close l vvu T d How soon after pay period closes must checks be available 6 clcUO e How long does it take for changes to clear through the personnel department 11 Reporting a Who reports payroll...

Page 60: ...prevalent are rate changes mpo r permanent a How many can a man have 1 4 fU v Al N b When c Does job carry a rate Qtl 4 How many shifts are there a What kind of bonus is there b How is it calculated 5...

Page 61: ...to the use of spot carbon on check ll e 7 Should check amount be protected 8 Is check signer used 9 Do you write payroll checks on more than ope bank 10 How and when are vacation checks written Ci t...

Page 62: ...chine b By employee DEDUCTIONS 1 Voluntary 2 Involuntary 3 Average deduction amount a Voluntary b Involuntar 1 Percentage of activity a Voluntary b In oluntar 1 2 3 4 5 6 7 8 9 10 11 12 1 2 3 4 5 6 7...

Page 63: ...the posting media for each of the above 7 What reports must be furnished 8 How are salesmen paid 1 b trnT 2 t 4 3 t J h 4 D60 5 6 7 f 8 I CT 9 3 n 10 11 12 a Salary or standard commission V r T O MJ V...

Page 64: ...hanges to clear through the personnel department l 1A l 11 Reporting 12 a Who reports payro I source data Employees Timekeeper Foreman 4 t c 0 L t4 YL b What degree of control does the accounting depa...

Page 65: ...a typical collection of sample documents Note that both blank and completed documents are present It is always necessary to collect all documents both completed and blank for your current system Secti...

Page 66: ...10 50 I 30 02 ORDER NO CUSTOMER SQ FT NO OUT S U RUN NO PI ECES MAN HRS MANHRS RUN TOTAL SET TOTAL I TOTALS CLOCK NO NAME START STOP REG BONUS MACH DATE PI ECES MACH HRS SQ HRS SET UP ALLOW RUN MAKE...

Page 67: ...t f f t _r f t f f f f t ___ t t j __ r__ _ _ I f t f f t l t t t t t f f 1 _ r f 1 I TOTALS j t r r C K NAME START STOP REG BONUS MACH _ _ __ _ _____R_ B __ E_D ____ A__ N _____ t 8 _ _ 0_0___t 4 0_...

Page 68: ...Section Subsections Page 10 50 I 30 04 MASTER EMPLOYEE TIME SHEET NAME MON TUES WED THURS FRio SAT TOTALS BROOALONA J CLOY C CRASWELT F DAZDEL M DORLlN J FOLLORE R MI ROHOSE V PANUNI D WALLJAMS J...

Page 69: ...ME SHEET NAME MON TUES WED THURS FRI SAT TOTALS BROOALONA J 8 3 8 B 8 4 0 CLOY C 8 3 8 B 4Z CRASWELT F 8 8 z 8 8 42 DAZDEL M 0 10 0 8 8 40 DORLlN J 8 8 8 B 8 40 FOLLORE R 9 8 8 9 9 e 43 MI ROHOSE V 8...

Page 70: ...ubsections 50 NAME SAT MON TUES WED THUR FRio I 30 TOTAL FIRST SAT MON TUES WED THUR FRio Page 06 START STOP WEEK TOTALSECON DWEEK TIME SHEET TWO WEEKS ENDING LUNCH TOTAL HOURS CHECKED BY APPROVED BY...

Page 71: ...WEEK SAT 8 5 MON 8 5 TUES 8 5 WED THUR 8 5 FRI 8 5 TOTAL SECON DWEEK Section Subsections 10 50 I 30 TIME SHEET TWO WEEKS ENDING 2 2 8 LUNCH HOURS WORKED z 2 30 13 12 30_ 30 12 1 2 IZ 12 2 z z TOTAL H...

Page 72: ...Rahd Eff Hours Rate Overtime Actual Mach Man Allow M U Bonus Hours Dollars M T W T F S S This Week Prevo Wks To Date PRODUCTION LABOR REPORT Week Ending Rate Machine Shift M M Standard Hours Non Actua...

Page 73: ...9 1 I 90 132 5 70 1 1 7 13 4 3 d 2 2 5637 7fIJ 7 6 J J 70 9 I 9 I i9 67 J 14J 0 5 0 I z 6 9 7 J 7 Z7 J To I Date 16 j II 95 1 1 6 J 13 2 J 9 99 f 213i 6 i i O 7 11 7 I 7 f 9 IJ39 PRODUCTION LABOR REP...

Page 74: ...ATASTROPH E C YEAR SICKNESS EMPLDYMENT RECDRD DATE RATE PER SECOND CONTINUED CA DISCIPLINE 0 1 I Z UNAVAILABIliTY IN OUT REASDN oC THIRD LABOR DISPUTE LD SELF EMPL D SE I i 6 FOURTH I I C TOTAL II EAR...

Page 75: ...15 Z 16 4 tff I r Ilfr 17 1B 5 ZIl 1 19 6 3 1 20 l7 1 7 21 1 22 1 23 1 24 1 25 26 OTR ll a W 2 EARNINGS REG RATE OVERTIME OTHERS TOTAL 7t 23 19 5 J5MV s 1311I1tJt J 7 f2 J6f2 76fZ3 769 3 76fZ3 Ja dtJ...

Page 76: ...30 12 EMPLDYEE 10 12 13 14 IS 16 I 18 20 21 23 24 25 26 28 29 30 TOTALS THIS SHEET TOTALS AOM PRECEOING SHEET TOTALS Hau WQIIKEO PAYROLL REGISTER TIlT TIIT_L DU IIDD INOI SHEET NO _ __ PAY PERIOD ENDI...

Page 77: ...35 P7 11 7 7 1 60 4 0 1 1 10 24122 7565 11 J REY VOLOS 763 40 36f 2 5 36 5 1 26 58 77 6 67 28755 7 12 h ORLICK 7G4 4tJ S3 2GS 38 1 7 421f 21 4f 7587 13 7 1 PRITChl4RO 74 5 40 SCJ J tJ v ZZ6tJ stJ OC 3...

Page 78: ...O 2 TO THE NATIONAL BANK TRUST CO I OF COLUMBUS WASH I I W l I _ I 0 _ _ _ _ 1_ _ t 2 2 68t 4 O 4 150 1 80 10 t0 0 OO O I0 90F 18 O I0 901F 7 18 l 3 1 6 r I0i 6e b10 t0 1 4 1 1 1 29 1 181 I PERIOD REG...

Page 79: ...Cards Production Report Master Employee Time Sheet Master Employee Time Sheet Calculate Gross Pay Post to Payroll Register Machine Activity Report Section Subsections 10 50 I 40 Administrative Employe...

Page 80: ...I 40 Page 02 Calculate Statutory Deductions Voluntary Deductions and Net Pay Write Check Check Stub and Post to Payroll Register and Earnings Records Total Each Column of Payroll Register Employee Ea...

Page 81: ...te Year to Date Totals Post to Earnings Records Type 941A Quarterly Procedure Write W2 year end only Original 941A Summarize Earnings FICA and FIT to 941 1st Copy 941A Sent to Local Government Prior 9...

Page 82: ...Data File 15 10 50 Your Backup Requirements 15 10 60 Record Size 15 10 70 other Considerations 15 10 80 Summary 15 10 90 Section Subsections Page 15 00 I 00 01 How to Safeguard Your Disk Data Files 15...

Page 83: ...y questions regarding data storage Two of the more important are Section Subsections Page 15 01 I 00 01 Should I use cards or disks for my data files How can I safeguard my data This chapter answers t...

Page 84: ...d on a disk cartridge or in the form of a card deck The disk can be an extremely powerful medium for the storage of your data however it can be mis used Some data if placed on the disk will cause your...

Page 85: ...directly access Section Subsections Page 15 10 I 10 01 any record regardless of which record was proc essed last or which record is next This allows you complete flexibility in the order of processin...

Page 86: ...umber 70976 in the job cost file and add 12 5 hours to its weekly total all within one program A card file system would involve 1 Sorting and collating the employee detail cards with the employee mast...

Page 87: ...ard for new item number 1705 and place it in the card deck between items Section Subsections Page 15 10 I30 01 1704 and 1800 It is not quite so simple on the disk where items 1704 and 1800 are probabl...

Page 88: ...ssen or eliminate these points entirely If someone within your company requires say the current status of inventory it may be possible to replace his 5 x 8 card file with a daily listing of stock stat...

Page 89: ...er things being equal putting very small data files on the Section Subsections Page 15 10 I 50 01 disk is sometimes not worth the extra effort and very large data files will not fit on the disk Most f...

Page 90: ...any of these accidents by patching torn cards duplicating watersoaked cards etc it is not too common to find duplicate sets of master card files maintained Data files kept on the disk cartridge are su...

Page 91: ...records that are kept in card form Section Subsections Page 15 10 I70 01 Each record may require four or five cards which must be identified and kept in order On the other hand disk records may be as...

Page 92: ...previously there may be others of equal or greater importance factors that may be completely unrelated to the particular data file under study Some typical factors are the storage cost of many cards...

Page 93: ...Subsections Page 15 10 I90 01 Some companies especially those installing their first data processing system realizing that their files fall on the borderline decide to start with card data files Their...

Page 94: ...ensitive to accidents Punched cards can be folded spindled and mutilated even torn crum pled splattered with coffee etc without disas trous results A few minutes or hours at the keypunch can remedy al...

Page 95: ...atic seldom changing but the latter three probably change every pay period 01 If an accident occurs you should assume the worst possible case the entire record for every employee is lost How would you...

Page 96: ...place As in the case of physical hazards there is very little else that can be said about this sensitive area except that common sense must be used 3 Accidental modification Every program that writes...

Page 97: ...a few minutes spent in planning can save many frantic hours or days in keypunching and Section Subsections Page 15 20 I 30 01 computer reruns An accident may never occur but it would be foolhardy to...

Page 98: ...h the business so that they can recognize outright mistakes on source documents Programmers should be urged to build reasonableness checks into their programs For example a program that reads employee...

Page 99: ...nd fix the 56th man later Possibly but how This would require a special program to correct his now erroneous disk record It would Section Subsections Page 15 20 I 50 also require a handwritten paychec...

Page 100: ...is completely destroyed No matter how improbable or infrequent you think this might be it can happen How do you recover If you dump the data file every week you must Reload the dumped deck 30 minutes...

Page 101: ...ction Subsections Page 15 20 I70 01 If a program checks the input data for errors as it certainly should the error messages should be self explanatory or be keyed to a document that ex plains exactly...

Page 102: ...TION OF WHAT IS WRONG DE7AIL CARD M AI NUlv18ER JJJJ 5 LOWER TH I I LI1ST C LfR D WI IICH W4 MMMM 75HOUL O BE GQUAL OR HIGHER PROBABLE CAUSE TilE DET L C _ D JUST READ 5 IIV Tf IG WRONG PL CE IT 8eLO...

Page 103: ...EET JOB PROGRAM NAME PROG RAMMER NAME PAUSE DISPLAYED IN ACCUMULATOR MESSAGE TYPED I I I I I AFTER PAUSE CONTROL TRANSFERS TO STATEMENT DESCRIPTION OF WHAT IS WRONG PROBABLE CAUSE RECOVERY PROCEDURES...

Page 104: ...duction 20 40 01 Data 20 40 10 Field Size 20 40 20 Data Sequence 20 40 30 File Organization 20 40 40 Section Subsections Page 20 00 I 00 01 Record Format and Blocking 20 40 50 File Processing 20 40 60...

Page 105: ...tion Subsections Page 20 01 I 00 01 5 Establish procedures for accounting controls where you need them They may be different from those you are using now Steps 2 5 are usually overlapped to a large ex...

Page 106: ...ints out the types of control that are required and serves as a review if you have set up and used controls before It ends with a short summary The second part More Specific Suggestions for Document a...

Page 107: ...tracing from becoming too cumbersome On Section Subsections Page 20 10 I 10 01 the other hand it is not reasonable to control each document separately As the documents enter the process A2 the same c...

Page 108: ...or transaction have an AI associated punched card Do figures meet reasonableness tests Are all necessary fields filled with information Register provides an audit trai I Do the card output records ba...

Page 109: ...ntrol operations should be documented and assembled for reference and train ing purposes Section Subsections Page 20 10 I 10 03 6 Whenever possible control operations should be mechanized 7 When docum...

Page 110: ...the procedure The illus trated document register for sales orders not only discloses a missing or misplaced document but also indicates any delays in processing as might be the case with order 12843 w...

Page 111: ...C DATE f ROM NUMBERED 17 3 S j ldY NO Of DOCUMENTS f ROM TO RECEIVED ATTACHED DOCUMENTS SPECIFIED ABOVE DATE I SIGNATURE I ASE SIGN AND FORWARD THE CO Y OF THIS BATCH CONTROL TICKET TO SENDING O T WIT...

Page 112: ...ulations and processing may be re viewed and changed from time to time Examples of such factors are discounts selling prices credit limits commission percentages and in ventory reorder levels Controls...

Page 113: ...FROM Marketing THE FOLLOWING PRICE CHANGES SHOULD BE MADE ITEM NO DESCRIPTION NEW PRICE 12 2685 PEA SOUP 6 001 12 3074 ORANGE JUICE 3 857 1 3 1111 HAND SOAP 2 200 13 2954 CONDENSED MILK 1 639 13 4182...

Page 114: ...possible to detect a change in Sign during arithmetic operations and either stop the machine or signal the condition for subsequent review In payroll applications the sign check is used to indicate t...

Page 115: ...ransaction with its original source document Section Subsections Page 20 10 I 20 06 2 A system of accounting controls which proves that all transactions have been processed and that accounting records...

Page 116: ...0 MAIZE qE INING CO 1 30 2 10 1 121 2 NEWTON AAIC NO co NEW ME I CO CO P NY 780510 pi 0 0 5 ANO ELEC CO g 1235 vESTAL STEEL co 7 1 1 1215 WINTERO LE Fit I LWAY 21 1 12351 0 Io 12l 12l l I 42 021 3054...

Page 117: ...persons familiar with punched card processing deals with 1130 considerations only Section Subsections Page 20 20 I 00 The second portion is more detailed and serves as an introduction to the subject...

Page 118: ...e on special paper for splitting printed at the same time This teclmique can double your output or can avoid the need for extra runs or extra carbon copies where the number of required copies is large...

Page 119: ...m length is compatible with the spacing to be used Include a guide for forms alignment in the printer 5 Make a test using a copy of the proposed form Examine the report carefully to make certain that...

Page 120: ...ut bursting them or binding them on the side binding hole s can be punched in both the top and bottom of the forms Carbon copies Substantial savings can be real ized by mininizing the number of carbon...

Page 121: ...y crimped so they won t catch on guide edges or staples in succeeding forms Not cause excessive bulging during feeding particularly at the out fold 03 Form types Depending on its purpose and des tinat...

Page 122: ...information that will be useful to a person who has had punched card experience but wants to become familiar with the considerations unique to the 1130 The second deals with more basic card design pri...

Page 123: ...y be printed by the 1132 Printer Section Subsections Page 20 30 I 10 4 Normally an II punch over the units posi tion of a field indicates to the 1130 Commercial Subroutine Package that a field is nega...

Page 124: ...included in the second card if sorting is required Some techniques to be considered for reducing the number of card columns are Reduce the size of reference fields by repeat ing the numbering series...

Page 125: ...n mind 1 Field and box headings should be explicit and fo rce writing into des ired locations 2 Adequate space should be allowed for accom modating written information Section Subsections Page 20 30 I...

Page 126: ...two different intangible records those in core storage and those on the disk cartridge Although the storage media are different the design consid erations are the same The items discussed in this sec...

Page 127: ...applications It may be more practical to include an extra field now than to reorganize your files later Study the feasibility of consolidating existing data files into a single data file to eliminate...

Page 128: ...4 320 with waste Or if possible reduce the record size to 53 words which permits 6 records per sector File Size Total Number of Records Since the field size affects the total record siz e all unnecess...

Page 129: ...ence desired on the output unit Location of like fields in the same relative record pos itions in files that work together This Section Subsections Page 20 40 I30 ensures that sorting and controlling...

Page 130: ...both the processing and the stored file can be more positive Less storage space is required Frequently the entire file need not be online simultaneously Indexed Sequential Disadvantages More core stor...

Page 131: ...s 320 words that may be recorded on each sector Section Subsections Page 20 40 I50 01 2 Core storage requirements Since rocs handles physical records for I o operations and con tains a core storage ar...

Page 132: ...d be kept in aseparate name and address file This new file would be used perhaps only as output documents are printed Extract from the master file the active records for processing This method is usef...

Page 133: ...ther the items of input data have a logical relationship to one another or to the file they affect For example Section Subsections Page 20 40 I 70 01 if an employee adds a bond deduction a bond denomi...

Page 134: ...ly a dynamic disk file should be copied dumped on paper tape on cards or on another disk Often the copy can be made as a by product of a periodic run All transactions since the last dump must be retai...

Page 135: ...e individual plants are checked Section Subsections Page 20 50 I 10 01 summarized keypunched and verified Time sheets submitted by the plant payroll departments are keypunched and verified All these c...

Page 136: ...oard Figure 20 8 card Figure 20 7 card Check no 5 digits keyboard Check maximum amount 5 digits keyboard Clock no if requested 4 digits keyboard Figure 20 7 card Plant no 1 digit keyboard Figure 20 10...

Page 137: ...64 65 66 67 68 69 70 71 72 73 74 75 76 77 71 71 80 Figure 20 2 c C Social 0 Gross Local Credit iii J l Clock Pay Security Earnings FICA FIT Tax Union g Union i No Rate No Q YTD YTD YTD YTD Deduction...

Page 138: ...Rate u u Blank 0000 000000000000000000 000 00 0000 00 00 0000 0000 0000 0000 0000 0000 000 000000000000000000 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 2l 24 2 2 28 31 n M35 37 39 41 4243...

Page 139: ...30 31 3233 34 35 36 37 38 39 40 41 424344 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 727374 75 76 77 78 79 80 Figure 20 6 Total Total Total Total Total Plant Chec...

Page 140: ...al Special Special Pay Local Credit Union Other No Hours Hours Hours 0 Earnings 8 Earnings Rate FIT Tax Union Dues U U Earnings Gross Net FICA D eductlons ro 0 o0 0 0 00000 0000 00000 0000000 000000 0...

Page 141: ...a9W U U17UUm N n M V q M M u ronnnu nnnn Figure 20 10 Clock No Blank 0000000000000000000000000000000000000000000000000000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 00000000000 1 2 3 4 5 6 7 8 910 121314151617...

Page 142: ...7 6 9 10 11 12 13 14 15 16 17 18 19 ro 21 22 24 27 28 31 32 M 37 41 42 43 45 47 49 00 51 52 55 57 59 61 62 M 67 69 70 71 72 73 74 75 76 n 78 79 80 Figure 20 12 Company Name Blank 000000000000000000000...

Page 143: ...45671IWll U n N a a M n M M M u ronnnu nnnn Figure 20 14 City and Zip Code Blank 00000000000000000000000000000000000000000000000000000000000000000000000000000000 1 2 3 4 5 6 7 8 I 10 11 12 13 14 15 18...

Page 144: ...333333 33333333333333333333333333333333333333333 4444444444 4444444444444444444 4444444444 44444444444444444444444444444444444444444 5555555555 5555555555555555555 5555555555 5555555555555555555555555...

Page 145: ...t PAY01 None PAY02 None PAY03 None PAY04 Figure 20 18 Figure 20 19 PAY05 Figure 20 19 PAY06 Figure 20 20 PAY07 Figure 20 21 PAY08 Figure 20 17 PAY09 Figure 20 22 PAYlO Figure 20 23 PAYl1 Figure 20 18...

Page 146: ...ls 6 and 7 I I I I I I I I I I I 1 I 1111 1 11 11 III 11_1 J l 1 J IBM 1403 f0dels 2 N1 and 1404 llTTTl TiTTTTrT I I I J Tl TlTTl TrTrTTnTl II If IBM 1443 Models 1 N 1 an 2203 _ 0 1 2 3 4 5 6 7 8 9 10...

Page 147: ...cTTnTUllT r TTTr TT TTTrTT T TTTITTTT1 lr fiT T i I 1 1 1 1 1 1 1 t rr I I tj 7 r 14 il r Gr i m d 4 O 3M O de ls 6 a dt j j J J J 1 1IB M 1 403 M O de II 2 3 15 N 1 a0n d 1 4 04 f _ _ _ _ _ _ _ _ _r...

Page 148: ...JT r h r ii IBM 1443 Models 1 Nl an 2203 I I 1 I o 2 3 4 5 6 7 8 9 10 11 lCT 2 3 4 S716 7 8r o9t 0 r 1T 2 r 3 4 S r6 r J7 8 0r lr 2 r 3 r4 S cI6 7 8 9 0 1 2 3 4 SI6 7 89 O 1 213 4 S 6 7 8 9 0 1 213 4...

Page 149: ...INGS WORD MARKS 8 Lines Per Inch IBM 407 408 409 1403 1404 1443 and 2203 ILL J LL I II Figure 20 20 I I I Print Span I 1403 odels 1 4 i I I liL Lil I III I LLL J 407 408 409 and 1 q3 Models 6 end I 14...

Page 150: ...C CIl 0 407 4 18 409 and 1 193 Models 6 clnd 7 I j il I i I I I I 11111111 I I III i 1 OIJ J it Al JS f i IBM 1403 Aodels 2 3 5 N1 and 1 I I i J J I I III I I J I I I LII I I I I I I 1111111 I 11111...

Page 151: ...I Ii I I 10 o 2 3 I 4 5 6 7 8 9 11 1 1 2 3 4 S 6 7 a 9hO 1 2 3 4 S 6 T7 a 9 O 2r 3 r4 1CSOr6 7 r 8 9 0 1 213415 617 89 0 1 2 l 4 5T6 7 819 011 2 34 S1617 819 0 1 2 3 1 2 3 4 5 67 8 9 0 1 23 4 5 M7 89...

Page 152: ...8 409 1403 1404 1443 and 2203 Print Span _L 1403 dels 1 H I I L IL U III I L I l 0 r O 01 en 0 c 0 10 407 4 8 409 and 1 3 Models 6 nd 7 I 1 I 1403 Aodels 2 3 5 _N1 and 1 I LLULI ilLJ l_L II L LJ I L r...

Page 153: ...CORPORATION t PRfNTER SFAClh1G CHART r IBAA A07 408 409 1402 1401 1443 and 2203 Print Span I IB 1 LINE DESCRIPTION fiELD HEADINGS WORD MARKS 8 Lines Per Inch Figure 20 24 en CD 0 o J I l CJ C 0 0 fJ C...

Page 154: ...mIk t t l n Hr rr rrrr rrn T r C T H r r i 7 rr e I Hr rh T r o H rH Hr 2 I g N t if i L ___ 1 i i L rf t Hr rlrre r Hr t 7Hf A _ c 1 m i l Hr rrrr rrHH rrrH rrH rr T r H 7 r it rH rr c r Hr Hf 1 4 rr...

Page 155: ...I I I I I I II I II I I I I I I I I I I I I i I i INTERNATIONAL BUSINESS MACHINES CORPORATION PRINTER SPACING CHART IBM 407 408 409 1403 1404 1443 and 2203 IBM 1443 lIodels N I I i I I i I Print Span...

Page 156: ...Section Subsections Page 20 50 I 40 01 Disk Record Formats Employee File Figure 20 28 Index to Employee File Figure 20 29 Company Record in the Corporation File Figure 20 30...

Page 157: ...2 I J 0 en en Q 0 c c e E E J 0 Ci 0 ttl Q E X X x II Name en e J Q 0 0 L1J ttl c e en E ci c J Q Q ttl ttl I Q 0 i u ci Q Q I I I I I I I I I I 5 6 10 11 15 16 20 21 Year to Date Information 40 41 45...

Page 158: ...I Trade Association Information I I I I I I I I I I J I J 20 21 25 26 30 31 35 36 I I 5 6 Available I I I I I I I I I I I I I I I I I I 65 66 70 71 75 76 80 81 Figure 20 30 Plant Name I I 10 11 I 40 4...

Page 159: ...01 System Flowchart Clock No and Name EAX Q 2 ADD NAMES File create initially and as necessary Zero Balance Totals Clock No and Name Employee Earnings Record fAY 1 INPUT EDIT fAY Ql FILE CREATE Out of...

Page 160: ...nce Total File changes weekly Changes EAY 1 Q INPUT EDIT O K Control Total Changes FILE CHANGES Total on Adding Machine Out of Balance Section 20 Subsections 50 I 50 Control Total Control Total Change...

Page 161: ...roll Register Page 03 Payroll calculations and register weekly Weekly Time Sheets Details f8Y 1 INPUT EDIT Control Totals Details PAY 04 CALCULATION Totals on Adding Machine Control Totals Out of Bala...

Page 162: ...weekly PAY 05 PAYROLL CHECKS Only When Totals Balance PAY 06 CHECK REGISTER Control Totals Pay Checks and Stubs Control Totals Check Register Control Totals Section 20 Total on Adding Machine TAPE Su...

Page 163: ...Section Subsections Page 20 50 I 50 05 Only When Totals Do Not Balance Payroll check voiding as necessary Disk Payroll File PAY 11 VOID CHECKS Control Totals Control Totals Details Details...

Page 164: ...dit Union Register Stock Deduction Register PAY 13 UNION DUES PAY 14 CREDIT UNION PAY 15 STOCK DEDUCTION Payroll deduction registers monthly PAY 12 RESET MONTHLY TOTALS Section 20 Subsections 50 Gener...

Page 165: ...ed Control rotals Tax Worksheet I 50 Page 07 PAY 07 AUDIT FILE BY COMPANY PAY 09 s4I REPORT PAY 10 TAX WORKSHEET Pa Toll file audit 941 and tax worksheet quarterly Enter Plant Number Plant Numbers 941...

Page 166: ...W 2 Reports Print W 2 reports annually PAYnn w2 REPORTS Plant Numbers Section 20 Subsections 50 I 50 General Ledger r TAPE Plant Numbers Page 08...

Page 167: ...e 09 Error detection and correction as necessary PAY 08 INQUIRY Use PAY 16 PAY 03 to Change the Disk Payroll Record Return to Print Where Error Occurred Only when entire original error has been correc...

Page 168: ...Remember all of these pages are developed by this point in your system design In addition they Section Subsections 20 50 I 50 now become a part of your system documentation see Section 35 Page 10...

Page 169: ...Work Measurement Aids Commercial Subroutine Package CSP Your IBM representative can help you determine which programming language or application program should be used to implement your system In add...

Page 170: ...d the object program and or error indications are Section Subsections Page 20 60 1 10 01 punched into the first 20 columns of each source card If paper tape is used the second pass results in the punc...

Page 171: ...10 02 certain errors in the source program and writes appropriate messages on the console printer 1132 Printer or 1403 Printer At the user s option the compiler also produces a listing of the source...

Page 172: ...r facilities The Section Subsections Page 20 60 I20 01 technique seeks to attain a particular objective for example minimum costs or maximum profit when there are alternate uses for the resources Line...

Page 173: ...and drilling prospect the programs compute the payout period and rate of return using the discounted cash flow method Casing Design Program allows the user to design the most economical combination c...

Page 174: ...0 60 I20 03 Statistical System This is a collection of four major tools stepwise regression analysis factor analysis analysis of var iance and orthogonal polynomial curve fitting This flexible system...

Page 175: ...engineering user with added capabilities for handling functions and techniques common to commercial programming It is a set of 28 subroutines callable by the FORTRAN programmer in a similar manner to...

Page 176: ...RTRAN augmented by the Commercial Section Subsections Page 20 60 I 30 Subroutine Package and Scientific Subroutine Pack age is more than capable of handling almost all applications is easier to code a...

Page 177: ...g Examples Introduction 25 01 00 25 10 00 25 20 00 25 30 00 25 30 10 25 30 20 25 40 00 25 40 01 Example 1 Example 2 Example 3 Example 4 Example 5 Example 6 Example 7 Section Subsections Page 25 00 I 0...

Page 178: ...rt a group of examples of coding required to Section Subsections Page 25 01 I 00 01 implement a significant part of the payroll system discussed earlier They will prove useful in pro viding a starting...

Page 179: ...er minor triple after intermediate and up when tab bing single space after minor double after intermediate triple after major and up c Define how totals are to be indicated with asterisks or message d...

Page 180: ...in order to avoid confusion and PROGRAM CHANGE AUTHORIZATION Application _______________ Program ______________ Requested by ______________ Date I I Change Authorized by Date Authorized I Date Coonge...

Page 181: ...RAN CODING FORM Punching Graphic 1 I I I I Punch I I I I I FORTRAN STATEMENT 30 35 40 45 1 1 1 1 1 1 1 1 I F LLc I Instruction I I ICard Form ll I I II 50 55 60 1 1 1 1 I J 1 I Poge I 73 of Form X28 7...

Page 182: ...at one time Again program revision at a later date can be Section Subsections Page 25 30 I 10 01 difficult and the problem is intensified if the revi sion is being done by someone other than the origi...

Page 183: ...2 VARIABLES IBM I 1130 COMPUTING SYSTEM VARIABLE SUMMARY SHEET Vl a c 21 Application Date 0 w J MAX MIN NAME 1 0 j VALUE W 0 VALUE Program Name No Programmer 0 O 0 ci 2 z FUNCTION OF VARIABLES Mode I...

Page 184: ...t or iJe q r t ch c l t n r t Ae J uN f UI Ch c es each rva yeo I I T 250 f Record r er 1 c 17p o ee e e s se 1 PL4 1 fA Z T o 15 Rle r1u nbe t P d4 X Pc r a t I 0 eJO fA OEX I 2 T X X I rd i f 74 x...

Page 185: ...fic new situation This may be because of changing company policy varied environmental parameters or different management objectives Your programmer then has the problem of crea ting a program that can...

Page 186: ...25 30 I20 02 b A multiple use subroutine must be well documented for the purpose of program modification Comments cards should be used to indicate which processing routines call upon each multiple use...

Page 187: ...s of detail 5 Create the test data so that every leg of your routine will be thoroughly tested 6 Write the detailed narrative of your routine It is easier to document your routine when the information...

Page 188: ...ystem Note that these Section Subsections Page 25 40 I 01 01 examples are programming illustrations and there fore may not be considered as complete usable programs The programs are arranged in the or...

Page 189: ...a range of values are checked to ensure that they fall within the range statements 100 through 109 This provides an effective control of the information being stored on the disk 5 Program identificati...

Page 190: ...tialize Variables Setup Name Field Retrieve Company Name Setup Quarter to Date Information Check the Data for Reasonableness Yes Initialize Trade Association Information Section Subsections Page 25 40...

Page 191: ...3 333 3333 33 3333 333 3333333 33333 33333 33333 33333 3333 3333 333 3333 333333 33 333333333 44444 444 4444 44 4444 444 4444444 44444 44444 44444 44444 4444 4444 444 4444 444444 44 444444444 55555 55...

Page 192: ...S 1t or i3e q nl J4 cA c i 1 m e J Wr f NCj ch ces each rd 7 Ieo I I T 250 1 Record tJA JerJ5 E 1 p a Y e es ser 6 1 pLA fA Z 1 T o e rJun7be t d J POI a t r p I cJO L LJEX 2 T x x x liP If J f 4e K...

Page 193: ...L57 r T 2 50 5 tt s recortr l vn 6 r q e LY k WR I I 0 Til S dt lr s dCCth U lf ho 7 tJ hOd s ulOr l t r r vt _ On PQ A4 I I r U set7 Do loop WAR Z 6 2 I A4d a 1 s 1 1 IS l s g ehrP Y drr ed MI A C E...

Page 194: ...a rvll h e 4 0 1 u t t pdr r 1 e J rt n r1 rt d VSTCK I 11 0 xx xx ct slock c Rc vcr CJn A STkZJ I I 0 r rJ Mc7 J h s ocJ decluch ns Nt A Z I t tJ X XX rJ ec a e d cledvc l pr7s V t M tJ xX XX I CL t...

Page 195: ...rI 1 t I I I I 1 01 1 01 1 1 X 3 I I 1 31 I I A standard card form mM electro 888157 15 avallable for punchmg source statements from thlS form IB 1 FORTRAN CODING FORM Punching Instructions Program P...

Page 196: ...ORM Punching Instructions Grophic Card Form PunCh FORTRAN STATEMENT 30 35 40 45 50 I A standard card form mM electro 888157 is available for Pllnching source statements from this form Section 25 55 60...

Page 197: ...I as I I 1 0 bIA 1 11 1 3 I I I 1 b B I S J PIP Z 0 I I I I I I I TO T I I L I I L J T O TI 2 L 2 p 1 J TO I 3 1 2 0 I I I I 1 I J 0 TI 5 I z s I I I I I I I T 6Til b 12 I I I I I I IT o rd7 101 2 7...

Page 198: ...Ie PIll th I I I I I I I I I 4 R T hi l l 0 I I I I I i J T d 01 I I I I I I I I I 1 0 Iq M JI J J I I I I I I I I L lit YTb IM I I I c I I _1 I IB Form X2B 7327 4 Printed in U S A FORTRAN CODING FORM...

Page 199: ...1 1 1 I I I S L S T 2 0 d I I r o n I dd J 7 2 3 I 1 1 i o 1 10 j 1 I I I 1 1 1 I S if L ST 1s 0 I I 1 I 1 1 I 0 TIO 5 7 I I 1 I 1 I 1 1 ss L S T I 1 S dJ I I 1 1 1 I 1 1 I I I L T Q TI 4 rbl I I 1 1...

Page 200: ...g Instructions Page of EAY oLL L4doll II Lzl I IiCard Farm Program 5YST6 1 Graphic Identification Programmer CREATi ON IDote I cp I t I I I ll I I IP8 r1 I F 1 6 Punch 73 60 _ C FOR COMMENT STA1 MENTI...

Page 201: ...11 2 I Punch 73 80 C FOR COMMENT STATEMENT c FORTRAN STATEMENT NUMBER I 5 6 7 10 15 20 25 30 35 40 45 50 55 60 65 70 72 c 1 I 1 i I I 1 I I c __ 5ETIUfJ E MIP oY IE S TAIT lJ C b E 13 rA r i x EMrP T...

Page 202: ...L I 1 I C A L L I s r A Ci ldY 2 IIrIAlI b UES u J 3 I tlJlI 110 I I 1 1 1 r J 3 tI DUElS I I I I I I I I C A L LIS rAC IK I I dJ I iIJ l AS L I F CII O P L T 3 I 2 IdJ I lSi I 2 D s N b U tIS m I 20...

Page 203: ...of Identification il 6 I l 1 73 eo 55 60 65 70 1 1 L I L I 1 I I I I I WR I TIE N o 1 1 1 r L NtUMMAMf2 NS s AM Als 1 IASNI b VF s NW MPIlWtK p il I 1 1 I MJIr f NIX PF AI NX M PIS IIISIE x NIR A T E...

Page 204: ...1 rl Ii F 0 I I l A rr J II I I c I I 1 I I J I t btJI Ib c 15 I II I I I I _I I J sdJ IF I6 RolE r laS I I I I I C _ 1 t r I IBM t orm X28 7327 4 Printed in U S A FORTRAN CODING FORM Punching Instruc...

Page 205: ...Punch 73 80 rs C FOR C MMENT STA TEMENT c FORTRAN STATEMENT NUMBER 3 I 5 6 7 10 15 20 25 30 35 40 45 50 55 60 65 70 72 C I I I I I I I I I I I I c rJ fJ TlrE TI flE A c ORb ID T U r s f L ANT7io l I51...

Page 206: ...by changin the name field in the master record Note that only the variable name in the output list has been changed Section Subsections Page 25 40 I 20 01 2 Searching an Index The index to the file c...

Page 207: ...When it has been vali dated proven greater than zero and less than 16 the code is used as the index for a computed GO TO statement statement 140 This saves the program a set of IF statements each stat...

Page 208: ...e printer 3 Zero balance test The control totals are compared with accumulations produced during the Section Subsections Page 25 40 I 40 01 processing of the file The original control totals the accum...

Page 209: ...E and EDIT PUT converts from real format to Al format MOVE moves information and EDIT inserts and removes characters Rather than repeating the statements that perform these three operations each time...

Page 210: ...ine containing check number employee clock number employee name and net Section Subsections Page 25 40 I60 01 check amount is composed When three employees have been placed on one line the line is pri...

Page 211: ...te that a count of the lines printed on each page is kept see statements 195 5 and 150 In this way headings can be and are printed at the top of each page in the report Also notice that the plant tota...

Page 212: ...Section 30 TESTING EFFECTIVELY CONTENTS Introduction 3O 01 00 Testing Strategy 30 10 00 Testing Tactics 30 20 00 Section Subsections Page 30 00 J 00 01 Testing Hints 30 30 00 Summary 30 40 00...

Page 213: ...d punching can be detected by a careful review of the material Key verification should always be done and it is essential to proofread coding sheets before they are punched The most common errors occu...

Page 214: ...ly The test cards should be created then listed For each set of test data a prediction of the re sults that will appear on the output forms or cards should be made Then when actual testing is per form...

Page 215: ...ord is used the value of the assigned variable is printed as it is calculated with one leading asterisk Section Subsections Page 30 20 I 00 01 As an optional use you can elect to trace only selected p...

Page 216: ...ecution of a program and printing the result of every replacement operation only selected variables and or fields will be printed Use of the FORTRAN WRITE statement or the 1130 Commercial Subroutine P...

Page 217: ...hed use Commercial Subroutines READ and PRINT for overlapped I O Section Subsections 30 30 I 00 2 Ask yourself What must be done to re create information if the disk cartridge is lost How long will it...

Page 218: ...s 5 Manually simulate the computer process using test data 6 Compile the program 7 Perform error analysis with error listing and program printout 8 Correct the program a Card programs Correct the sour...

Page 219: ...in the reader or punch Section Subsections Page 30 40 I 00 02 f Debugging at the console is time consuming error prone and generally nonproductive When the program hangs up the following steps should...

Page 220: ...which you spent too little d Did the test point up any areas of weak ness in the coding If so are these types of errors documented so that stronger emphasis can be placed on them during future coding...

Page 221: ...allation Manuals Program Information Manual Operation Manual 35 01 00 35 10 00 35 10 10 35 10 20 Section Subsections Page 35 00 I 00 01 Documentation Examples 35 20 00 Payroll System Program Informati...

Page 222: ...ctions Page 35 01 I 00 01 You should develop two manuals the program information manual and the operation manual Your basic library will consist of these two manuals to gether with this 1130 User s Gu...

Page 223: ...inimum amount of machine time Well docu mented logic is also valuable when the program is changed from time to time either by the author or by another programmer who may be completely un familiar with...

Page 224: ...ction Subsections Page 35 10 I 20 01 Behind each application divider should be a job description followed by a system flowchart of the entire application Behind each program divider should be all in s...

Page 225: ...ION EXAMPLES The examples in this section show the necessary documentation for those runs in the Payroll System which were coded under Section 25 Note that these examples are illustrations and therefo...

Page 226: ...Section Subsections Page 35 20 I 10 01 PAYROLL SYSTEM Program Information Manual...

Page 227: ...Section Subsections Page 35 20 I 10 02...

Page 228: ...Flowchart 0 0 0 0 0 0 0 0 37 Program Listing 0 0 0 0 0 0 0 0 38 Test Data Listing 0 0 0 0 0 0 0 0 43 Test Output o 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0...

Page 229: ...e Setup Sheet 113 PAY06 Check Register 114 Sample Check Register 114 Variable Summary Sheet 115 PAY06 General Program Flowchart 121 Program Listing 122 Test Data Listing 126 Test Output 126 Machine Se...

Page 230: ...from personnel departments at the individual plants are checked summarized keypunched and verified Time sheets submitted by the plant payroll departments are keypunched and verified All of these cards...

Page 231: ...ections 35 20 I 10 Page 06 Clock No and Name EAY l2 ADD NAMES Zero Balance Totals 7 2 Employee Earnings Record All but Name f8 Y J ft INPUT EDIT fA Y JU FILE CREATE TAPE Out of Balance Control Totals...

Page 232: ...Zero Balance Total Changes INPUT EDIT O K Changes FILE CHANGES 3 Total on Adding Machine Out of Balance Section 35 TAPE Control Total Subsections 20 Control Total I 10 Changes Page 07...

Page 233: ...10 Page 08 Zero Balance Totals Payroll Register Weekly Time Sheets Details PAY 16 INPUT EDIT PAY 04 CALCULATION 4 Totals on Adding Machine Out of Balance Control _____ T_o_ta_ls ______ Control Totals...

Page 234: ...Y 05 PAYROLL CHECKS Only When Totals Balance PAY 06 CHECK REGISTER 5 Control Totals Pay Checks and Stubs Control Tot lls Check Register Control Totals Section 35 Subsections 20 I Total on Adding Machi...

Page 235: ...Section Subsections 35 20 10 Page 10 Only When Totals Do Not Balance PAY 11 VOID CHECKS Control Totals 6 Control Totals Details Details...

Page 236: ...es Register Credit Union Register Stock Deduction Register PAY 13 UNION DUES PAY 14 CREDIT UNION PAY 15 STOCK DEDUCTION Section 35 Subsections 20 I10 General Ledger TAPE 7 PAY 12 RESET MONTHLY TOTALS...

Page 237: ...ection 35 Subsections 20 I 10 Totals Calculated Control Totals Tax Worksheet Page 12 PAY 07 AUDIT FILE BY COMPANY PAY 09 REPORT PAY 10 TAX WORKSHEET General Ledger 1 TAPE Plant Numbers 8 Plant Numbers...

Page 238: ...W 2 Reports PAYnn fP2 REPORTS Plant Numbers Section 35 General Ledger TAPE 9 Plant Numbers Subsections Page 20 I 10 13...

Page 239: ...l Payro 1 Record Page 14 PAY OS INQUIRY Use PAY 16 PAY 03 to Change the Disk Payroll Record Return to Print Where Error Occurred 10 Only when entire original error has been corrected Select Desired Cl...

Page 240: ...eyboard Figure 4 card Figure 5 card PAY04 Figure 6 card Check no 5 digits keyboard Week no of month 1 digit keyboard Maximum check amount allowed 5 digits keyboard Figure 7 card PAY05 Figure 6 card Ch...

Page 241: ...t 4 digits keyboard PAY14 Plant no 1 digit keyboard PAY15 Plant no 1 digit keyboard PAY16 Figure 6 card Figure 7 card Console Printer and Line Printer Forms for Output PAYOI None PAY02 None PAY03 None...

Page 242: ...ues Blank 2ch Blank en 00000 o0 0 00 0 0 00 o0 0 0 o0 0 0000000 00 000 o0 0 0 0 o0 0 0 0 00000 o0 0 0 o0 0 0 00 0 o0 0 0 000000 o0 000000000 12345 678 9101112 1314 15161718 192021 22232425262728 29303...

Page 243: ...000 DO DO 0 0 o0 o0 00 0 0 00 0 0 000 0 o00 0 o0 0 0 o0 0 0 o0 0 000000000000000000 1234 5678910111213141516171819202122 232425 262 28293031 3133 3435 36373839 40414143 45 47 48495051 51535455 5657585...

Page 244: ...556575859606162636465666768697071727374757677787980 Figure 5 Total Total Total Total Total Plant Check EJrnings Clock Regular Overtime Bonus Special No Date Date Numbers Hours Hours Hours Earnings Bla...

Page 245: ...y Local Credit Union Other No Hours Hours Hours u Earnings u Earnings u Earnings Rate Gross Net FIT FICA Tax Union Dues Deductions iii m 0000 00 0 0 0 00 0 0 000 0 0 0000000 000000 000000 00 0 000000...

Page 246: ...0212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980 Figure 9 Clock No Blank 00000000000000000000000000000000000000000000000000000...

Page 247: ...641484950515253545556515859606162836465666168691011121314151611181980 Figure 11 Company Name Blank 00000000000000000000000000000000000000000000000000000000000000000000000000000000 12345616 91011121314...

Page 248: ...829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980 Figure 13 City and ZIJ Code Blank 000000000000000000000000000000000000000000000000000 0 00 0 0...

Page 249: ...3333333333333333333333333333333333333 4444444444 4444444444444444444 4444444444 4 4 4 4 4 4 44 4 4 4 4 4 44 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 5555555555 5555555555555555555 555555555...

Page 250: ...I I 12 I I I I i l 3 I I i I I 4 I I I I I I 5 jl I i I 6 f I I 7 j J 8 I I 9 trl IXI i 10 I II 11 I i iT1 I 12 j I I 13 1 It i 14 b I v d i Figure 16 IB INTERNATIONAL BUSINESS MACHINES CORPORATION PR...

Page 251: ...INE DESCRIPTION FIELD HEADINGS WORD MARKS 8 Lines Per Inch IBM 407 408 409 1403 1404 J443 and 2203 Print Span 1403 Aadels 1 4 I 1 407 4J8 409 and 1 q3 Models 6 nd I I IT 1403 Aodels 2 3 5 I and I i I...

Page 252: ...t l II I IBM 407 408 409 dnd 1403 Models 6 and 7 ITTTIT tiTTITT II IBM 1403 Models 2 3 5 Nl and 1 04 II IBM 1443 Models 1 N1 an 2203 II 0 2 3 4 5 6 7 8 9 10 11 1 2 345678901 2345678 01 234567 B90 1 2...

Page 253: ...nd 2203 Print Span IBM 1403 odels 1 4 I 1 407 408 409 and 1 13 Models 6 c nd 1403 odels 2 3 5 II and IR 1443 odels N1 c 4 II I iii 1 I I I J I 11 H t H ff tt tTtir T t t 1 0 H t t t t Hf i H_1 jl H t...

Page 254: ...int Span 1403 r odels 1 4 t I 407 4 8 409 and 1 13 Models 6 c nd 1403 r odels 2 3 5 nand 1443 Aodels 1 Nl a I Ii I I t HH HH H rHrl Hrl H HHrl rI H 1 tl HK H H HI H 8 HH HH H 7 __I _ HK H H HI H tt tf...

Page 255: ...HH H HHHHHHHHH HHH H HHHHH H H H H H 2 _ _ LU 429 HHHH HHHHHHHHHH HHHHH HH HHHHHHHH H H H HHHHH H H H H H H H H H H H H H H H H H H H H H rn lf ou 1 EHH HH HH HH H HHH H H rH H HHHH H HHH HHHHH H H H...

Page 256: ...WORD MARKS 8 Lines Per Inch IBM 407 408 409 1403 1404 1443 and 2203 Print Span I In 1403 hodels 1 4 J 1 I I 4 8 409 and 1 q3 Models 6 c nd I 1403 hodels 2 3 5 N1 and I 1443 odels 1 N1 c GL tUE 2 11 1...

Page 257: ...HINES CORPORATION PRINTER SPACING CHART IBM 407 408 409 1403 1404 1443 and 2203 Print Span LINE DESCRIPTION 8 Lines Per Inch 1403 Aodels 1 4 I 407 438 409 and 1 13 Models 6 c nd I f 0 C cr VI en n I o...

Page 258: ...PTION FielD HEADINGS WORD MARKS 8 lines Per Inch IBM 407 408 409 1403 1404 1443 and 2203 Print Span 1403 Iodels 1 4 g I 407 408 409 and 1403 Models 6 nd 1403 Ylodels 3 5 N1 and IBM 1443 lIodels N1 c G...

Page 259: ...RD MARI S 8 Lines Per Inch IBM 407 408 409 1403 1404 1443 and 2203 Print Span lh rr rl rl rr rl rr r rl rrrr rl rl rTTTrr Ti r 1i I I BM I 4 0 3 M o c d el s I 4 rti H I_ llh r l I o 2 3 4 5 Ii TI I f...

Page 260: ...I t r I 00 01 l III 0 1 3 g J YTO Hrs Credit Union Oed ffi Credit Union Month to Oate Check No Additional WH Stock Oed Ins Oed I Misc Oed Char Oed Stock Oed Month to Date co U1 co t I en I t tI Cil w...

Page 261: ...g 0 0 a IX l I I I I I I I 110111 115116 120121 e II 0 0 u l I 0 e tl 13 e For Growth u 0 0 cil of Record 0 0 e I I I 150151 155156 160 Figure 28 o z tl c3 l Year to Date Information I I I I I I I I I...

Page 262: ...5 6 10 11 15 16 ci z General Ledger c J 0 l Trade Association Information Account Numbers u 0 s l c E t5 z u for Posting ij a 0 0 f f u I I I I I I I I I 25 26 30 31 35 36 40 41 45 46 50 51 55 56 60...

Page 263: ...I CJ ZN I CIIC c r r Se t Jor 8e q n q c 4 c l 7 nl t t 7 U l N9 each rc a Ch es Ieo I T 250 1 Recor J nLlrn erl E J 7 05 e A es se 6 1 PL4n7 fA v I T O I Ie Llmbe t dt x t a 4 r 0 I CJO l L A LJEX Z...

Page 264: ...ecor 7t n t6 r r Q J e LYA WR I J 0 2f Til 1 5 je 1r s d CCt rr u 4hor CJr hOd S UJttJr t7 J br V 7qd o Qy W r T ec Do loop WAR L I 6 2 A44r a I S dt vS I S ag ehr r1 2rr edj MI 1 C E AI qv vel enf o...

Page 265: ...r1t r1 ur7 t j j Jdr hh e 2 r r n r I d 1ISTCK Z V O xx xx cJ1 Slock c 6 civc on A ST k z J E I 0 r j M Ao s oc t e ec uc a s Nt A Z I It X XX af rJ ec a et c edvcr Clr7S Nt M L a XX XX 1 11 CL c cL...

Page 266: ...ize Variables Setup Name Field Retrieve Company Name Setup Quarter to Date Information Check the Data for Reasonableness Yes Initialize Trade Association Information 37 Section Subsections Page 35 20...

Page 267: ...25 106 6 3 PAYOl C 8 INDXl 101 1 250 320 PAYOl C 9 INDX2 102 1 90 320 PAYOl C 10 INDX3 103 1 200 320 PAYOl C 11 INDX4 104 1 50 320 PAYOl C 12 INDX5 105 1 150 320 PAYOl C 13 INDX6 106 1 30 320 PAYOl C...

Page 268: ...NOPLT READ 6 4 IWEEK READI6 5IICHCK 4 FORMAT Ill 5 FORMATII21 C C C CALCULATE THE FILE NUMBER OF THE INDEX FOR THE CURRENT PLANT C FINISH INITIALIZING VARIABLES ITOTI41 ITOT 10 LST c IND lOO NOPLT GO...

Page 269: ...Ol PAYOl PAYOl PAYOl PAYOl PAYOl C READ ALL INFORMATION FOR ONE EMPLOYEE AND CHECK FOR LAST CARD C 500 READI2 ZI NUM NRATE NSEX NSSAN NXMPF YTD 1 YTDIZJ YTD 3 PAYOl PAYOl PAYOl PAYOl PAYOl PAYOl PAYOl...

Page 270: ...UM C C WRITE TO THE DISK C WRITECNOPLT ICOLI NUM NAME NSSAN NSTAS NDUES NwKMP NWKPD 1 MAR NXMPF NXMPS NSEX NRATE YTD QRTD 2 LYRHR NCU NCUDD NCHCK NADWH NSTCK NINS 3 NMISC NUA NSTKD ISUPP INIT IPD C C...

Page 271: ...0351 56 0350 103 03E7 104 03EO 650 0465 LBT 005B YTD OOAE IPD 01E4 M OlEE NCU 01F8 2 0239 57 0361 106 03Fl LMC 005B PAYOl PAYOl PAYOl PAYOl PAYOl PAYOl Ii ll 005C CKMAX OOBl INDEX 01AD I 01E5 LYRHR 01...

Page 272: ...106 INDX6 I 10012142013323060 02 10022613083284339 02 10032142712982119 01 1004261303224t 8 02 10053722614638734 02 10162801541032308 01 11072613213710014 02 1218214L782927112 01 13471711194511234 01...

Page 273: ...35 Subsections Page 20 I 10 48 II JOB II XEQ PAVOl 3 FILES 1 COLFP 2 WVAFP 3 MNCFP 4 LBOFP 5 LBTFP 6 LMCFP FILES 25 PINf FILESllOl INDX1 102 INDX2 103 INDX3 104 INDX4 105 INDX5 106 INDX6 Output on pri...

Page 274: ...M APPROXIMATE DESCRIPTION RUNNING TIME TYPE OF PAPER NO OF COPI ES CARRIAGE TAPE PRINTER DRIVE NUMBER 0 1 2 3 4 DISKS CARTRIDGE ID SWITCH SWITCH SWITCH SWITCH UP UP UP SETTINGS DOWN DOWN DOWN INPUT CA...

Page 275: ...tr rd DR IVE NUMBER 0 1 2 3 4 DISKS CARTRIDGE rdl X X X X 10 SWITCH NpP6 SWITCH SWITCH SWITCH UP UP UP SETTINGS DOWN DOWN DOWN INPUT CARDS J I Pf T AfL C lXEQ 1 II JOe I I SOURCE OF INPUT L Cord u tt...

Page 276: ...INDEX I 2 I XX 1 tP Index TO pJa l t now be nr proc essed INZT I I T 6f Un on ini t i a tion f f e I INOX I I T I PI Inr Je f le mb r plant number 00 IN I I i 250 J co d n mbe r in il de x es to e ml...

Page 277: ...ChecKed I umber U 5ed for thiS employee Ncu I I T x xx Credit vl io dedf Cion d m o nt NC OD I I T XX XX Mo t hlll credl t fin on dedllctl l S if dImes NDUES I I T xxXX Un O dues dfEdvcTiol a meN fit...

Page 278: ...plo e e lia ne frofr ca rd I W MP J_ I T xxX X VUrfJbC r of wetJ s employed t wKPO I I T 5 Number of we l s a id N l MP I I i 17 e dera ext tior V Xk1P I I T 17 St ate exempt oils QR7 O R Gft T i x XK...

Page 279: ...Section Subsections 35 20 I 10 Page 54 Initialize Variables Locate Employee Record No in Index Insert Name in Employee Record Stop 50...

Page 280: ...30 250 90 200 50 150 30 Section 35 PAY02 PAY02 PAY02 PAY02 PAY02 PAY02 PAY02 PAY02 PAY02 PAY02 PAY02 PAY02 PAY02 PAY02 RECORDS PAY02 PER SECTORPAY02 320 PAY02 320 PAY02 320 PAY02 320 PAY02 320 PAY02 3...

Page 281: ...0 85 LST 30 e e e READ THE EMPLOYEE INDEX FOR THIS PLANT e 90 READCINDX LSTI LAST READCINDX ll CINDEXCII I l LASTI C e e READ EMPLOYEE CLOCK NUMBER AND NAME AND CHECK FOR LAST CARD e 100 READC2 2 ICLC...

Page 282: ...AY02 3 NSTKD ISUPP INIT PAY02 C C VALIDATE C MATCH 140 C NO MATCH 135 C IF NUM ICLCK 135tl40 135 135 WRITE l S NUM ICLCK PAY02 PAY02 PAY02 PAY02 PAY02 PAY02 5 FORMAT CLOCK NO 14 IN FILE DOES NOT AGREE...

Page 283: ...BF L VRHR 01CO NCU OlCl NCUDO 01C2 NCHCK O lC3 NAOWH 01C4 NSTCK O 1C5 NINS 01C6 NMISC 01C7 NUA 01C8 NSTKD 01C9 INI T OlCA STATEMENT AL L OCATIONS 1 0107 2 0109 OlDF 5 OlEE 80 0244 81 024A 82 0250 83 0...

Page 284: ...YLOR 2233 03 2241 03 782 92 7112 DAVID A Hl BBARD 1923 58 1923 58 194 51 1234 FRANK T DOLEN 1475 89 1475 89 822 44 5678 AL REYNOLDS 311 2 25 3142 25 Printer output II JOB II XEQ PAY02 2 FILES l COLFP...

Page 285: ...4 DISKS CARTRIDGE LX LX X X 10 P V SWITCH NOA E SWITCH NONE SWITCH NO l E SWITCH UP UP UP SETTINGS DOWN DOWN DOWN INPUT CARDS q For t e 0 1 7 1 f NAME l LOCK NO CARDS I X E Q PAY02f 1 JOB l I SOURCE O...

Page 286: ...s sef f j q f IilO I T 2 5 I ec ord 7 1m6er of on I J vid lc em loyt t INDEX I 25C T XXX I dex plol 1 1 70 be ng processed ZNIT I I T I Un o nifi 0 0 Ie e INDX I T Zndex c le 1 m6er plonf no 00 INI I...

Page 287: ...770 t 7 f NAME A2 9 T ml lo tee IICl 11e II CliCK J T xxxxx Cnee J 7t 7 l oe loSea f or 11 s e117 f IO t1 ee NCU I T XX XX Cred I t 1 017 c edt cf ol7 amot nf CI IDD Z I T xxx XX MOr7f j cred of 7 on...

Page 288: ...M Z 7 XX XX I Cloc 7C l er Ii d sK record IvtJM13 1 c7st t hree d J fs of c oc num er I I 7 xxx xxx NWKh1P I T XXXX I m r of tI Ieeks em lo l d IVWI PD I I T 3rt Vtlm 6 r 01 eeKs po d NXMP I T 17 Fede...

Page 289: ...Section Subsections Page 35 20 10 64 Make Change to Employee Record Initialize Variables Validate Change Code Locate Employee Record No in Index 60 Yes Yes...

Page 290: ...DX2 102 1 90 320 PAY03 C 9 INOX3 103 1 200 320 PAY03 C 10 INDX4 104 1 50 320 PAY03 C 11 INOX5 105 1 150 320 PAY03 C 12 INDX6 106 1 30 320 PAY03 C PAY03 C OUTPUT FILES 1 COLFP 1 160 250 2 PAY03 C 2 WVA...

Page 291: ...O 80 81 82 83 84 8S NOPLT 80 LST 250 GO TO 90 81 L ST 90 GO TO 90 82 LST 200 GO TO 90 83 LST 50 GO TO 90 84 LST 150 GO TO 90 85 LST 30 PAY03 PAY03 PAY03 PAY03 PAY03 PAY03 PAY03 PAY03 PAY03 PAY03 PAY03...

Page 292: ...ATE CHANGE ROUTINE C IF ICHNGI 104 104 106 106 IF ICHNG 16 110 120 104 C C CODE 14 INDICATES NEW EMPLOYEE IF SO GO TO 500 C 110 IF ICHNG 14 120 500 120 C C IF THE PROGRAM COMES THRU HERE THE CHANGE CO...

Page 293: ...41 CALL STACK GO TO 100 PAY03 PAYOl PAYOl PAYOl PAYOl PAYOl PAYOl PAY03 PAYOl PAYOl C C C C C C C C PAYOl GO TO THE APPROPIATE CHANGE NRATE 141 NXMPF 146 NCU 142 NXMPS 146 NDUES 143 NXMPS 147 NSTAS 14...

Page 294: ...04 513 504 513 WRITEC1 7 NUM 7 FORMATC CLOCK NUMBER 14 IS DUPLICATED CALL STACK GO TO 100 504 CONTINUE C C O K SET UP DISK RECORD AND CREATE INDEX ENTRY C IPD O NSTKD O INIT O NOUES O NWKMP O NWKPD O...

Page 295: ...1B3 NCU OlBB NCUOO OlBC NCHCK OlBO IPO 01C5 LBO 0054 YTO 008F ICLCK OlAA NWKPO O 1B4 NAOWH O 1BE LBT 0054 I NOEX 016B NUMB OlAB MAR 01B5 NSTCK OlBF LMC 0054 ISUPP 0198 ICHNG OlAC NXMPF 01B6 NINS OleO...

Page 296: ...LES 1 COLFPI 2 WVAFPI 3 MNCFPI 4 LBOFPI 5 LBTFPI 6 LMCFPI F ILE 5 101 INDX 11 102 rNDX2 I 103 I NDX3 I 104 INDX4 105 INDX 5 I 106 I NDx6 I 1 10010100261 10040600004 10160500002 10170100261 Input cards...

Page 297: ...on 35 Subsections Page 20 110 72 II JOB II xEQ PAVO 2 FILESC1 COLFP 12 WVAFP C3 MNCFP 14 LBOFP CS LBTFP C6 LMCFP FILESCI01 INDX11 CI02 INDX2 CI03 INDX3I II04 INOX4 CIOS INDXS II06 INDX6J Printer outpu...

Page 298: ...Pt79r J X X IXX 10 SWITCH o 7e SWITCH N e SWITCH A O 7 SWITCH UP UP UP SETTINGS DOWN DOWN DOWN INPUT CARDS 9 q MORE q Forfi7r7e q CHANGE CARDS rar e4ch p t Jl q V 4 jJ h C J S I p0 ane P CHANGE t CARD...

Page 299: ...71 I i I I I I I I I I c_ 1 INTERNATiONAL BUSINESS MACHINES CORPORATION PRINTER SPACING CHART fiELD HEADINGS WORD MARKS 8 lines Per Inch IBM 407 408 409 1403 1404 1443 and 2203 Print Span I IBM 1403...

Page 300: ...8NERN R 3 0 xxx I I J B lhl lS erJrn ngs 8NHR S p 3 IsO X JC goIIv orJ h 0 IJ r oS r R 3 0 Vse d f1or zero Ja Idhce ch ck I CKMAX I I i Jt Md ximuht c IJ ack dmtJtll 1 I r d 1 Ie J CNE T P 3 0 Xj X x...

Page 301: ...t JIS 4sv r d ce STO cl qrity 4 l7a mise dtldvc f o s p y per od IFICA J I 0 XXX X Zn v dVd S C4 r ti c IFILL I I r 7 d cd res de civcT O 1 noT mdde IINS I I 0 xx I t v v d l s l1slIrd c e dedvcf 011...

Page 302: ...x St f le 1 1 e 11 rdI s c k tly rOT 1 II T 723 1 cOVr1r nv 6e r 41 111 ro enertl ed 3fe 4 IUA 1 I 0 3rJt J L 7 V dtlci 1 c A d r l d Glc7 i n Iv 1 I 0 15 c v cI d f n c n cll S deduc o Yl IVAAT I I 0...

Page 303: ...i f A holcl n t elm ovnT NA ME A 9 IIO EmfJ oy fe n tme NC f 1 I 0 xxxxx C eck 17 176el v ed flo fh s eMrloyee VCGI 1 I O ere it I cI dl c t Ol xx 10 IVe 1 0 I I 0 xxx x r IYf ntl ly cretl r vnlo 1 de...

Page 304: ...I 1 0 7 Fe de rei I xemo1 ons YXMPS 1 I 0 7 S rdre ex n ii s O ERN R 3 0 xxx Xl Over r n1 Ii ed1 i J 1 OTHeR A 3 0 x x xx 51 6 c I edrn7 c S I orHIfS R 3 O tX xx OYer T m e Aovi S Ql 7D R i 0 XXXl lc...

Page 305: ...to fd I 1 1 1 soc rc e doc TOTOT r I 1 I 1 d cd oT cJl rot i ron S tjvrce I J toc rOTR R 3 1 X XXltX f f f hovl ro dl r m S J r e doc rOTS R I I XXXlC XIC t tP rP 5 eCl C drl ford rOhf ScJ Y ce doc VA...

Page 306: ...m Regular OT and Bonus Earnings to Earnings Update Past Quarter s Earnings Calculate FICA Calculate Federal Income Tax Calculate Local Tax If Any Calculate Net Earnings If applicable calculate volunta...

Page 307: ...NUMBER 1 2 3 4 5 6 25 101 102 103 104 105 106 1 2 3 4 5 6 25 RECORD LENGTH 160 160 160 160 160 160 106 1 1 1 1 1 1 160 160 160 160 160 160 106 NO OF RECORDS 250 90 200 50 150 30 6 250 90 200 50 150 3...

Page 308: ...50 1 1 21 50 TOTII O IPAGE O LINE 50 C C C READ PLANT NUMBER DATE AND CONTROL TOTALS C PAY04 PAY04 PAY04 PAY04 PAY04 PAY04 PAY04 PAY04 PAY04 PAY04 PAY04 PAY04 PAY04 PAY04 PAY04 PAY04 PAY04 99999 READ...

Page 309: ...FORMAT IS WRlTECl 23 23 FORMATC ENTER WEEK NO ONE DIGIT READC6 2 4 IWEEK 24 FORMAT C11 GO TO 62 71 CALL DATSWC14 1 GO TO 172 75 1 72 WRITE l 25 25 FORMATC ENTER MAXIMUM CHECK AMOUNT FIVE DIGITS READC6...

Page 310: ...BER C IF KAR EQUALS 6 PROCESS IT C IF KAR EQUALS 9 LAST CARD C OTHERWISE ERROR C IFCKARD 6 100 110 103 103 IFCKARD 9 100 500 100 C C PLANT NUMBER C 110 IFIKPLNT NOPLTI 100 105 100 100 WRITEC1 61 KPLNT...

Page 311: ...ADINOPLT IND 1 NUM NAME NSSAN NSTAS NDUES NWKMP NWKPD MAR PAY04 NXMPF NXMPS NSEX NRATE YTD aRTD LYRHR NCU PAY04 2 NCUDD NCHCK NADWH NSTCK NINS NMISC NUA PAY04 3 NSTKD ISUPP IN IT PAY04 C C VALIDATE CL...

Page 312: ...KO 3264 PAY04 610 OTHER PHILtSPECLII NRATE PAY04 SPB SPB SPECLII PAY04 GO TO 139 PAY04 604 KO 3008 PAY04 GO TO 610 PAY04 605 KO 2752 PAY04 GO TO 610 PAY04 606 VACA SPECLII PAY04 SPB SPB VACA PAY04 GO...

Page 313: ...160 DO 165 1 1 12 165 ISUPP Il ISUPP 1 1 ISUPP l I IOTRT C C C CALCULATE FICA TAXABLE EARNINGS C ERNGS ERNGS VACA HOLDY OTHER C C C CALCULATE FICA AND GROSS PAY AND TAXABLE PAY C IFICA 0 044 ERNGS 0 5...

Page 314: ...O IMISC O C C IF THE EMPLOYEE RECEIVES SICK PAY VOLUNTARY DEDUCTIONS ARE NOT C TAKEN C IF SICK 252 253 252 252 CNET AT X GO TO 3t S C C OTHERWISE DEDUCTIONS NECESSARY ARE TAKEN C TAKE UN ION DUES ACC...

Page 315: ...4 PAY04 PAY04 PAY04 PAY04 PAY04 C TAKE STOCK INSURANCE CREDIT UNION AND MISCELLANEOUS DEDUCTlONSPAY04 C 295 ISTCK NSTCK IINS NINS ICU NCU IMISC NMISC C C PAY04 PAY04 PAY04 PAY04 PAY04 PAY04 C CALCULAT...

Page 316: ...RMATION c 375 YTO ll YTO ll GROSS YTO 2 YTO 21 IFICA YTOI31 YTO 31 TAX YTO 4 YTO 4 ERNGS YTO 5 YTOIS SICK YTO 6 YTO 6 SPA YTO 7 YTO 7 SPB YTO 81 YTO 8 LOCAL YTO 9 YTO 9 RGHRS YTO 10 YtO 10 OTHRS YTO 1...

Page 317: ...ISC TOT1201 TOT1201 IINS TOT 21 TOTI211 GROSS c C PAY04 PAY04 PAY04 PAY04 PAY04 PAY04 PAY04 PAY04 PAY04 PAY04 PAY04 PAY04 PAY04 PAY04 PAY04 PAV04 PAY04 PAY04 PAY04 PAY04 PAY04 PAY04 PAY04 PAY04 PAY04...

Page 318: ...HRS WHOLEIOTHRS tOTHRS I ABSIOTHRSII 0 51 1 100 BNHRS WHOLEIBNHRS CBNHRS 1 ABSIBNHRSII 0 51 100 RGERN WHCLEIRGERN CRGERN 1 ABSCRGERN1 0 5 1 100 OTERN WHCLEIOTERN 10TERN 1 ABSIOTERN I 0 51 1 100 BNERN...

Page 319: ...3 XTOT PAY04 TOTBN TOT 5 XBN PAY04 D TOTSP T XSP PAY04 RITEI1 18 A B e 0 PAY04 18 FORMATI THE DIFFERENeES 4 3x Fa 0 PAY04 C PAY04 C PAY04 e wRITE THE PLANT GENERAL LE G R INFORMATION AFTER THE TOTAL L...

Page 320: ...HE 71 Ob12 72 OblC 75 Ob27 76 Ob37 77 Ob30 78 Ob43 79 0649 80 064F 81 Ob55 83 Ob59 90 0674 103 Ob02 110 ObOA 100 ObEO 105 06EC 115 0704 120 0712 125 0738 135 077A 13b 0784 600 07AF bOl 07BC b02 0708 6...

Page 321: ...00 6 1006 4000000000J004000a00500400 8 1016040000500000006001600700400 6 11070400000000025070Q0800B00500 6 1218040000500000 OB000800900600 6 1347040000000003009000800100700 6 1603040000100002001000400...

Page 322: ...CUSSEN 40 00 0 00 0 00 104 40 0 00 0 00 5 10 44 0 00 0 00 0 00 505 833 114 0 625 0 581 200 86 26 1005 JOSEPH MON TANO 40 00 3 00 2 00 148 80 11 73 7 44 5 29 76 0 00 3 00 0 00 883 3258 200 750 0 724 0...

Page 323: ...sections Page 35 20 110 98 FACTORY PAYROLL THE CONTAINER CORP W E 02 15 68 PAGE NO 2 111 996 85 620 159 84 620 58 49 22 13 36 625 22 50 626 34 50 627 0 00 628 5 00 0 00 50 67 635 1341 21 Printer outpu...

Page 324: ...VE NUMBER CARTRIDGE 10 SWITCH _ 0 4 ___ UP v DOWN o 2 SWITCH _ L S ____ UP v DO NN 3 SWITCH t UP DOWN 4 S4 Y ch 4 r t cAp1 e h7t x mt h 7 cA cA h1 v r dr74 rur c s4 ch 5 rC C Jddtnt 1 cAec l Vh i Oer...

Page 325: ...1 2 3 4 5 6 7 8 9 a1 2 3 4 5 6 7 8 a 1 23 456 7 890 1 2345 6 7 89 a 1 2 3 4 5 6 7 8 9 a 1 2 3 4 5 67 89 a1 2 3 4 5 6 789 a 1 23 4iS 6 7 89 a 1 234 567 8 9 a 1 234 5 67 890 1 345 6 7 89 1 2 34 5 6 89 l...

Page 326: ...A O t CK lx J i3 T I J A 4J L m cj d d 7 c U4r i or d 1 e cl j k 3 0 txId 81 lmoL J1 d c v d c d ed CCIJ4P 2 iI o Com p nOrY7e 18kJ R t I h tftJ Trdde 4SSoC re o s IYVXXXXA V GRoss 3 0 XXx XX tP GrosS...

Page 327: ...k xttfx z Jd v df 4 n S C dfo4i c Or7S II OX I T 0 Z y r k t P 4 j Jo oo I I T Z 0 lXX x xX U 7 0 7 1 2h cJ e INI I T 250 1 cord I t6 r d e e5 h k TN f I AI qv vc k Ib 2 V I Z V3 I I AI q vdk J G ZA L...

Page 328: ...Ii t b17J 1 1 e r PJe jl Ie JI II NP 3 l I j 5 U L 5 d 5it yd l 4 j UI7J1fi 1 J 74 eo 171 fc Fr rjuJ p ra 1 p V tl xxxxx tJ j J e J6 f 4r l 1i Pr Iob e f rlJ7 Ze xi iX I 1 r c 5 earl1 zg5ro f l arc b...

Page 329: ...N dC U p nt dr A d S jQIJI _ L 1_ Mu AI 4f I I Z I y sI k5 S 9 2 I4 r f5 W I 7 T Ed i 1 45 1 C st A5KZ 1 7 r Cd S zero so press c r W q t if IJt f EcoL l 4LJ11111 Z 0 rx 1t 1 P dAJtJ hd J1 J l 1 lit 9...

Page 330: ...1 L 3 ll tJ IJIQtls 9th ll s 5 C 4 Cd 1t1 J1 W sM5 f tJ 5 6 7 ec sr4rC s O J t J0 z7 ucKer J 3r ltl N J f I d e 4 JrJ 1 t 7ICJ 7PdrT f 7 r e A Jd ted AI 7ce l1 tJ KX XX 5 f C k C 4 A 5 0 I 1 0 xx xx t...

Page 331: ...d m R A t A rI l7 3 0 t WXM X 1e w C tf d U 7G 5 Ik 1 T xx f r rom qrt 7 S v WET If 3 T AI 7b1d e rvrxxn Y TgA l 1 lB f dtfl 3t1l tlSi jt rsh lkl tt J 5 t ffe a0c lCJTOT R 3 Z Pt tJT d r5 fp fp t Q s...

Page 332: ...Initialize Variables No 103 Calculate Control Totals Section 35 Yes Subsections Page 20 I10 107 Stop...

Page 333: ...1 1 1 1 1 1 160 160 160 160 160 160 106 NO OF RECORDS 250 90 200 SO 1S0 30 6 2S0 90 200 SO 150 30 2S0 90 200 50 ISO 30 6 PAYOS PAYOS PAY05 PAY05 PAY05 PAYOS PAYOS PAYOS PAYOS PAYOS PAYOS PAYOS PAYOS P...

Page 334: ...PAYOS C READ PLANT NO DATE C THE PLANT NUMBER C AND CONTROL TOTALS AND VALIDATE CC 80 AND PAYOS PAYOs PAYOs 99999 READt2 1 NOPLT IDATE NDWK 1 FORMATtIl 6A2 4F7 0 38X I11 C c VALIDATE KARD AND NOPLT C...

Page 335: ...PAVOS 71 CALL DATSWI14 I PAVOS GO TO 172 75 1 PAYOS 72 WRITE 1 23 PAYOS 23 FORMATC ENTER MAXIMUM CHECK AMOUNT FIVE DIGITS PAYOS REAOI6 24 CKMAX PAYOS 24 FORMATIFS O PAYOS GO TO 62 PAVO C PAVOS C COMP...

Page 336: ...SC NUA NSTKD ISUPP INIT 3 IPD IFILL GROSS IVRAT IOTRT RGHRS OTHRS BNHRS RGERN 4 OTERN HNE N OTHER KO HOLDY VACA SICK CNET IFICA TAX LOCAL ICU WA IUD I INS ISTCK IMISC C IF IFILll 550 550 510 510 WRITE...

Page 337: ...GO TO 92 93 IPNT 92 PAUSE 3 C C 93 CALL PUTINET4 l 7 CNET 10 5 11 CALL MOV IMASK2 1 7 NETl 11 CALL MOVEIMASK2 1 7 NET2 11 CALL MOVE MASK l 7 NETo 11 CALL EDIT NET4 1 7 NET1 1 71 CALL f DIT NET4 1 7 NE...

Page 338: ...05 PAV05 PAVOS PAV05 PAVOS PAV05 PAV05 PAY05 C PAY05 C PAV05 C WRITE 1 V SPECIAL CHECKS SIGNAL THIS CONDITION WITH DATA SWITCHPAYO C ZERO C CALL OATSWCO II GO TO C850 855 1 850 WRlTECl 25 REAOC6 26l N...

Page 339: ...0316 100 0310 101 033F 102 034B 52 03E9 55 03EF 60 03F7 62 040F 70 0440 71 044B 72 0455 78 047C 79 0482 80 0488 81 048E 83 0492 87u c049D 860 0519 510 05B9 550 05Cl 10 05C7 5 05CE 15 0503 90 05F8 91...

Page 340: ...OLFPI 2 WVAFP 3 MNCFP 4 LBOFP 5 LBTFP 6 LMCFP FILES 2S PINFOI Section 35 F LES 101 INDX11 102 INDX21 103 NDX3 104 INDX4 105 INDXS 106 INDX6 V Input cards 1022168021568 0040000000165000010500012100 111...

Page 341: ...STATEMENT DETACH AND RETAIN f THE Co NTAINER Co MPANY NOT GOOD AFTER 46 DAYS OROVER 250 00 CHECK NO PAY TO THE ORDER OF JOHN A HORN DATE 02 21 68 EXACTLY 83 DOLLARS AND 55 CENTS TO THE NATlo NAL BANK...

Page 342: ...v SETTINGS DOWN DOWN DOWN INPUT SaJ rc h tJ s sed r rnt l l e cA c l s e r 4 he h 1 4 CARDS Jor ct J e cl St u cA 4 Jed Tt J s r r e tr7e x m c A c L nrne un t SIVI cn 5 s seq rtJ seT rAe CAt Ck v 6er...

Page 343: ...VJ CD Cr l c n o J IB INTERNATIONAL BUSINESS MACHINES CORPORATION PRINTER SPACING CHART IBM 407 408 409 1403 1404 1443 and 2203 8 lines Per Inch t VJ 0 c 0 en CD o 0 J en 0 m c o 00 CD...

Page 344: ...Tal e t 7ssociQi O 7 1 p rTs q CJSS R 7 0 XXX x I groSS dn70U l o 7 Yiq dl cAfRe OLPY R 3 0 xx xx lrI I cI l iq o s o dt7 Qy I I T seq in Po 00 0 Ie z AI E91 i o eal r o rAl se s TOr ZCf cK r T eqc ru...

Page 345: ...7 Z cI ct1 s ckt uc ion 7 j mtl 7 1 5 Z I 0 xx L JQ J C 41QIs 5I 1 lCe r t c fca fiST 1 r 250 30 LQsf record 7 m 6 r 0 t IH ISC Z 0 xxxxx 0 Z d vlt vlJl 77 5C c vc IJOI7 1 v X I T 1 16 171 f itl x k J...

Page 346: ...lur lio Z RAT Z I 0 5f1 4J eroClt pay ale T11IEEK I T s L Mei cJ IAe Tl I 4 ZN l1l Z IV E9t1ivdka 1o zeoL J z T 9 I nclt X lor l atP KC 4RIJ E I 9 1 C C 81 frr las t L7rd7 51 KO I 0 5 5 t C C7 Clr 7 J...

Page 347: ...P btl dt k I 7f VIAlS Z II xx XX L 15v Qnce q I C tJ JC I 0 X X I sceIld le l 5 c e vci tJh5 YO o T Z T tp 1 P d 1 1 l7be r RRTE E o 3 1 25 177 k feept lr d l SEX f t1 3 1 5ex 1 emtJIeJ z mt l j J f...

Page 348: ...x X 1X J tiJl or7 t r ro dal e t l mq rt r s fZ t J c CR 41 oc tQA IC4 HA lf S 6 JSIC J ull I I I RGERAJ R 3 0 x xx xx Re9 earnintis tJ 1 rJ R IIR5 R 3 xxXA Req hl s I I sr lei RAlET 1 R S 0 x RN ET2...

Page 349: ...gram Name t 1 ck sd No 4y Programmer 0 io 2 FUNC rION OF VARIABLES mrs I Ol f X t I J p4 iQI d lI s IplJn sovrc c VAC4 tJ J xXK XX II YtJc I iJ IJ ITO R J tJ X I iX Yell illit r ImyPl n14 4 I Jl tlS r...

Page 350: ...No Start Inltiali te Variables Initialize Plant Variables No Put together Check Register Information StOP 121 Section Subsections Page 35 20 I 10 125...

Page 351: ...PAYOo PAYOo PAYOo PAY06 PAY06 PAY06 PAY06 PAY06 PAVOo PAY06 RECORDS PAY06 PER SECTORPAY06 2 PAY06 2 PAY06 2 PAY06 2 PAYOo 2 PAY06 2 PAY06 3 PAY06 320 PAYOo 320 PAV06 320 PAV06 320 PAY06 320 PAV06 320...

Page 352: ...PAY06 PAY06 PAY06 PAY06 PAY06 PAY06 PAY06 PAY06 PAY06 PAY06 PAY06 PAY06 PAY06 PAY06 PAY06 PAY06 PAY06 PAY06 PAY06 PAY06 PAY06 PAV06 C e PAY06 PAY06 C READ PLANT INFORMATION RECORD C FROM DISK AND FINI...

Page 353: ...6 PAY06 PAY06 PAY06 PAY06 PAY06 PAY06 PAY06 PAY06 PAY06 PAY06 PAY06 PAY06 PAY06 C PAY06 C C PUT TOGETHER CHECK REGISTER INFORMATION C 651 T T CNET 1 1 1 GO TO 601 602 6031 1 601 I01 NCHCK ID2 NUM CALL...

Page 354: ...NSIAS 0161 NOUES 0162 WKMP U163 NCU 014B NCUOO 016C NCHCK 0160 IPO 0175 IFIL L 0176 IVRAh0177 1 INS 017F ISTCK 0180 IMI S 0181 110 OlF3 111 01FF 99999 0220 79 0292 80 0298 81 029E 657 030C 6l 03EO 60...

Page 355: ...K NO NAME 1001 ROBT B BADEN 86 08 1002 JOHN A HORN 4 1004 JOHN W CUSSEN 86 26 1005 JOSEPH MONT ANO 7 1107 A E TAYLOR 113 63 1218 DAVID A HUBBARD 10 1603 L REYNOLDS 123097 TOTAL 996 85 1 JOB 1 XEQ PAY0...

Page 356: ...RRIAGE TAPE PRINTER Srp dd q S l d4c dr DRIVE NUMBER 0 1 2 3 4 DISKS CARTRIDGE X X 2 X 10 b l SWITCH SWITCH V SWITCH SWITCH UP UP UP SETTINGS DOWN DOWN DOWN INPUT CARDS CONTROL TOTALS I XEQ PAY JOe SO...

Page 357: ...del 1 4 H I I IBM 407 408 409 and 1403 Models 6 and 7 TrTI IBM 1403 Models 2 3 S N1 and 1404 IBM 1443 Models 1 N1 an l 2203 10 11 3456789 123456789 i i II Ii I i I I I LI il Ii ii I j i l l t II t 1H...

Page 358: ...Ie JI 112 ICOL T 25 1 Fece rd nV TlL t r 7 t m yI tIle set L Jf3 j 1 I L1 o r 9 0 ZIJATE 1 3 ptu dQ Z lItJ1 42 22 To t h e 0 ht dd Zlf02 12 22 Z O 2 d fiae eJ heoq g 3 t12 2 J O 3 Cd p e o ead j ZlfOt...

Page 359: ...lIe BO Z N Etjl t k 7 0 CtJt LBT I AI E9V VOk l l zC L L IV E 1 T 5tJ If L Il e ctJl f fllC Z Iv Eq Q e J I If ZeaL L5T T I T ESt ESp LC15 1 record It 77Jt r 7 q e LYR IR z 0 Th S f Qr s c CCV 77v q t...

Page 360: ...i U Jlbn1 z rtlckt r V 5TAS 7 0 6 1 El77jJ y e s Ioltts U 7 0 1 2 vc r 1Q 1 J u i lme1 4 7t l UI7 on a7rrhme1 5 knn nf rJ VSTcK L 1 0 xx XX SloCK dedUG ion NsrKO Z 0 I t l V 5 0ci det l c On s I A 0...

Page 361: ...j w 0 VALUf PrClgr4lm Name f4 No PAYr 9 Programmer 0 o 0 0 z FUNCTioN OF VARIABLES TOTt R 3 0 xx x I ToIQI It qf S 1 1 c mpq 9 xx xX VTLJ R 1 0 xxx I y egr rlJ ot1 e 1 r mi lT lJa II f liJ P CRJ r 142...

Page 362: ...Yes No Initialize Variables Initialize Remaining Variables Add to Total and Setup Line Section 35 133 Subsections Page 20 I 10 137...

Page 363: ...PAV09 PER SECTORPAV09 2 PAV09 2 PAVQ9 2 PAV09 2 PAV09 2 PAV09 2 PAV09 320 PAY09 20 PAY09 320 PAYJ9 20 PAY09 320 PAY09 320 PAY09 PAY09 PAY09 C PAY09 c c _ C 1 C AL LOCATE ARRAY STORAGE PAY09 PAY09 DIME...

Page 364: ...I2 I2 lOX I2 3X 22A21 WRITE 3 8 8 FORMATI l IL 3776 IPAGE IPAGE 1 INDX N 100 GO TO 131 132 133 134 135 136I N 131 LST 2 0 GO TO 140 132 LSh90 GO TO 140 133 LST 200 GO TO 140 134 L ST 50 GO TO 140 135...

Page 365: ...401 170 170 160 160 MPCO MPeo MPLY TOTe TOTC TOTA TOTO TOTO TOTB TOTA WHOLEITOTA ITOTA ABSITOTAI 0 51 100 TOT8 WHOLEITOTq ITOTB A SITOTBI I 0 5 100 e e WRITE TOTALS AT THE BOTTOM OF THE PAGE e WRITEI...

Page 366: ...GO BACK C 275 CONTINUE C PAV09 PAY09 PAY09 PAY09 PAV09 PAY09 PAY09 PAV09 PAY09 PAYOO C C THE PROGRAM WILL AUTOMATICALLV GO THRU HERE C HAS BEEN PROCESSED CREATE AND WRITE PLANT C TOTC TOTC TOTA PAY09...

Page 367: ...NXMPFIOO134 NSTCK 0130 NINS OUE 5 0188 4 0193 133 0258 134 025 185 03AO 195 03A4 PAGE 05 PAV09 PAV09 PAV09 PAV09 PAV09 PAr09 PAV09 PAV09 PAV09 PAV09 PAV09 PAY09 PAY09 PAV09 11 11 0055 tOTC 0098 ISUPP...

Page 368: ...EQ PAY09 2 FILESI1 COLFP 12 WVAFP 13 MNCFP 14 LBOFP S LBTFP 16 LMCFP FILESI10l INDX1 1102 INDX2 1103 INDX3 104 INDX4 lOS INDXS 106 INOX6 103316801 XYZ MANuFACTURING COMPANY 1642 EAST MIDDLETOWN STREET...

Page 369: ...UFACTURING COMPANY 10 21520 23 21532 23 NAME OF EMPLOYEE Plcue tyj orpritl1 ROBERT B BADEN JOHN A HORN ROBT L SHORES JOHN W CUSSEN JOSEPH MONTANO DONALD MILLER A E TAYLOR DAVID A HUBBARD FRANK T DOLEN...

Page 370: ...YROLL SWITCH l O v SWITCH SWITCH SWITCH UP UP UP SETTINGS DOWN DOWN DOWN INPUt 9 CARDS MORe _ PL J NiS f rtAN IJ5 PJ MT NO I HNT For t Jne p o CI Y S7 rr CFlFlD PLRN r AP RFSJ CARl r t f Vi NAME I eri...

Page 371: ...Section Subsections Page 35 20 I 20 01 PAYROLL SYSTEM Operation Manual...

Page 372: ...Section Subsections Page 35 20 I20 02...

Page 373: ...ll File Create 11 Accounting Controls 11 Error Recovery Sheet 12 Machine Setup Sheet 13 PAY02 Add Names to the File 14 Accounting Controls 14 Error Recovery Sheet 15 Machine Setup Sheet 17 PAY03 Chang...

Page 374: ...Section Subsections Page 35 20 I 20 04...

Page 375: ...from personnel departments at the individual plants are checked summarized keypunched and verified Time sheets submitted by the plant payroll departments are keypunched and verified All of these card...

Page 376: ...Section Subsections Page 35 20 I 20 06 Clock No and Name fAX Q 2 ADD NAMES Zero Balance Totals 2 Employee Earnings Record fAY 1ft INPUT EDIT fAY Q 1 FILE CREATE Out of Balance All but Name TAPE...

Page 377: ...loyee Payroll Change Authorizations Changes INPUT EDIT O K Control Total Changes fAY Q J FILE CHANGES 3 Total on Adding Machine Out of Balance Section 35 TAPE Control Total Subsections 20 Control Tota...

Page 378: ...ge 20 I20 08 Zero Balance Totals Payroll Register Weekly Time Sheets Details INPUT EDIT PAY 04 CALCULATION 4 Totals on Adding Machine Out of Balance Control _____T __ o_ta_ls ______ Control Totals Zer...

Page 379: ...Y 05 PAYROLL CHECKS Only When Totals Balance PAY 06 CHECK REGISTER 5 Control Totals Pay Checks and Stubs Control TotDls Check Register Control Totals Section 35 Subsections 20 I Total on Adding Machin...

Page 380: ...Section Subsections 35 20 120 Page 10 Only When Totals Do Not Balance PAY 11 VOID CHECKS Control Totals 6 Control Totals Details Details...

Page 381: ...Dues Register Credit Union Register Stock Deduction Register PAY 13 UNION DUES PAY 14 CREDIT UNION PAY 15 STOCK DEDUCTION 7 PAY 12 RESET MONTHLY TOTALS Section 35 Subsections 20 I20 General Ledger Pa...

Page 382: ...35 Subsections 20 I 20 Totals Calculated Control rotals Tax Worksheet Page 12 PAY 07 AUDIT FILE BY COMPANY PAY 09 941 REPORT PAY 10 fAX WORKSHEET Plant Numbers 941 Report 8 Plant Numbers General Ledg...

Page 383: ...W 2 Reports PAYnn wr REPORTS Disk Payroll File 9 Plant Numbers Plant Numbers Section 35 General Ledger Subsections Page 20 I 20 13...

Page 384: ...l Payroll Record Page 14 PAY 08 INQUIRY Use PAY 16 PAY 03 to Change the Disk Payroll Record Return to Print Where Error Occurred 10 Only when entire original error has been corrected Select Desired Cl...

Page 385: ...Section Subsections 35 20 I20 PAYROLL PROGRAMS PAYOl PAYROLL FILE CREATE Accounting Controls Balance total gross and total tax withheld YTn from the preceding PAY16 to the general ledger 11 Page 15...

Page 386: ...OGRAMMER NAME C 2 c Ck PAUSE DISPLAYED IN ACCUM MESSAGE TYPED 0 IHI 0 I I I AFTER PAUSE CONTROL TRANSFERS TO STATEMENT _____N ttt 2e______ DESCRIPTION OF WHAT IS WRONG n e PROBABLE CAUSE Q N e RECOVER...

Page 387: ...4 DISKS c7yro X X X CARTRIDGE A 10 SWITCH A G7 7e SWITCH SWITCH SWITCH UP UP UP SETTINGS DOWN DOWN DOWN INPUT CARDS f q c r C7ne Q 1 r DETAIL CARDS IIXEQ PAYOI f J1 JOP SOURCE OF INPUT t Card ne u t...

Page 388: ...Section Subsections Page 35 20 120 18 PAY02 ADD NAMES TO THE FILE Accounting Controls None 14...

Page 389: ...ESCRIPTION OF WHAT IS WRONG z c r L 2 ck J J6 r L LCie L nd cc7 d J U t h Jde lS a c Lt2Ck a n LJC s PROBABLE CAUSE LT e C 2 d u d 2t Lad ded t2 e7h c L 2 c 7 Lt Z2 L er h rAe r7L V C 7 d s in tJ rt a...

Page 390: ...1 PEE W ZH C aC k A o XX XX 0 LA C J t D AFTER PAUSE CONTROL TRANSFERS TO STATEMENT e O DESCRIPTION OF WHAT IS WRONG ref c he s fi r e 57_ n l ober n 6 hdex d 7d PROBABLE CAUSE DIsK d 2 a 2 Aec n c tL...

Page 391: ...NUMBER 0 1 2 3 4 DISKS X CARTRIDGE 3 7 10 SWITCH 2 E SWITCH NONE SWITCH NONE SWITCH UP UP UP SETTINGS DOWN DOWN DOWN INPUT CARDS 1 rc r One 7 NAMEfCLOCK NO CARDS 1XE Q PAYOZ JOB SOURCE OF INPUT Cdrd L...

Page 392: ...35 Subsections Page 20 I20 22 PAY03 CHANGES TO THE FILE Accounting Controls Hash totals of clock numbers change codes and new fields from preceding PAY16 should balance to control totals prepared manu...

Page 393: ...STATEMENT 00 20 RECOVERY PROCEDURES he c o d r r a e c 1 qd To r 6e o e C7 e s Qc 2 er ke o r he card COMMENTS 7A r V7 YJfi e C o r Y s L reO F0c23 c rro Kee x pc t e A7POQ Lj J g b 4 LU h q v d 7 J...

Page 394: ...ACCUM MESSAGE TYPED I 11 1 Ir I ir2j 6 C 20 Ft2A xxxx t AFTER PAUSE CONTROL TRANSFERS TO STATEMENT 00 DESCRIPTION OF WHAT IS WRONG Lh o l2d COrne 5 n 2r L h rh VtZL d c t2 LL l PROBABLE CAUSE I t2c L...

Page 395: ...ION OF WHAT IS WRONG 7 L L LJ c d G MC k L2 Yn2c2c L J Q r a t IJ e 7 d 7 J_eK PROBABLE CAUSE T J P C2 r L 2 d I 2C Q d 6 C2 s a t2 r p I 7 Je c ac k tt 2 L Je l a a 5 C c d L S 7 PL l ch e 4 L 2Ct r...

Page 396: ...S o l vl A 7 A1MR RXXXX C I 1 I AFTER PAUSE CONTROL TRANSFERS TO STATEMENT c O DESCRIPTION OF WHAT ISWRONG nec 5g 5 9 s r Aa i J rh P I2U C 2rd PROBABLE CAUSE is da l Z 4 heE 2 g d RECOVERY PROCEDURES...

Page 397: ...D ENrER SSAN OA X YX I I CJ INIE I AFTER PAUSE CONTROL TRANSFERS TO STATEMENT k Aaq cd spLpcr DESCRIPTION OF WHAT IS WRONG MQ t L 7 t L 5 7t Lf J or_ Oor r 2a2 0b t 2 2 Ld PROBABLE CAUSE L e r CO g Ct...

Page 398: ...AT IS WRONG The c Lt2r p t Z Ln hp C L _ rd La L V c c r o a oe r Q e 5 L L7d da d 5 hLP PROBABLE CAUSE L he Cc 7rd at 2 Jec 7 c aTc c d a b eco d Lh c o I J I L he CL 2 r k 7 6e L 7 TA 7 2 2 cc7 d L2...

Page 399: ...oae SWITCH i t e SWITCH SWITCH UP UP UP SETTINGS DOWN DOWN DOWN INPUT CARDS 9 q MORE q JC or R 7e f a CHANGE r CARDs r ar e4ch P Jr qv 4 rh Ct 74nyC s or 7he r P dh CHAt JGE r CARDS II XEQ PAY03 v JOe...

Page 400: ...TIONS AND PAYROLL REGISTER Accounting Controls Machine totals regular hours OT hours bonus hours special earnings must be balanced to the control totals from the preceding PAY16 run Information is fou...

Page 401: ...TO STATEMENT 99999 DESCRIPTION OF WHAT IS WRONG I Cdrd colvnln I lS d l it 1 f ltl P 4t vh76er 01 2 Cdrd 1It 111 80 s 70 1 ero PROBABLE CAUSE r d bLdn cdrd r d a dr cdr Aq oS De tl It ce f I 117 I rfJ...

Page 402: ...o X kJ 4 J Jf c C t I I I I N T NA l 1 11 1 v H S1S Ati2N JX i NIl L 11 E N f CL N Al1N rJf c i N S 67 AFTER PAUSE CONTROL TRANSFERS TO STATEMENT No N qllddS 1 d l j SWirc he DESCRIPTION OF WHAT IS WR...

Page 403: ...t t r hVnl6er it he A tlcler cd Y eI or 2 CdI d c eo l l vtlllcl PROBABLE CAUSE Tile dd rd t r1e p CZnr 4 lh C I II t filc r nflt dti1 cI 01 d n J toner d T or t Cdrd dec s hO t 5 e I l p c o r c r y...

Page 404: ...RS TO STATEMENT 12 CJ DESCRIPTION OF WHAT IS WRONG _ Ih Pv r recore L p K 1V 1 r if or on 1 1 PROBABLE CAUSE p yee rec Qrd h a r I t 1 D f led cI d or 2 Ine v nv 7 ce r J n c orreC T RECOVERY PROCEDUR...

Page 405: ...PAUSE CONTROL TRANSFERS TO STATEMENT 2 0 DESCRIPTION OF WHAT IS WRONG rA e c loc A 6 c iI Tb 1 v r c I J t 1 s a t1 d rIPe wl l J A c t ck 11 VAl J i II 1 1 Ae _ 6 I n 0it e fr cord PROBABLE CAUSE p s...

Page 406: ...cT O c X X X XX ct R C c C t No x x N 0 N AFTER PAUSE CONTROL TRANSFERS TO STATEMENT 120 DESCRIPTION OF WHAT IS WRONG H qmlflu cA cl f C fie clr Ii PROBABLE CAUSE i t r re of Tot J IDW pr 2 Errt Jn D...

Page 407: ...YED IN ACCUM MESSAGE TYPED I I I I I INf Ui T071J1 5 XXXXX c X XXXXX K X XX IV 0 E AFTER PAUSE CONTROL TRANSFERS TO STATEMENT Ne n Sc 1 lJel lC e DESCRIPTION OF WHAT IS WRONG V orlli f PROBABLE CAUSE...

Page 408: ...t PAUSE DISPLAYED IN ACCUM AFTER PAUSE CONTROL TRANSFERS TO STATEMENT ____ Nex T n S e f t enc e DESCRIPTION OF WHAT IS WRONG N r A 1 fil _______________ _ PROBABLE CAUSE End ol lr i rDIJ 7 l 1e ir r...

Page 409: ...itx J K l l 1 IA I I 1 I t2 AFTER PAUSE CONTROL TRANSFERS TO STATEMENT tLexr 5 ec Zt rJc re 7 DESCRIPTION OF WHAT IS WRONG A o h r Jq V _ PROBABLE CAUSE E 2 cJ 07 0 6 rCJt Ji rl t tt s i2rMr C Lldr 4...

Page 410: ...O XX PROGRAM NAME PAyo4 PROGRAMMER NAME C R I ck PAUSE DISPLAYED IN ACCUM AF TER PAUSE CONTROL TRANSFERS TO STATEMENT ____ DESCRIPTION OF WHAT IS WRONG ____________________________ ____________ L p r...

Page 411: ...X 10 SWITCH L4 SWITCH 6 SWITCH Alt 1e SWITCH UP V UP v UP SETTINGS DOWN DOWN DOWN INPUT SC N ch 4 ro c t71 e 4 7 7 x 7C r cA cA Qrntt v 74 0 7 CARDS C s ch S 0 C 4r e c ec c v 7oe 4 4 Vee nUhl6er dd...

Page 412: ...20 I 20 42 PAY05 CHECK WRITING Accounting Controls Disk stored totals gross and net are balanced to machine calculated total of checks for zero balance test This should also be compared with the addin...

Page 413: ...AMMER NAME c i hck PAUSE DISPLAYED IN ACCUM AFTER PAUSE CONTROL TRANSFERS TO STATEMENT 99 999 20 DESCRIPTION OF WHAT IS WRONG ____________________ _ _ L CLV d Ca qmn l lu do Ol c d z h t or PROBABLECA...

Page 414: ...t 1 S xxXXl5 M 4X MPAf c c K A OI vT A A Y8e cRAlV delC Il 3W77 N7 t JW 7CH7 1 Jt 1 CN t 1 fJL a 6 Z II t N 4 C I du kN4S RG t fJv sr lA b Ss AFTER PAUSE CONTROL TRANSFERS TO STATEMENT Le X a Set2 Ue...

Page 415: ...FTER PAUSE CONTROL TRANSFERS TO STATEMENT 500 DESCRIPTION OF WHAT IS WRONG W L r 7 aQd d_ ld aUf PROBABLE CAUSE C 2era CJr e r ttt 6 r7 r t n r t J r nr e h e S l RECOVERY PROCEDURES 1 2 7 er 71L r tI...

Page 416: ...AaF cDR XXXX I 0 I 1 I AFTER PAUSE CONTROL TRANSFERS TO STATEMENT 5SCJ DESCRIPTION OF WHAT IS WRONG The t Q S not 7 0 6 Check Qr rh e LJ Q t ee 2 na T 5 t c et 2 r r a c2 U 2 7 5 LZu rb 2c i d ded c...

Page 417: ...NSFERS TO STATEMENT 9 DESCRIPTION OF WHAT IS WRONG p t a I 2L t Y a Llt Z ar t 2 e r r 7 I e S d 7L 7 c J c j e c K i PROBABLE CAUSE S LdL L i e b LS h l s t2 t 1 7 ser I h t rL2r t r RECOVERY PROCEDU...

Page 418: ...YED IN ACCUM MESSAGE TYPED I I I 1 3 I A OA c 0 0 0 AFTER PAUSE CONTROL TRANSFERS TO STATEMENT 93 DESCRIPTION OF WHAT IS WRONG P4 se t c2 L rheL o lh7 L2 d c LS AC t 2L t t 2 7 1 the Lh rd I rJe 7 PRO...

Page 419: ...SPLAYED IN ACCUM AFTER PAUSE CONTROL TRANSFERS TO STATEMENT 9S 20 DESCRIPTION OF WHAT IS WRONG _______________________________________ PROBABLECAUSE Se v rch l j hAS t 2 5er 4 1 rAe RECOVERYPROCEDURES...

Page 420: ...I 0 I 01 0 IsI AFTER PAUSE CONTROL TRANSFERS TO STATEMENT 700 DESCRIPTION OF WHAT IS WRONG a LSP to oL Me_ L2 L 1 r 7e 7 1 C Jt PC S d e bre L y The r r C2 7 PROBABLE CAUSE S U t Lc 2 hd atoP 2 r e 7...

Page 421: ...ROGRAM NAME PA Yo S PROGRAMMER NAME C i C C e PAUSE DISPLAYED IN ACCUM AFTER PAUSE CONTROL TRANSFERS TO STATEMENT 80e 20 DESCR IPTION OF WHAT IS WRONG _ ______ ___ ______ f r f t 3 PROBABLE CAUSE ____...

Page 422: ...YOS PROGRAMMER NAME C eC cL PAUSE DISPLAYED IN ACCUM MESSAGE TYPED ChECK l vNL YR 1 4GR INI IN 1 I 0 AFTER PAUSE CONTROL TRANSFERS TO STATEMENT BoZ DESCRIPTION OF WHAT IS WRONG NOLhL PROBABLE CAUSE En...

Page 423: ...X XX J X I K PROGRAM NAME PA y OS PROGRAMMER NAME c R L PAUSE DISPLAYED IN ACCUM AFTER PAUSE CONTROL TRANSFERS TO STATEMENT X 20 PROBABLECAUSE ____ ____________ end ttl oh v RECOVERYPROCEDURES ______...

Page 424: ...P v UP v SETTINGS DOWN DOWN DOWN INPUT St U rch Z S C sed n lt 7ke che c kS r e 4 he 7 6e t t e CARDS 101 tCJ ecl Su l C h 4 Se d TO s r e OJt x cAc cL q 7t J _r Sun en S 5 c se4 rc seT rAe check nv 6...

Page 425: ...ns 35 20 I 20 PAY06 CHECK REGISTER Accounting Controls Pla nt total net from payroll register is balanced to total on check register and check register total net is balanced to adding machine tape of...

Page 426: ...AFTER PAUSE CONTROL TRANSFERS TO STATEMENT 9 99 OESeR t PTION OF WHAT IS WRONG L C tt r c at2 L l l l a i A 4 a JYd L d t2 t d r M a ua 1 aec j C e CaGd CaLu rh tt 2 Ao 1 r t2 t 2 t zer o PROBABLE CAU...

Page 427: ...ER S Qr ddtl S l d 7de c DRIVE NUMBER 0 1 2 3 4 DISKS X X X X CARTRIDGE b f ID SWITCH No e SWITCH SWITCH SWITCH UP UP UP SETTINGS DOWN DOWN DOWN INPUT CARDS CONTROL TOTALS XEQ PAY f JOB SOURCE OF INPU...

Page 428: ...Section Subsections Page 35 20 I 20 58 PAY09 941 REPORT Accounting Controls 941 total per plant Gross is balanced to general ledger 54...

Page 429: ...AME 1l 9 PROGRAMMER NAME CR K cA PAUSE DISPLAYED IN ACCUM MESSAGE TYPED A a LE INI CJ INIe I AFTER PAUSE CONTROL TRANSFERS TO STATEMENT Alt2a DESCRIPTION OF WHAT IS WRONG _ N Je PROBABLE CAUSE A o l e...

Page 430: ...PAYROLL SWITCH VOA SWITCH SWITCH SWITCH UP UP UP SETTINGS DOWN DOWN DOWN INPUT 9 CARDS MDRE PL qNTS I f LFlNT lJ5 ft 1VT NO I iRNT For t ne p 4rJ f CIT 5 r T CR flD PLPiN r jfJjf5J Pt ANT NAME CRRb PL...

Page 431: ...Section 40 CONVERSION CONTENTS Introduction Planning for Conversion 40 01 00 40 10 00 Section Subsections Page 40 00 I Preparing for Conversion Conversion Methods 00 01 40 20 00 40 30 00...

Page 432: ...itten and tested and you will be ready to convert from your old system to the new Section Subsections Page 40 01 I 00 01 Will you be ready Not unless you have planned and prepared for conversion Conve...

Page 433: ...complete After you have completed conversion of your first application you will have a better feel for what is involved and will want to re view the schedule for the remaining areas You may also want...

Page 434: ...0 I 00 Such controls as grand totals subtotals document counts etc will bring quick attention to discrep ancies between the two systems 01 3 Is everyone who is involved in the conversion familiar with...

Page 435: ...run under both the old and the new systems The difference lies in selecting only one or a few easily observed locations or depart ments within the company and performing the operation only for those s...

Page 436: ...le when a weekend immediately precedes the cutover date or when card files are being converted from one format to another Section Subsections Page 40 30 I 00 02 You can see that no one of the conversi...

Page 437: ...5 20 Console Display Lamps 45 05 30 Disk Storage 45 10 00 Printers 45 15 00 Card Readers and Punches 45 20 00 Section Subsections Page 45 00 I 00 01 Paper Tape Readers and Punches 45 25 00 Plotter 45...

Page 438: ...sk system with a powerful complement of input output devices Section Subsections Page 45 01 I 00 01 This section describes the system components in general terms stressing their potential use the vari...

Page 439: ...Us regardless of model have as standard components A console printer A console keyboard 16 data switches Console display lamps Processing functions index registers in direct addressing multiply divide...

Page 440: ...Printer the console printer will nor mally be used only for error messages operator instructions etc Section Subsections Page 45 05 I 10 01 The console keyboard resembles a standard typewriter keyboa...

Page 441: ...information into the system For example one payroll program might handle both factory workers and office workers with each group processed separately The program could be written to read say data swit...

Page 442: ...to repre sent the number is to use the hexadecimal notation IBM 1131 Central Processing Unit with disk drive Section Subsections Page 45 05 I30 01 where each group of four bits is taken as a hexa deci...

Page 443: ...gives access to only one cylinder the arm must be moved in order to read or write on a different cylinder For ex ample to read from cylinder 10 and then write on cylinder 15 the arm must move or seek...

Page 444: ...Section Subsections Page 45 10 I 00 02 IBM 2310 Disk Storage Drive IBM 2315 Disk Cartridge...

Page 445: ...erences but the primary difference is IBM 1132 Printer in printing speed Both print a line at a time 120 characters wide both have a carriage control tape that controls the vertical movement of forms...

Page 446: ...Section Subsections Page 45 15 I 00 02 IBM 1403 Printer...

Page 447: ...combinations of card readers and or punches for the 1130 IBM 1442 Card Read Punch 1 No card readers or card punches 2 An IBM 1442 Card Read Punch 3 An IBM 2501 Card Reader and the IBM 1442 Card Punch...

Page 448: ...Section Subsections Page 45 20 I 00 02 IBM 2501 Card Reader...

Page 449: ...PUNCHES The 1130 system may include the IBM 1134 Paper Tape Reader and or the IBM 1055 Paper Tape Punch IBM lOSS Paper Tape Punch The 1134 reads punched tape at 60 characters per second the 1055 punch...

Page 450: ...on the 1627 Plotter Two models are available Modell Plotting area Step size Speed IBM 1627 Plotter 11 inches by 120 feet 1 100 inch increments 300 steps per second Section Subsections Page 45 30 I00 0...

Page 451: ...hment of the IBM 2250 to the 1130 system The 2250 is an electronic cathode ray tube device IBM 2250 Display Unit and therefore capable of faster speeds than the 1627 Plotter a mechanical device A ligh...

Page 452: ...ts etc The data contained on these documents can be IBM 1231 Optical Mark Page Reader Section Subsections Page 45 40 I 00 read into the 1130 system at a rate of 2000 sheets per hour 01 The 1231 is esp...

Page 453: ...input out put path that allows nonstandard components to be added to the 1130 system These components may be IBM supplied or user supplied Since the SAC is merely a general purpose input output chann...

Page 454: ...OCESSING By means of the Synchronous Communications Adapter SCA the 1130 may communicate over Section Subsections 45 50 I 00 telephone lines with another 1130 an IBM System 360 and or other devices Pa...

Page 455: ...k B 8k 3 6 Microsecond Core Storage Mode I 2 A 4k B 8k C 16k D 32k 3 6 M croseco d Core St rage Includes Single Disk Storage Drive Model 3 B 8k C 16k D 32k 2 2 Microsecond Core Storage Includes Single...

Page 456: ...Section Subsections Page 50 00 I 00 01 Section 50 1130 DISK MONITOR SYSTEM CONTENTS GENERAL 50 01 00...

Page 457: ...hine language object programs The Subroutine Library contains subroutines for data input output data conversion and arithmetic functions The Monitor System coordinates program opera tions by establish...

Page 458: ...e disk in order to utilize disk storage effectively Detailed descriptions of the 1130 Monitor System and its components may be found in the Systems Reference Library SRL For Version 1 see IBM 1130 Dis...

Page 459: ...on 55 THE MONITOR JOB MANAGEMENT CONTENTS Introduction 55 01 00 Job and Subjob 55 10 00 Section Subsections Page 55 00 I 00 01 Stacked Jobs or the Input Stream 55 20 00 Disk Cartridge ID Checking 55 3...

Page 460: ...Monitor System is Job Management helping you the user Section Subsections Page 55 01 I00 01 achieve a smooth orderly transition from one job to the next The Monitor is designed to accept a continuous...

Page 461: ...nstants parameters etc 2 Setting of the temporary indicator if a T is present in column 8 of the control record If set all programs or data files stored in the User Area by DUP during the current job...

Page 462: ...Compile a FORTRAN program subjob 1 Execute it subj ob 2 Here the reason for the job subjob concept can be seen clearly If there were an error in subjob 1 of job 1 the assembly you would not want to co...

Page 463: ...e 55 20 I 00 02 II JOB DUP Source Program C FORTRAN Control Records r comments Object Program B comments Source Program A f Assembler Control Records comments see Cold Start Operating Procedure Figure...

Page 464: ...nted Section Subsections Page 55 30 I 00 01 For example suppose you have placed a payroll data file on a particular cartridge and have identi fied it as cartridge 6066 If you punch 6066 in col umns 11...

Page 465: ...ams and or Data Unneeded User Written Programs and Data Summary 60 20 30 Section Subsections Page 60 00 I 00 01 The Disk Utility Program 60 30 00 Introduction 60 30 01 Format of Material on the Disk 6...

Page 466: ...The amount of Working Storage is decreased more rapidly as each application area adds pro grams subprograms etc Section Subsections Page 60 01 I 00 01 4 Run times may increase as data files are pushe...

Page 467: ...e given a four digit ID when it is initialized The first of the five ID s cc 11 14 informs the Monitor that logical drive 0 is to be the drive containing the cartridge with that ill For example if thi...

Page 468: ...e discussed in detail in the Monitor SRL manual and in general terms here Note that these areas are logical or symbolic rather than physical areas They are not neces sarily intact or contiguous Some o...

Page 469: ...mation that is present on every disk cartridge The exact contents of this area differ depending on whether the disk in question is a systems disk in which case it contains the Monitor or a non systems...

Page 470: ...has been loaded Section Subsections Page 60 10 I 20 01 This area consists of 1 a basic Monitor package of 152 sectors which must be present 2 two optional items which may be removed FORTRAN compiler...

Page 471: ...ur pose by both you and the Monitor you should not leave material in WS if you wish to use it later If you wish to retain a program or data file it should be transferred with DUP to either the User Ar...

Page 472: ...it may be called for use by other programs The UA may contain Data in disk data format DDF Programs and subprograms in disk system format DSF Programs in disk core image format DCI The major differenc...

Page 473: ...expands and contracts as items are added to or deleted from it 3 Like the UA the FX may contain both pro grams and data but the programs must be in disk core image DCI format They cannot be in disk sy...

Page 474: ...s Only on a systems disk Can be removed from Non Sys_ May be removed May be removed Not unless defined by user Not unless defined by user Always Always As delivered the UA contains the IBM Subroutine...

Page 475: ...isk can be split into two portions The portion now being used The portion not now being used and therefore available to you If you have a data file that you want to store on a disk you can ask several...

Page 476: ...uracy of the arithmetic PAGE C I CN 1234 4 1DUMY SFPAO OIAl 49F3 FPAD OlAl 1AOD CIBA 0118 lET UlET 0128 FlET 0000 SCTR NO UA FXA WORDS AVAIL CHAIN AOOR 0002 0130 PRCG FOR DB DB NA E MAT CNT ADDR PTt O...

Page 477: ...s all the room you can get Why keep the FORTRAN compiler on that disk During the test phase when you are compiling many FORTRAN programs you certainly need the compiler once the programs have been deb...

Page 478: ...1130 system plotter paper tape reader etc If you do not have a plotter it makes sense to delete the plotting subroutines As with the FORTRAN compiler and the Assembler you must Section Subsections Pag...

Page 479: ...a deck of cards and produce one or two pages of results It is run monthly consists of 150 FORTRAN source cards and uses 2100 words of core storage To compile without listing and execute it will take...

Page 480: ...case gaining about 37 1 2 sectors Section Subsections Page 60 20 I30 01 3 Delete the technically oriented computational subprograms gaining about seven sectors You thereby have increased the available...

Page 481: ...d punched card or punched paper tape form Remove programs and data files from the disk Determine the contents of disk storage through a printed copy of LET FLET the directory to the disk Alter certain...

Page 482: ...ctions Page 60 30 I 10 01 The main difference between the two lies in what is stored rather than how it is stored A program in DCI format cons ists of a complete self sufficient core load or program p...

Page 483: ...ove it from WS to UA To do this DUP moves the boundary between UA and WS so as to include in UA whatever is in WS For example suppose you have just compiled a program called PROG Z which requires 812...

Page 484: ...gram If you have a program called MAIN6 stored on the disk in DSF by a STORE card you can convert it to DCI with the following sequence 12 3 4 56 78 910 1112 1014 1516 1718 1920 2122 2324 2526 2728 29...

Page 485: ...re more than an inch of cards about 140 cards or 6300 words Extra unpunched cards will be bypassed automati cally by DUP To reload this dumped program the DUMP card should be replaced with 12 3 4 56 7...

Page 486: ...e onto Another Area on the Same Disk 04 Another method of data file backup is to copy the file onto another portion of the disk Typically this would be done before running a job that modifies the file...

Page 487: ...20 are available for your programs and data files If later you wish to increase the size of FXby 6 cylinders you can use 12 34 5 6 78 910 1112 1314 1516 1718 1920 2122 2324 2526 2728 2930 3132 3334 35...

Page 488: ...y a Program onto Another Disk If you have multiple disks you may also choose to back up your programs by copying them to another disk rather than dumping to cards This is similar to the previous task...

Page 489: ...10 10 Flipper 65 10 20 SOCAL Area 65 10 30 General Overlay 1 Overlay 2 Overlay 3 The SOCAL Overlay Scheme Possible Improvements to the SOCAL Scheme Reduce the Size of the Largest SOCAL Overlay Combin...

Page 490: ...storage All three involve the sharing of core Section Subsections Page 65 01 I 00 01 storage by two or more programs LINKs sub programs LOCALs or groups of subprograms SOCALs This section describes t...

Page 491: ...LOCAL Area Program Or LINK Area COMMON Unused These areas are described below in general terms Complete details may be found in the appropriate Monitor reference manual Note that all core sizes given...

Page 492: ...Vector 3 Several commonly used subroutines kept in core storage at all times IFIX FLOAT ELD ESTO NORM etc These are all subprogram subtypes 0 see discussion of subtype under SOCAL Area A good average...

Page 493: ...is routine handles both the SOCAL and LOCAL overlay system Flipper is not required core size 0 if there are no SOCALs or LOCALs if there are its size is about 100 words Unused COMMON Program area LOCA...

Page 494: ...n later subsections of this Guide However these subtype numbers may be changed at your discretion Furthermore you may assign subtype numbers to your own subprograms Both steps will yield a nonstandard...

Page 495: ...e 1132 WRITE on the 1403 WRITE on the 1442 5 WRITE on the console printer typewriter This many words will be included in overlay 2 1150 190 190 70 60 READ or WRITE on the 160 1442 6 or 7 READ from the...

Page 496: ...h room to hold all three packages at the same time This involves the sharing of core storage by overlay 1 arithmetic and overlay 2 non disk I O The area they share must be large enough for the larger...

Page 497: ...ques that may be used to make the standard SOCAL sys tem more effective Reduce the size of the largest SOCAL overlay Since LOCALs discussed later take precedence over SOCA Ls you have a means to remov...

Page 498: ...el 1 r I Overlay I Unused 2 I Non Disk I O Overlay 1 Arith and Disk I O Flipper Step 3 Overlay Level 2 Nonexistent 1750 Section Subsections Page 65 10 I 30 05 Combine Overlays 1 and 3 Again observing...

Page 499: ...not LOCAL will remain in core storage at all times Subroutines must be specified as LOCAL with the LOCAL card every time a nSF program is executed or at the time a core load is built with a STORECI ca...

Page 500: ...so at the time you tell the Monitor to execute or STORECI XXXX 12 34 56 78 9 10 1112 1314 1516 1718 1920 2122 2324 2526 2728 293Q 3132 3334 35 lE 3738 3940 1 2 1 Vo 1 IE il x IXIX Z t oe4LX 1 1 1 1 Q3...

Page 501: ...g Looking at the program however you see that it can actually be thought of as four programs connected as shown in Figure 65 3 If you split BIG into four programs and place the CALL LINK statements in...

Page 502: ...X X items K Integer X X X Real variable X X Y Real variable X X ANS Real variable X X Section Subsections Page 65 10 I60 01 There are many different ways yo u can accom plish this the easiest being to...

Page 503: ...ix areas have been loaded It must be zero or more words in length Good programming practice suggests that it should be at least 100 words to provide for future growth of the Monitor System IBM subrout...

Page 504: ...cludes COMMON program statement on coding program Unused Unknown See the R41 message whatever is of the core map for left over exact size Figure 65 4 Section Subsections Page 65 20 I 00 01 The size of...

Page 505: ...ques General 70 10 40 70 20 00 70 20 01 70 20 10 70 20 20 70 30 00 70 40 00 70 40 01 Section Subsections Page 70 00 I 00 01 Code Conversion 70 40 10 Integer to Real FLOAT Real to Integer IFIX Al to Re...

Page 506: ...tic considerations a discussion of integer real and decimal arithmetic with partic Section Subsections 70 01 I00 ular attention to the accuracy and magnitude of numerical values Page 01 Input output e...

Page 507: ...ate anyway so the resulting answers with some ex ceptions must also be considered approximate However in an accounting application 713 403 14 is exactlythat 713 403 14 If you add up your sales by area...

Page 508: ...e integer arithmetic to process data with implied decimal points Section Subsections Page 70 10 I 10 01 For example if you lmow that pay rates at your company range from 1 25 to 6 50 per hour you coul...

Page 509: ...es 9 bits leaving either 14 or 22 bits for the fraction depend ing on the preciSion chosen This can cause inaccuracies since most fractions cannot be represented exactly in 14 or 22 bits or in any num...

Page 510: ...ror If the face value of 600 payroll checks totals 12345 67 while the systemts grand total is 12345 68 something may be seriously wrong somewhere The fact that the net error is only one cent is immate...

Page 511: ...X 500 0 1000 0 5 etc where the fourth character of the FUNCTION name indicates the number of places to be shifted Accuracy and Magnitude Suppose you are using extended precision real numbers where 31...

Page 512: ...hole number 2111111111 while represented exactly in core storage will be output as 2111111112 an error of 1 unit This problem will occur with numbers in the range 1 073 741 824 to 2 147 483 647 if the...

Page 513: ...digit However since the 1130 cannot represent 0 a special method has been devised to show negative numbers If the number is negative the low order digit is carried as one less than its true value For...

Page 514: ...on For example if you multiply two Section Subsections Page 70 10 I 30 02 two digit numbers 95 and 86 your result is 8220 a four digit number If you multiply a three digit number 666 by a two digit nu...

Page 515: ...main unchanged 11 12131415161718191101111 IK PKI rT r r18191101111121131 I CODING ADDEND AUGEND THEN SUM SUBTRAHEND MINUEND THEN SUM MULTIPLIER MUlTlPLieAND I THEN PRODUCT DIVISOR DIVIDEND NER D THEN...

Page 516: ...4 5 6 7 8 9 10 11 3 X KWORK Will contain result 0 0 X X X X 1 2 3 4 5 6 7 8 9 10 11 12 13 X X X 0 0 3 0 X X I CODING t ADDEND AUGEND THEN SUM j SUBTRAHEND MINUEND THEN SUM NER lol A A CALLALW I V J1...

Page 517: ...ed 0004 1 2 3 4 5 6 7 8 9 10 11 KWORK Will contain result X X X 0 0 2 X X 1 2 3 4 5 6 7 8 9 10 11 12 13 THE GO 15 0 0 3 0 X X X X X X X X X ACTUALLYIN CORE STOeAGE 4 5 7 CODING I ADDEND AUGEND THEN SU...

Page 518: ...55 IWORK Will remain unchanged 1 2 3 4 5 6 7 8 9 10 11 a 0 0 CJ L CJ X KWORK Will contain result X X X 1 1 1 1 1 1 171819 1lTl31 THE 5 s NCORE STORAG AS CODING t ADDEND t AUGEND THEN SUM I SUBTRAHEND...

Page 519: ...IWORK Will remain unchanged 1 2 3 4 5 6 7 8 9 10 11 X X X 1 X X X X X KWORK Will contain result 1 2 3 4 5 6 7 8 9 10 11 12 13 t 0 0 7 7 X X X X X I CODING t ADDEND AUGEND THEN SUM SUBTRAHEND MINUEND T...

Page 520: ...8 9 10 11 X X X 7 5 X X X X KWORK Will contain result 1 2 3 4 5 6 7 8 9 10 11 12 13 X S 0 X X X X X X X CODING t t ADDEND AUGEND THEN SUM SUBTRAHEND MINUEND THEN SUM NER QJ A A I V CALL 4P o IWO eX 4...

Page 521: ...n result t3 0 X X 1 2 3 4 5 6 7 8 9 10 11 12 13 a C 8 X X X x x x x x x CODING t ADDEND t AUGEND THEN SUM I SUBTRAHEND MINUEND THEN SUM NER g A A I CALL 400 IWORK L s kPY RK L NER 1 J y I AFTER NER IW...

Page 522: ...RK Will remain unchanged OOOO 1 2 3 4 5 6 7 8 9 10 11 X 0 8 KWORK Will contain result X X 0 C X 1 2 3 4 5 6 7 8 9 10 11 12 13 X X X X X x 0 0 0 4 a I 1 CODING t AOOENO AUGEND THEN SUM SUBTRAHEND MINUE...

Page 523: ...l remain unchanged 00000 I 1 2 3 4 5 6 7 8 9 10 11 CJ 0 0 0 r X KWORK Will contain result 1 2 3 4 5 6 7 8 9 10 11 12 13 X 0 0 a 0 s S 5 S 5 S r J I CODING t ADDEND AUGEND THEN SUM SUBTRAHEND MINUEND T...

Page 524: ...X X x KWORK Will contain result 1 2 3 4 5 6 7 8 9 10 11 12 13 X X X X 0 9 X x X X X X j I CODING CADDEND t AUGEND THEN SUM I SUBTRAHEND MINUEND THEN SUM NER A A r V CALL 5t B IW RK 1 3 k RK 6 R L 1 y...

Page 525: ...unchanged 1033 1 2 3 4 5 6 7 8 9 10 11 X 4 15 X X X KWORK Will contain result X X X 0 1 2 3 4 5 6 7 8 9 10 11 12 13 S NCORE X X X X 0 9 8 8 X X X X X AS O CODING I ADDEND AUGEND THEN SUM SUBTRAHEND MI...

Page 526: ...1 2 3 4 5 6 7 8 9 10 11 X X 0 8 X X X X X X KWORK Will contain result 1 2 3 4 5 6 7 8 9 10 11 12 13 X X B 8 X X X X X X X X X I CODING I ADDEND 1 AUGEND THEN SUM j SUBTRAHEND MINUEND THEN SUM NER QJ A...

Page 527: ...n result 1 2 3 4 5 6 7 8 9 10 11 12 13 X X X X 2 2 2 2 X X X X X I CODING AD END I AUGEND THEN SUM j SUBTRAHEND MINUEND THEN SUM MULTIPLIER MULTIPLICAND THEN PRODUCT DIVISOR DIVIDEND NER THEN QUOT AND...

Page 528: ...3 4 5 6 7 8 9 10 11 12 13 X X 2 2 2 2 X X X X X X x l CODING AD ND T AUGEND THEN SU SUBTRAHEND MINUEND THEN SUM MULTIPLIER MULTIPLICAND THEN PRODUCT DIVISOR DIVIDEND NER THEN QUOT AND REM A A r r CAL...

Page 529: ...X X X I EAD ND I CODING AUGEND THEN SUM I SUBTRAHEND MINUEND THEN SUM MULTIPLIER MULT PLlCAND I THEN PRODUCT DIVISOR DIVIDEND NER THEN QUOT AND REM A A CALL D V IWORK L KWO eK S NER 1 y AFTER 0 NER I...

Page 530: ...NG gAD ND I AUGEND THENS SUBTRAHEND MINUEND THEN SUM MULTIPLIER MULTIPLICAND THEN PRODUCT DIVISOR DIVIDEND NER QJ THEN QUOT AND REM A A f CALL DIV rWO eK _I_ KWO eK L NER y AFTER 0 J NER IWORK Unchang...

Page 531: ...7 8 9 10 11 0 2 X X X X X X X X X KWORK Will contain result I 121 1 1 161718191 lTl31 CODING AD END I AUGEND THEN SU SUBTRAHEND MINUEND THEN SUM MULTIPLIER MULTIPLICAND THEN PRODUCT DIVISOR DIVIDEND...

Page 532: ...X X 1 2 3 4 5 6 7 8 9 10 11 12 13 X X X 7 0 8 X X X X X X I I AD N I CODING AUGEND THEN SUM I SUBTRAHEND MINUEND THEN SUM MULTIPLIER MULTIPLICAND 1 THEN PRODUCT DIVISOR DIVIDEND NER 101 THEN QUOT AND...

Page 533: ...fying Signs To facilitate testing and modifying the signs of deci mal arithmetic fields the subroutine NSIGN is available It has four parameters NARRY The name of the array NPOS The position in the ar...

Page 534: ...cally used within the parentheses of an IF state ment IF ICOMP IWORK 1 5 KWORK 6 10 1 2 3 This statement will compare IWORK 1 5 with KWORK 6 10 and branch to Statement 1 if the first is less than the...

Page 535: ...607 you may use standard precision real fixed point arithmetic 4 If no addition will ever exceed 2 147 483 647 you may use extended precision real fixed point arithmetic 5 If the result of a multipli...

Page 536: ...ections Page 70 20 I 01 01 This means that only a little more than 10 of the CPU time is required to read and write on the disk the remainder is available for other use Although most of the 1130 s I o...

Page 537: ...credit of 6 50 would be punched with an II punch over the zero rather than in a separate column as would be done if FORTRAN FORMAT were used In general for your non disk I O you must choose either one...

Page 538: ...1442 6 or 7 Subroutine STACKpermits the FORTRAN programmer to direct a card into the alternate stacker on the 1442 Model 6 or 7 After the statement CALL STACK the last card read and only the last card...

Page 539: ...Note that the first pos ition is not used to control the printer carriage as it is with stacdard FORTRAN The SKIP routine must be used if you wish to skip to channell double space etc SKIP on 1132 Su...

Page 540: ...UT array the corresponding action will be performed at that point Value Action 1344 Tabulate 5184 Shift to black 13632 Shift to red 5696 Backspace 5440 Carrier return 9536 Line feed Because TYPER does...

Page 541: ...USE or STOP The sub routine laND will do this for you by testing the status of the interrupts and looping until none are pending laND is required only when Version 1 of the Monitor is used it should n...

Page 542: ...READ PUNCH KEYBD Thus the sequence in which you use these rou tines becomes important For example suppose you have a program that develops some result then must print a line on the 1132 and punch a c...

Page 543: ...not use FORMAT statements in con junction with the overlapped I O routines you must enter alphabetic headings and other constants in some other manner Several methods are available 1 Use the DATA stat...

Page 544: ...ctions of this Guide Figure 70 22 summarizes the advantages and disavantages of each alternative You can see that the convenience items ease of programming read ability etc are gradually sacrificed in...

Page 545: ...effort in most com mercial applications falls into the general classification of character handling code conversion editing moving data testing zone punches comparing alpha betic data etc This sectio...

Page 546: ...on GET PUT and EDIT work with data in the Al format The A2 code is used primarily when writing alphabetic data on the disk since it holds twice as much data per word as Al format Decimal code is encou...

Page 547: ...usually be 1 0 if you want accurate results If it had been 1 X would be 1986 8 however since the fraction 8 is present you could expect it to be inaccurate Subsection 70 10 20 explains why fractions s...

Page 548: ...st factor and the truncate factor usually form a logical pair Obvi ously if you add 5 to half adjust you won t want to print the resulting digit The table below shows the common pairs 5th parameter ha...

Page 549: ...ountered an invalid character not 0 through 9 or a blank The exception to this is the last rightmost character which may contain an 11 or 12 punch indicating a sign See the table below for allowable p...

Page 550: ...n slphabetic G IUNPK 6 contains an alphabetic 0 Now suppose we say CALL PACK IUNPK 1 6 IPAKD 1 The data is packed and moved from IUNPK to IPAKD IPAKD 1 contains an alphabetic 1 and 2 IPAKD 2 contains...

Page 551: ...06 Other Code Conversions As Figure 70 23 shows there are other code con versions that you may require However since they are unusual and can be performed as a com bination of several other steps the...

Page 552: ...3 in the MASK array After editing the MASK field is replaced by the edited source field if you wish to use it again therefore you must save it some where else Usually the mask will be moved into the o...

Page 553: ...THE POSITION OF THE DOLLAR SIGN AND PUT A DOLLAR SIGN IN THAT POSITION IN THE MASK FILL IN LINE c SHOWING A TYPICAL NEGATIVE FIELD AND HOW YOU WANT IT TO APPEAR WHAT DO YOU WANT DONE WITH A NEGATIVE...

Page 554: ...EXAMPLE bbbb IF SO NOTE THE POSITION OF THE DOLLAR SIGN AND PUT A DOLLAR SIGN IN THAT POSITION IN THE MASK FILL IN LINE c SHOWING A TYPICAL NEGATIVE FIELD AND HOW YOU WANT IT TO APPEAR WHAT DO YOU WA...

Page 555: ...FOR EXAMPLE bbbb IF SO NOTE THE POSITION OF THE DOLLAR SIGN AND PUT A DOLLAR SIGN IN THAT POSITION IN THE MASK FILL IN LINE c SHOWING A TYPICAL NEGATIVE FIELD AND HOW YOU WANT IT TO APPEAR WHAT DO YO...

Page 556: ...HE POSITION OF THE DOLLAR SIGN AND PUT A DOLLAR SIGN IN THAT POSITION IN THE MASK FILL IN LINE c SHOWING A TYPICAL NEGATIVE FIELD AND HOW YOU WANT IT TO APPEAR WHAT DO YOU WANT DONE WITH A NEGATIVE FI...

Page 557: ...bbb IF SO NOTE THE POSITION OF THE DOLLAR SIGN AND PUT A DOLLAR SIGN IN THAT POSITION IN THE MASK FILL IN LINE c SHOWING A TYPICAL NEGATIVE FIELD AND HOW YOU WANT IT TO APPEAR WHAT DO YOU WANT DONE WI...

Page 558: ...OF THE DOLLAR SIGN AND PUT A DOLLAR SIGN IN THAT POSITION IN THE MASK FILL IN LINE c SHOWING A TYPICAL NEGATIVE FIELD AND HOW YOU WANT IT TO APPEAR WHAT DO YOU WANT DONE WITH A NEGATIVE FIELD INDICAT...

Page 559: ...ITION OF THE DOLLAR SIGN AND PUT A DOLLAR SIGN IN THAT POSITION IN THE MASK FILL IN LINE c SHOWING A TYPICAL NEGATIVE FIELD AND HOW YOU WANT IT TO APPEAR WHAT DO YOU WANT DONE WITH A NEGATIVE FIELD IN...

Page 560: ...aracters may be found in the CSP manual However it is usually easier to obtain their value indirectly with a DATA statement For example to fill a printer output line with dashes you would place a DATA...

Page 561: ...tatement IF ITHIS ITHAT 1 2 1 will branch to statement number 2 if they are iden tical and statement number 1 if they are different The format AI or A2 does not matter except of course that it must be...

Page 562: ...4 10944 5 10688 6 10432 7 10176 8 9920 9 A1 Decimal Equivalent Character 7616 blank 7360 period 7104 less than 6848 6592 6336 6080 5824 4032 3776 minus 3520 3264 3008 2752 2496 2240 apostrophe 1984 17...

Page 563: ...ter it would appear as 167N where the character N is equiva lent to a 5 and an 11 punch In a few cases zone punches may also be found in card columns other than the low order digits of a numeric field...

Page 564: ...indicating what zone punch was present NOLDZ Zone Punch Character 1 12 A I 2 11 J R 3 0 S Z 4 none 0 9 more than 4 special character Note that an NOLDZ of 4 or more does not tell you what zone punch...

Page 565: ...another way is to use efficient overlays see Section 65 The core storage requirements for any particular program can be split into three major elements The object code generated by the compiler The s...

Page 566: ...tement merely takes care of initial izing their values 2 If you say TOT 1 1 5 later in the program this will be done and TOT 1 will no longer be O O 3 If you want to clear out these tables again durin...

Page 567: ...y either F6 2 F6 2 F6 2 or 3F6 2 With alphabetic heading data there are more options To type a line which reads bbbbbbbbbTOTAL you can use as FORMAT statements the following a FORMAT 14HbbbbbbbbbTOTAL...

Page 568: ...t item ANSWR array you would code DIMENSION ANSWR 8 ANS6 6 EQUIVALENCE ANS6 1 ANSWR l WRITE 3 XXX ANS6 saving 23 7 or 16 words Section Subsections Page 70 50 I 10 Avoid Long Subroutine Argument Lists...

Page 569: ...CE statement such as EQUIVALENCE TOTDF TOTAL 10 Then rather than say TOTAL 10 TOTAL 10 AMT you would code TOTDF TaI DF AMT and save two words In a large program the saving can be consider able Further...

Page 570: ...10 10 2 100 However if this is the only way in which the double asterisk is used in a particular program it will usually be more economical to code DATA TEN I 10 100 1000 etc and then use subscriptin...

Page 571: ...the way in which the SOCAL system operates your program may still fit in core but with more overlays thus causing it to run more slowly It would be wiser to maintain a set of cards with only one devic...

Page 572: ...se something goes wrong However since Section Subsections Page 70 50 I 20 these features consume both core space and time they should be eliminated when no longer needed 03 Core requirements are incre...

Page 573: ...400 4500 4400 2000 8000 5100 8100 4300 real integer real integer real integer real integer real integer real real integer integer FLOAT FIX subscript no variabl e subscript one variable subscript two...

Page 574: ...lity of one third for path 1 and two thirds for path 2 the estimated execution time is Section Subsections Page 70 60 I 10 02 Operation No of Times x Unit Time Total 1 1 3 2 3 2 330 660 1 440 440 1 49...

Page 575: ...EYERY 3 T 4 5 GO T03 C Z X r 8 TJA CJ c i T OF THReE T ME 5 3 CV A T NC c Number Time per Execution Extension Component of Microseconds Microseconds Executions re t l Lf 7 330 0 1 r t I 4 4 0 LGJ4r 33...

Page 576: ...DING X I X I Ir X I 7h 0 2 L 1 Z x rJ 4 GO ro 3 Z Z X r J1 3 C N Nt C 5Qme 05 r lvre 7c 3 exee 41 X 5 St e5 sCr r Number Time per Execution Extension Component of Microseconds Microseconds Executions...

Page 577: ...ORTRAN TIMING ESTIMATE WORKSHEET CODING C COC 7 TO c JoCl 0 Lc OP 00 17 I d 000 17 C O 7 A c Number Time per Execution Extension I Component of Microseconds Microseconds Executions 0 lOG COC 22 I 5t J...

Page 578: ...N T Tt l 1 JtJt I 0 7 If CI t JtJCJ I 2 2 z f GO 7 0 7 2 caNT A vE Number Time per Execution Extension Component of Executions Microseconds Microseconds k r 000 22 2 2 0 0 0 k96 r ttJoL 2 I 2 0 2 Frf...

Page 579: ...O C sTAN o J O PRECiS aN x o o 7 JF x ooo 2 2 i x f 60 TO 7 2 Cc NT NUE Number Time per Execution Extension Component of Microseconds Microseconds Executions 000 360 3 0 0 0 0 re 4 ao SbO 5 G 0 s b 0...

Page 580: ...EXrEN PREC S t V 0 t 7 r x c oo 2 2 1 X x r f GO Tc 7 2 CO V 7 NUE Number Time per Execution Extension Component of Executions Microseconds Microseconds ttPtfI cJOO 3 30 3 3 0 0 0 0 t 00 49CJ 9 0 4 9...

Page 581: ...LJ t 7 T cONsrAlA c c OOOCff Ot q C4LL F LL I0 1 10 1 j 7 IF COM P X 1 ltJ 1 OOOJ I J 0 0 27 2 1 C iLL 40D X I 10 I 2 N GO 707 2 CCJA NG c Number Time per Execution Extension Component of Microsecond...

Page 582: ...sion and standard precision real arithmetic are of essentially the same speed Section Subsectiors Page 70 60 I20 01 3 Decimal arithmetic is fairly slow 4 Subscripting adds a considerable amount of tim...

Page 583: ...Section Subsections Page 70 60 I20 02 FORTRAN TIIViING ESTIMATE WORKSHEET CODING Number Time per Execution Extension Component of Microseconds Microseconds Executions TOTAL...

Page 584: ...75 30 00 Introduction 0 75 30 01 Key Compare vs Key Value Radix Techniques Sequence Creating vs Sequence Reducing Techniques Section Subsections 75 Degree of pata Accessibility Degree of Generality 00...

Page 585: ...number employee number etc Similarly when payroll earnings are to be computed or data is to be tabu lated in accordance with some scheme of classifi cation it is necessary to arrange the information i...

Page 586: ...major minor that is decreasing order of significance see Figure 75 2 Since the control fields of a record may consist of numbers letters or special characters etc an order must be prescribed for the...

Page 587: ...e in core storage Note however that since the num ber of data records to be sorted usually exceeds G the num ber contained at one time in core storage the internal sort process must generally be repea...

Page 588: ...d and move operations the structure of the OP code set and the availability of indexing table lookup etc For a given sorting method the data file charac teristics influence the primary sorting statist...

Page 589: ...your files and the reports to be produced Section Subsections Page 75 20 I 00 01 from them You may find that sorting on your 1130 is not necessary or that sorting can be avoided Some alternate approa...

Page 590: ...Jones Jones Smith Smith 1 Williams 2 3 00103 00109 00110 00115 00131 r 87961 Indexed Sequential Is it possible to keep multiple copies of your index with each index in the sequence of a report to be...

Page 591: ...6 6 043 7 055 8 99 591 100 603 Index in man number sequence same as file To run payroll etc look up employee in this index Birth date Birth Record date number Index in birth date sequence To run birth...

Page 592: ...sorted cards A mechanized procedure involves the use of a sorter IBM has mechanical sorters available that can process up to 2000 cards per minute The rule of thumb procedure for timing offline mechan...

Page 593: ...a group of Section Subsections Page 75 30 I 01 records into core storage sorting the records internally and placing the resulting sequence on 01 an intermediate storage device This internal sort proce...

Page 594: ...specific application 1 Characteristics of the machine basic proc essing speed internal storage capacity etc 2 Input output characteristics number of disk drives 3 Number and length of data records 4 L...

Page 595: ...ng a pass through the file Many variations of this general procedure are possible 02 The major advantages of exchange techniques are the relative ease of their programming and the fact that all work i...

Page 596: ...ng make it one of the most widely used sorting techniques There are two basic methods of merge sorting 1 straight or standard merging with fixed length sequences and 2 natural merging with variable le...

Page 597: ...e known as replacement sometimes replenishment tries to keep the core storage area filled with G items by replacing records that have been withdrawn dur ing the sort As a result for a file in random o...

Page 598: ...a fairly large storage area about two or three times the size of the area needed for the original file If only a relatively small working storage area is available or if the distribution within the fi...

Page 599: ...of records can be accessed immediately without the need for passing over other unwanted Section Subsections Page 75 30 I 20 01 records Despite their name direct random access file storage media such a...

Page 600: ...sk record numbers or tags These record numbers then serve as an index for placing the input records in sequence At your option sorting can end at this point Phase 3 Record Retrieval This phase is nece...

Page 601: ...be used to so rt a disk file depends largely o n the ultimate disPo sitio n o f the so rted reco rds Sectio n Subsectio ns 75 30 I 20 If o nly an index o f so rted reco rds is necessary and few o f th...

Page 602: ...oceeding downward recognizes that 89 and 56 are out of se quence and exchanges them The high of the com pare 89 is then compared in turn with 02 08 and 21 since 89 is higher in each case it moves to t...

Page 603: ...op when M O top to bottom when M O DISK 1 M NREC2 NRL NRPC NARAY NRECT FIND NREC1 SORT NEXS LARRY NRL KS KE N N NEXS NRW 2 L DISK __ 2 M NREC 2 M NRPC NRL NRPC NARAY NRECT NREC2 NREC1 NREC1 NSTRT N O...

Page 604: ...o cf H derJ S 2CJ If1 J e r1 1QK VA t7 oWC7J CQa A1 I T ec LJ SO vp eIJk tPr ck rA h e or Z T Jb he I 4 CcJV c I R 1VR7be t J eKC 7d49 S 7 t2 o4SS r7t dllJe j rec 7r 1 4R4Y 41I T n1e of drrdt b P card...

Page 605: ...1 1 L 0 1 NRL 1 N I NRL NREC NREC M L H NRPC I 1 NRL N NRPC I NRL NREC NREC M 1 1 1 Section Subsections Page 75 40 I00 04...

Page 606: ...C Used 7 rJc7eXeQ Pedc h r I e i I I T 5GOO Wk t of gt JI g orcur t n t record e 7r 4 r He 7 AI f T r W use Aq o A IRA H t V fe dn7l1 q f1 t I I T 256 A JPL 6 o cC e 7 C c7rd e q tfet d IJ t en 1 4 JA...

Page 607: ...EX 0 K 1 NCOMP NARAY K KS 1 K KE 1 NARAY K NRL KS 1 MOVE NARAY K K NRL 1 ITEMP 1 MOVE NARAY K NRL K NRL NRL l NARAY K MOVE ITEMP 1 NRL NARAY K NRL NEX NEX 1 Section Subsections Page 75 40 I 00 06 K K...

Page 608: ...d r Z T 57 8 sed d 7d e t o r KE f Z User 2 E nd rAe C0 77ro ke p h 8a td J 1 i Js h CJ p b kS L Z ser 8 J I or rhe Conrro kt5 rs dorr 7 9 tqlJhb P cs r O 7 LARRY Z I ser S ZO Ie 1 J h o rh ct Jrd o S...

Page 609: ...h you can avoid sorting are 1 Maintain multiple copies of your files Section Subsections Page 75 50 I00 01 2 Maintain multiple copies of your index if an index exists 3 Sort offline If you decide that...

Page 610: ...and Logical Structures 80 30 00 The DEFINE FILE Statement 80 30 10 The STOREDATA and FILES Cards 80 30 20 Section Subsections Page 80 00 I 00 01 Record Lengths and Sector Utilization 80 40 00 A Trick...

Page 611: ...n the disk these normally present little difficulty since the 1130 Monitor system handles most of the details involved Section Subsections 80 01 I 00 The way in which the disk is used can signifi cant...

Page 612: ...t the disk arm must be moved to the new cylinder The disk mechanism moves the arm directly from the old position to the new position in steps of one or two cylinders It does not return to a home posit...

Page 613: ...ize of the record and each record has a symbolic record number starting with 1 Section Subsections Page 80 20 I 00 01 Within the record you can place fields which may be real decimal or integer number...

Page 614: ...by the symbol K doing your own manipula tion of K and not using NEXT at all If you wish to read the next record you can say either READ 47 NEXT A B I J or K K 1 READ 47 K A B I J An 85 word disk reco...

Page 615: ...fI 0 4 19Gl7 19 I which sets aside 134 sectors in the User Area UA of disk cartridge 1967 and labels it PAYRL Notice that 1 The information contained on the DEFINE FILE 47 400 85 U NEXT card does not...

Page 616: ...r in the User Area UA or Fixed Area FX In most cases it does not matter which is chosen since both areas are safe from accidental destruction The main difference is that files in the Fixed Area are in...

Page 617: ...k If you could fit three records per sector your total sector requirements would drop to 234 or 30 cylinders It is entirely possible that there are 30 cylinders available on a particular disk but not...

Page 618: ...DEFINE FILE 4 800 50 U N DEFINE FILE 5 500 80 U N etc Note that all four files fulfill the first two rules same number of words as file number 1 40 000 and record length less than 320 However only FIL...

Page 619: ...rs WORDS WORDS Card Used 3xR 3xI 2xR 2xI Section Subsections Page 80 50 I00 01 In the case of fields comprising the items of an array often alphameric data the number of items is the size of the array...

Page 620: ...re Discount and interest rates Prices or price differentials Inventory quantity on hand quantity on order etc Payroll savings bond deduction city and state taxes miscellaneous deductions 5 Alphabetic...

Page 621: ...ions Page 80 60 I00 02 To compress these values before writing on the disk all you need do is KODE IE 10000 MSC 1000 MORF 100 NDEP To decompress the word KODE after reading it from the disk you could...

Page 622: ...decide to use the disk as an extension of core storage to accu mulate the two tables After this job has been run you have no need for the data so you decide to keep it in Working storage WS Two files...

Page 623: ...ords Length per Sector 320 FX WS 13 14 17 18 Recore Records Record Records Record Length per Sector Length perSectol Length 10 32 19 20 16 41 45 29 21 46 53 26 22 54 64 13 24 23 24 13 65 80 22 25 26 1...

Page 624: ...er Sector 320 160 106 80 64 53 45 40 36 Number of 17 18 Record Records Length per Sector 10 32 11 29 12 26 13 24 22 15 21 16 20 17 18 18 17 Record Length 19 20 21 22 23 24 25 26 27 29 30 32 33 35 36 4...

Page 625: ...8 Record Records Record Length per Sector Length 10 32 19 20 11 29 21 12 26 22 13 24 23 24 22 25 26 15 21 27 29 16 20 30 32 17 18 33 35 18 17 36 40 Records Cartridge ID Number Record per Sector Length...

Page 626: ...of subtotals of department worked for vs department charged to This is a temporary file used only as an extension of core storage not saved from job to job Assume you have only one disk drive and don...

Page 627: ...Don t need STORE DATA card STORE DATA FILES OR FILES INl 60 13 14 40 36 Number of 17 18 18 17 36 40 Cartridge 10 Number If 10 number is not used Record Length per Sector 46 53 54 64 65 80 107 160 161...

Page 628: ...to be placed in WS Don t need STORE DATA card STORE DATA FILES OR FILES 22 13 14 121Rlo Idl Cartridge ID Number Number of 17 18 18 17 36 40 If ID number is not used Record Records length per Sector 4...

Page 629: ...40 35 Number of 13 14 17 18 Recore Records Record Records Record Length per Sector Length per Sector Length 10 32 19 20 16 11 29 21 46 53 26 22 13 24 23 24 13 65 80 22 25 26 12 1 106 1 21 27 29 107 16...

Page 630: ...A LS of File File Number Next Indicator Number of Words per Record DEFINE FILE File to be placed in card STORE DATA 9 FILES OR FILES 13 14 17 18 b5k 18ITI 21 22 232425 File Name Cartridge ID Number If...

Page 631: ...eed a name or a FILES or STOREDATA card How then can you tell the 1130 Monitor on which disk drive it should be placed Again with the II JOB card Columns 41 44 should contain the cartridge ID number o...

Page 632: ...rSeclor 320 160 106 80 64 53 45 40 Vi Number of 17 18 Cartridge ID Number 101011 121 If ID number is not used Record Records Record Record Length per Sector Length per Sector Length 10 32 19 20 16 41...

Page 633: ...Sector Length 320 10 160 11 106 12 80 13 64 14 53 15 45 16 40 17 35 18 Number of 17 18 Records Record per Sector Length 32 19 20 29 21 26 t 2 24 23 24 22 25 26 21 27 29 20 JO 32 18 33 35 17 36 40 Cart...

Page 634: ...OR FILES 6 Record Length per Sector 320 160 106 80 64 53 45 40 35 Number of 13 14 17 18 ecord Records Record Length per Sector Length 12 13 15 16 32 19 20 29 21 26 22 24 23 24 22 25 26 21 27 29 20 30...

Page 635: ...18 Cartridge ID Number If ID number is not used Record Records Record Record Length per Sector Length per Sector Length 10 32 19 20 16 29 21 15 46 53 12 26 22 14 54 64 23 24 14 22 25 26 12 81 106 15 2...

Page 636: ...Indexed Sequential 85 10 20 Choosing an Index Step Size Building the Index Searching the Index Maintaining the Index Adding Items to the File Section Subsections Page 85 00 I00 01 Direct or Random Org...

Page 637: ...e available Sequential processing of sequentially organized data Random processing of sequentially organized data Section Subsections Page 85 01 I00 Sequential processing of randomly organized data Ra...

Page 638: ...d for the record number This index is a sequential list of the keys of selected data file records with their correspond ing record numbers An example of a sequentially organized data file is a telepho...

Page 639: ...ns Page 85 10 I 10 01 A further improvement can be made if you search first in large increments say 100 then when you pass the desired item back up with a smaller in crement say 20 and after passing t...

Page 640: ...file additions is to set up a separate addition area on the disk either as a separate file or as a special area in the main file With the latter option new employees would be placed at the end of the...

Page 641: ...se your program reads record 74 checks the stock number to see if it is 181 then reads record 73 72 71 70 69 68 etc down to record 51 If 181 is on the disk and in the right order you will find it rela...

Page 642: ...to creating the data file on the disk The ITEM will be placed and at this number from on this disk position in this card record the INDEX table first 1 1 second 2 1 third 3 1 fourth 4 1 fifth 5 2 six...

Page 643: ...NFILE the number of the file Figure 85 1 1 FOR EXTENDED PRECISION TRANSFER TRACE ONE WORD INTEGERS LIST ALL ARITHMETIC TRACE SU8ROUTIN FINDM NREC ITEM NFILE ITABL LTABL ISS IER DIMENSION ITABL l IER...

Page 644: ...t item READ NFILE NR data Maintaining the Index When using an indexed sequential disk data file you must make sure that the index agrees completely with the file If you rearrange records in the file w...

Page 645: ...ile will run very slowly because of the amount of seeking or disk arm movement required One remedy would be to make the employee numbers more compact If there are 300 employees why not renumber them f...

Page 646: ...EFINE FILE DEFINE FILE DEFINE FILE 1 10 X U Nl 3 40 X U N3 4 20 X U N4 5 20 X U N5 6 60 X U N6 7 70 X U N7 10 20 X U NlO 11 30 X U NIl 12 30 X U N12 15 70 X U N15 requiring a total of 360 records to h...

Page 647: ...gani zation a file was sequential or random depending on Section Subsections Page 85 20 I 00 the order in which control keys were placed on the disk 01 Consider the telephone directory a sequential fi...

Page 648: ...is not easy to make the basic decision as to which combination of techniques to use Sequential organization sequential processing Sequential organization random processing Random organization sequent...

Page 649: ...of output on reports etc Make sure this is so If it is go to step 3 b One There is only one basic processing sequence des ired go to step 4 c More than one This complicates the matter Go to step 5 Pr...

Page 650: ...e General Productive Time That Cannot be Improved by Hardware Changes 90 01 00 90 10 00 90 10 01 90 10 10 90 20 00 90 20 10 90 20 20 90 20 30 90 30 00 90 30 01 90 30 10 Section Subsections Page 90 00...

Page 651: ...ften Section Subsections Page 90 01 I 00 01 forgotten in the drive to produce a working program The programmer usually working against a deadline devotes all his energy and ingenuity to the TEST DEBUG...

Page 652: ...nput Oltput cards printer etc Overlay 3 Disk Input Output As step 2 the CLB determines whether the package will fit in core if Overlay 1 and Overlay 2 share the same area in core storage the SOCAL are...

Page 653: ...Disk I O 1750 Overlay 1 Arith 520 Step 2 Overlay Level 1 Overlay 2450 3 Disk I O 700 Overlay 2 Unused Non Disk I O 1750 Overlay 1 Arith 520 r Unused Overlay 1 Arith 520 Step 3 Overlay Level 2 1750 I O...

Page 654: ...or through put rate If its size is such that it must run at SOCAL level 1 Overlay 1 Arithmetic and Overlay 2 Non disk II0 must be read from the disk when ever required Figure 90 3 shows when these ove...

Page 655: ...Section Subsections Initialization Arithmetic 90 10 ____ I OJlERLAY JlRITfI WITII NON DI 5KI O Read Card OYERLAY NON DISK WITH ARITii Look up key item number in index table NOVE DISK ARM aM _I FROM OV...

Page 656: ...void SOCAL Overlay level 2 The difference between level 2 and level 1 is either 620 words HEAD and WRITE disk or 700 words HEAD WRITE and FIND disk but this does not mean that you must cut 620 or 700...

Page 657: ...The program the CLB was manipulating was after Section Subsections Page 90 20 I 00 01 all planned organized and programmed by you not by the CLB Anyone of these three functions if not properly done c...

Page 658: ...sed by one comprehensive program but overall it would probably turn out to be quite inefficient Because it would be a very large program it would probably involve many overlays and could run for eight...

Page 659: ...running at a comparatively slow rate you should investigate it closely if the program is using level 2 overlays you should make a determined effort to reduce its size enough to allow CLB to use level...

Page 660: ...OCALs and SOCAL level 2 altogether Another LINK is possible here a type you might call a repetitive LINK Suppose you split the main program into PARTI a Read card b Look up key in index c CALL LINK PA...

Page 661: ...age required for the subtraction within the IF statement parentheses Furthermore the disk READ command requires the disk arm to move away Section Subsections Page 90 20 I 20 03 from the SOCAL disk are...

Page 662: ...versely if you have a program at level 2 it may take anywhere from one word to 700 words to make it drop to level 1 If it was 4921 before it will take only one word if it was 5620 it will take 7 0 wor...

Page 663: ...rogram quite easily and is simple to use Suppose your program calls for a disk read from record NR of file 6 READ 6 NR DATA The disk subroutine will automatically compute where that record resides mov...

Page 664: ...may want to remove all the FIND statements from your program eliminating the SDFND subroutine which is approx imately 80 words long Other Read Coding Location Arm Movement Record Continue of Record I...

Page 665: ...changes Section Subsections 90 30 I 01 2 Productive time that can be improved by hardware changes Page 01 3 Nonproductive time that cannot be improved by hardware changes 4 Nonproductive time that ca...

Page 666: ...ype writer the console keyboard the paper tape reader and the paper tape punch are four such devices In addition the reading writing speed of the disk is constant which means that the reading writing...

Page 667: ...000 milliseconds This is in addition to whatever manip ulation must be performed on the data on those cards In a FORTRAN program the system must at the very least convert the Hollerith card codes to E...

Page 668: ...nute so the next lower speed 300 cpm must be assumed 2100 cards at 300 cpm yields a total time of seven minutes A similar analys is for the 2501 A2 gives a theoretical speed of 412 cpm but choosing th...

Page 669: ...card listing job In ten minutes it reads 600 cards prints 600 lines and skips 100 lines This can be broken down as follows Operation Read card 1442 6 Print 1132 600 750 Skip 100 16 Everything else Tot...

Page 670: ...w much time you were computing before with a 3 6 microsecond CPU in which case you cannot possibly tell what effect the 2 2 microsecond CPU will have Let us review the previous example 1442 6 and 1132...

Page 671: ...time If you can execute your programs without any overlays they can be expected to run at some top speed governed mainly by the amount of productive work you want done Additional Disk Drives Unlike c...

Page 672: ...how to do so without adversely affecting performance In order to best illustrate these principles three case studies or sample problems are shown in de tail Case I a commercial job typical of a payrol...

Page 673: ...e It may not be the best approach but it results in a set of programs that produce the Section Subsections Page 90 40 I 10 01 desired result fit in core storage and operate at a near maximum throughpu...

Page 674: ...g 388 hexadecimal or 904 words II XEQ PAYRO L FILES 1 FILEi l FILES ALLOCATIO 1 01A3 0001 7U61 FILEN 22 0000 UOOl 7U61 OlA7 STORAGE ALLOCATION R 40 07AD HEX ADDITIONAL CURE REQUIRD R 43 OlFC HEX ARITH...

Page 675: ...uew 1765 lOCAL lIBF TRANSFER VECTOR HOLTB 1EBB SOCAL 2 EADDX 1883 SOCAL 1 XDO 1988 SOCAl 1 FARC 1966 SOCAL 1 XMD 1924 SOCAL 1 ELDX 1528 NORM 1594 HOLEl 1E52 SOCAL 2 EBCTB 1E4F SOCAL 2 GETAo lE06 SOCAl...

Page 676: ...EX FI O I U UCAL wO CNT R 45 02A2 HI X DISK FI O OCAL WD CNT R 41 005E HEX wDS UNUSED BY CORE LOAD CALL T ANSF R V CTOH SUBW 1753 SUBZ 1627 SUBYl 155F SUl3Y2 13CF SUl3Y3 123F DATSI I 1946 SOCAL 1 L1BF...

Page 677: ...XOD 1CDC FARC lCtlA XtvlD lC78 ELDX lA12 ORr lC4E HOLEl lC18 EBCTtl lC15 GETAD IdCC IFIX IBAO PAUSE iB68 ESBR 1B54 I ADD lAF9 EDIV 1AAO EMPY 1A72 EDVR 1A5A FLOAT 1A48 SUtlSC 1A2A ESTO lAOO ELO lA16 PR...

Page 678: ...ll require such a move ment only between steps band c c and d After considerable study we decide that there is very little that can be done to further improve the performance of this program unless of...

Page 679: ...ome good examples of this type of job are billing accounting cost systems etc Section Subsections Page 90 40 I 20 01 Assume that this application is some type of project cost system with a master card...

Page 680: ...1 FIL EN 22 0000 UOOl 7061 01A7 STORAGE AL L OCATION R 40 084C HEX ADDITIONAL CORE REQUIRD R 43 01E6 HEX ARITH FUNC SOCAL WD CNT R 44 06E8 HEX I O 1 0 SOCAL WD CNT R 45 02A2 HEX DISK FIIO SOCAL WD CNT...

Page 681: ...ut of8 t GET data from labor card just read M Calculations t N Add to job totals O Print detail line A Initialize B Read a card C Check the card code 0 to B last card material card 3 out of 8 t P GET...

Page 682: ...for overlays between the disk READ and WRITE II XEQ COST L 2 FILES l FILEN LOCALCOST FI AL NEWPG BADCD T U V W FILES ALLOCATION 1 01A3 0001 7061 FILEN 22 0000 0001 7061 01A STORAGE ALLOCATION R 40 02...

Page 683: ...master bad A Initialize s Reada card card C Check the labor card 4 out of 8 L GET data from labor card just read M Calculations N Addtojob totals o Print detail line card code material card 3 out of 8...

Page 684: ...1A STORAGE ALLOCATION R 40 02FE HEX ADDITIONAL CORE REQWIRu R 43 01 6 HEX ARITH FUNC SUCAL WD CNT 44 06 8 HEX FI O 110 SOCAL WU CNT K 4 U A IH X uISK rIIU SOtAL wu tNT K 4 U 4 IH AJ wu UNU D bY CUR LU...

Page 685: ...the labor card 4 out of 8 L GET data from labor card just read M Calculations N Add to job totals o Print detail line card code r L MOI E H Read disk record for new master BLOck D POWN HE Re material...

Page 686: ...that SOCALs are no longer required II XEQ CUST L LOCALCOS T FI J AL NEWPG ADCD T u v W I F G FILES 1 FILEi FILES ALLOCATION 1 01A3 0001 7061 FILEN 22 UuJU UU01 7061 OlA7 STORAGE ALLOCATIOJ R 41 OOUA...

Page 687: ...data from labor card just read M Calculations N Add to job totals O Print detail line BLOCK 0 HAS 8 E II MOVE OOWN HERE card code material card 3 out of 8 P GET data from material card just read Q Cal...

Page 688: ...ommon sense steps to improve performance 1 Make the exception subroutines LOCAL 2 If that still requires SOCALs consider sep arating the program into LINKs In this case this approach did not seem to b...

Page 689: ...l and error computa tion and very little input output The program reads Section Subsections Page 90 40 I 30 01 a deck of ten cards computes for quite some time then prints a page of answers On the bas...

Page 690: ...ECH L FILES l FILENI FILES ALLOCATION 1 01A3 0001 7061 FILEd 22 OOOU 0001 7061 01A7 STORAGE ALLOCATION R 40 068C HEXI ADDITIONAL CORE REQUIRO R 43 01C4 HEXI ARITH FUNC SOCAL wD CNT R 44 06E8 HEXI FI O...

Page 691: ...4 HEX ARITH FUNC SOCAL wD CNT R 44 0514 HEX FI O 110 SOCAL WD CNT R 45 02A2 HEX DISK FIIO SOCAL WD C T R 40 008E HEX ADDITIONAL CORE REQUIRD R 18 TECH1 LOADING HAS BEEN TERMINATED Section Subsections...

Page 692: ...15 lOCAL X lD4D LOCAL Q 1 79 LOCAL P lE79 LOCAL N lE15 LOCAL M lE15 LOCAL L lD4D LOCAL LIBF TRANSFER VECTOR EADDX lAA3 XDD lC12 FARC lBFO XMD lBAE ELDX 19B6 NORM lB84 EBCTB lB81 GETAD lB38 IFIX lBoe E...

Page 693: ...ompute Call L If Call P If Call Q F Write disk record G Read disk H Compute Call X Call y Call Z 7f Sizes of the Subroutines used ih 100 words toM 300 words N 300 words P 400 words Q 400 words 7fX 100...

Page 694: ...CORE LOAU CALL TRANSFER VECTOR L 1607 P 15A3 Q 1413 Z 1745 LOCAL Y 1800 LOCAL X 1745 LOCAL N 1800 LOCAL M l OD LOCAL LIBF TRANSF ER VECTOR EADDX 18C5 SOCAL 1 XDD 1992 SOCAL 1 FARC 1970 SOCAL 1 XMD 19...

Page 695: ...disk record G Read disk H Compute Call X Call y Call Z_ Sizes of the Subroutines used L 100 words M 300 words N 300 words 400 words Q 400 words X 100 words y 300 words Z 100 words MAK TI IEoSE L c QL...

Page 696: ...CORE LOAl CALL TRANSFER VECTOR N lCA3 M HH7 L lA4B p 19E7 Q 1857 l 16C7 Y 1663 X 1537 LI BF TRAI SFER VECTOR EADDX lD63 XDD lE88 FARC lE66 XMD 1E24 ELDX 1DCA NORM lDFA ESBR lDE6 ESTO lDB8 EADD 1D5D E...

Page 697: ...M Call N D Write disk record E Compute Call L Call P CallQ F Write disk record G Read disk H Compute Call X CallY Call Z J Wrap up computations Sizes of the Subroutines used L 100 words M 300 words N...

Page 698: ...not too much short distance End of enough to be since overlay will be needed WSI noticed _isnottoo flIr from datafile_ Very Program Program will Program will The combination I ge will run at run Id le...

Page 699: ...that there is no differentiation made between LOCALs SOCALs and LINKs they are all overlays Note also that the number of times an over lay is required is not as important as the disk Section Subsecti...

Page 700: ...20 30 10 20 60 01 30 20 00 30 30 00 70 10 20 70 10 30 70 20 01 70 20 10 70 20 20 70 30 00 70 40 10 70 40 20 70 60 10 80 60 00 90 20 30 COMMON 6S 10 S0 Comparing fields 70 10 30 Components nonstandard...

Page 701: ...ting 25 40 10 Input cards 85 30 10 EDIT mask 70 40 20 70 50 10 Employee numbers 85 10 30 EQUIVALENCE statement 70 50 10 Error recovery sheet 15 20 70 Errors 15 20 20 15 20 40 15 20 50 15 20 60 15 20 7...

Page 702: ...0 30 85 30 10 PDUMP 30 20 00 Performance see running time factors affecting Personnel 05 01 00 Petroleum Engineering and Exploration 20 60 01 PID see Program Information Department Pigeonhole sorting...

Page 703: ...Sales analysis 10 40 30 Synchronous communications adapter 45 50 00 System overlay 65 10 30 Systems cartridge 50 01 00 Systems testing 30 10 00 Table lookup 25 10 00 Tag 75 10 00 Tag sort 75 10 00 75...

Page 704: ...ggest additions and deletions and list specific errors and omissions give page numbers All comments and sugges tions become the property of IBM If you wish a reply be sure to include your name and add...

Page 705: ...directed to your IBM representative or the IBM branch office serving your locality fold fold Attention Technical Publications BUSINESS REPLY MAIL NO POSTAGE STAMP NECESSARY IF MAILED IN THE UNITED ST...

Page 706: ...n International Business Machines Corporation Data Processing Division 112 East Post Road Whit e Plains N Y 10601 USA Only IBM World Trade Corporation 821 United Nations Plaza New York New York 10017...