manualshive.com logo in svg

IBM Infoprint 1130, Руководство пользователя

Поделиться
Скачать
IBM Infoprint 1130 Скачать руководство пользователя страница 244

Содержание Infoprint 1130

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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_...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 144: ...333333 33333333333333333333333333333333333333333 4444444444 4444444444444444444 4444444444 44444444444444444444444444444444444444444 5555555555 5555555555555555555 5555555555 5555555555555555555555555...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 226: ...Section Subsections Page 35 20 I 10 01 PAYROLL SYSTEM Program Information Manual...

Страница 227: ...Section Subsections Page 35 20 I 10 02...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 238: ...W 2 Reports PAYnn fP2 REPORTS Plant Numbers Section 35 General Ledger TAPE 9 Plant Numbers Subsections Page 20 I 10 13...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 246: ...0212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980 Figure 9 Clock No Blank 00000000000000000000000000000000000000000000000000000...

Страница 247: ...641484950515253545556515859606162836465666168691011121314151611181980 Figure 11 Company Name Blank 00000000000000000000000000000000000000000000000000000000000000000000000000000000 12345616 91011121314...

Страница 248: ...829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980 Figure 13 City and ZIJ Code Blank 000000000000000000000000000000000000000000000000000 0 00 0 0...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 272: ...106 INDX6 I 10012142013323060 02 10022613083284339 02 10032142712982119 01 1004261303224t 8 02 10053722614638734 02 10162801541032308 01 11072613213710014 02 1218214L782927112 01 13471711194511234 01...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 279: ...Section Subsections 35 20 I 10 Page 54 Initialize Variables Locate Employee Record No in Index Insert Name in Employee Record Stop 50...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 321: ...00 6 1006 4000000000J004000a00500400 8 1016040000500000006001600700400 6 11070400000000025070Q0800B00500 6 1218040000500000 OB000800900600 6 1347040000000003009000800100700 6 1603040000100002001000400...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 332: ...Initialize Variables No 103 Calculate Control Totals Section 35 Yes Subsections Page 20 I10 107 Stop...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 362: ...Yes No Initialize Variables Initialize Remaining Variables Add to Total and Setup Line Section 35 133 Subsections Page 20 I 10 137...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 371: ...Section Subsections Page 35 20 I 20 01 PAYROLL SYSTEM Operation Manual...

Страница 372: ...Section Subsections Page 35 20 I20 02...

Страница 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...

Страница 374: ...Section Subsections Page 35 20 I 20 04...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 388: ...Section Subsections Page 35 20 120 18 PAY02 ADD NAMES TO THE FILE Accounting Controls None 14...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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 ____...

Страница 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...

Страница 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 ______...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 444: ...Section Subsections Page 45 10 I 00 02 IBM 2310 Disk Storage Drive IBM 2315 Disk Cartridge...

Страница 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...

Страница 446: ...Section Subsections Page 45 15 I 00 02 IBM 1403 Printer...

Страница 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...

Страница 448: ...Section Subsections Page 45 20 I 00 02 IBM 2501 Card Reader...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 456: ...Section Subsections Page 50 00 I 00 01 Section 50 1130 DISK MONITOR SYSTEM CONTENTS GENERAL 50 01 00...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 583: ...Section Subsections Page 70 60 I20 02 FORTRAN TIIViING ESTIMATE WORKSHEET CODING Number Time per Execution Extension Component of Microseconds Microseconds Executions TOTAL...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Страница 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...

Отзывы:

Нет отзывов

Бренды по названию

Популярные бренды

Загрузить еще бренды