MRP ~2. PRNTSCH  MSTRSCHD  TXS  PRDSTR 0 PRINT 6 READ < ENGBOM  @   TXS1 D PRNTBOM ` PRNTINV h PRNTMSTRp PRNTTXS v < Routine follows to print the Facility Schedule Files  \\  "Schedule Files - print" ( \ !2 "Enter the file name ",H$ (7 "Hit RETURN to print report ",M$ < #1,H$",2" >  A F 1)0  P 1)1 #1,M$ Z 1)2 #1,V d V99999999 F $n #1,P,P2$,D1$,O,I1,I2,Z,D,C1,C &x #1,Z1,Z2,Z3,Z4,Z5,Z6,Z7,Z8,Z9,Z  #1,N9,N1,N1  F  P2$P9$ J  P2$P9$  0 "P/N",10),"DESCRIPTION",23),"DESTIN", / 31),"L/T",36),"SCRAP",43),"INPRO", $ 52),"ON HAND",61),"INPDN" ! P," ",P2$,10),D1$,23),  D1 "JAX",  D2 "WASH",  D3 "A&T",  D4 "MAIN",  D5 "NBRN",  D6 "SHIP",  D7 "SERV",  D8 "PURCH",  31),C,35),C1100,"%",  43),I1,52),O,61),I2 "  ., "PERIOD",11),"1",17),"2",23),"3", +6 29),"4",35),"5",41),"6",47), )@ "7",53),"8",59),"9",65),"10" B E N90 "SHIP", J N91 "ISSUES", T N92 "FINISH", Y N93 "STARTS", +^ 10),Z1,16),Z2,22),Z3,28),Z4, +h 34),Z5,40),Z6,46),Z7,52),Z8, r 58),Z9,64),Z  P9$P2$     M$  & H$"JAXSCH1" "JACKSONVILLE" $ H$"WASHSCH" "WASHINGTON" # H$"A&TSCH1" "HTFD. A&T" $ H$"MAINSCH" "HTFD. MAIN" % H$"PURCHSCH" "PURCHASING" ! H$"SERVSCH" "SERVICE" +  H$"SHIPSCH" "SHIPPING SCHEDULE"   X1 80\ "*",\ X  F9F91  F96 P   " ",  X1 66\ "-",\ X\\ P X1 50\F90\ X U \2,12 Z F90 d X1 80\ "*",\ X\ JAXSCH1 AHS Housing, ACCAA@PA0ACCCCC"C"C AH0AHS Housing, ACCAA@PA0ACCCCC"C"C0AH AHR, CODE FOLLOWS THE MASTER SCHEDULE = "Hit RETURN to create and load the MASTER SCHEDULE",M$  \ #( "Enter the FILE NAME: ",H$ 2 H$",2",10 < #1,H$",2" F \ 4P "Enter the PART NUMBER to be scheduled: ",P Z +d "Enter the SHIP POINT CODE (1)=JAX" ,n " (2)=WASH" +x " (3)=A&T" , " (4)=MAIN" , " (5)=NBRN"   A  B0\Z99999999  \ 1 "Enter the FIRST period schedule: ",S1 1 "Enter the SECOND period schedule: ",S2 1 "Enter the THIRD period schedule: ",S3 1 "Enter the FOURTH period schedule: ",S4 1 "Enter the FIFTH period schedule: ",S5 1 "Enter the SIXTH period schedule: ",S6 1 "Enter the SEVENTH period schedule: ",S7 1 "Enter the EIGHTH period schedule: ",S8 1 "Enter the NINTH period schedule: ",S9 0 "Enter the TENTH period schedule: ",S  \ ." #1,Z,P,A,S1,S2,S3,S4,S5,S6,S7,S8,S9,S,B , #1 6  @PAe B JR2 e Raw Matl AAription: ",D1$ 6F "INPRO: ",I1," INPDN: ",I2," ON-HAND: ",O1 G H Q72 @ I Q73  J Q74 ` ,K Q75 "Hit return to continue ",M$ L Q75  3P "INPDN: ",I2," INPRO: ",I1," ON-HAND: ",O1Q U /Z "Hit RETURN if O.K. else type NO ",M$ _ M$"NO"  d O9O1Q n #1,"JAXINV,2" x 1)0   1)1 #1,M$  1)2 #1,Z  Z9999999 x  #1,P  PP9 5 Routines to create MultiPlant Inventory Tx's   Written June, 1981 ( 2 X1 16\\ X 7< "Please enter your NAME and hit RETURN key ",N$ F ?P "Please enter NEW if opening a new audit trail file ",M$ 6Z "Code follows to created Inventory Transactions d t n X1 16\\ X x \ 8 " * * * * * INVENTORY TRANSACTIONS * * * * * * *"  \ % "Enter (1) Hartford A & T" ) " (2) Jacksonville A & T" $ " (3) Hartford Main" ! " (4) Washington"  " (5) New Bern"  9 " * * * * * * * * * * * * * * * * * * * * * * * *" Q9  Q95 Z  X1 16\\  \  x  + "Select (1) Raw Stock Crib" +" " (2) Blanks Crib" +, " (3) Component Crib" +6 " (4) Finished Goods" .@ " (5) Display Inventory" 1J " * * * * * * * * * * * * * * * * * * * *" T Q8 ^ Q85  h Q85 Q77 r Q85 D | X1 16   X  x ! Q81 15),"RAW STOCK"  Q82 15),"BLANKS" " Q83 15),"COMPONENTS" & Q84 10),"FINISHED GOODS" ! Q85 15),"RECEIVING"  Q86 15),"SHIPPING"  . "Select (1) For ENTRY RECEIPTS" ' " (2) For RECEIPT" % " (3) For ISSUE" 7 " (4) For RETURN (in production)" 5 " (5) For RETURN (to inprocess)" ( " (6) For SHIPMENT" 4& " (7) For DISPLAY of Inventory" 0 : Q7 D Q77  %N "Enter the PART NUMBER: ",P9 X Q77 l $b "Enter the QUANTITY: ",Q l Q91 #1,"A&TINV1,2" v Q92 #1,"JAXINV1,2"  Q93 #1,"MAININV,2"  Q94 #1,"WASHINV,2"  Q95 #1,"NBRNINV,2"  1)0 d  1)1 #1,M$  1)2 #1,Z  Z9999999   #1,P  PP9  < #1,S,P1$,D1$,O1,O2,O3,O4,I1,I2,O,F1,Z9,L1,M1,C1,V,V,V   O9O1  #1  Q77   F90  \\\   X1 64\ "*",\ X\ /* "P/N: ",P," ",P1$," Description: ",D1$ 4 > \  H /R 10),"INPROCESS",25),"ON HAND",40), (\ "IN PRODUCTION",55),"TOTAL O/H" f F90 "OLD BAL.", p F91 "NEW BAL.", z 12),I1,27),  Q81 O1,  Q82 O2,  Q83 O3,  Q84 O4,  42),I2,  57),O  F91   F91 `  Q71   Q72   Q73 "  Q74 r  Q75 &  Q76   F91  Q77 L $ p $. "Hit RETURN to continue ",M$ 8 Q77 Z B F91 z L -V Q77 "Hit RETURN to continue ",M$ ` Q77 Z -j "Hit RETURN to accept the transaction" 1t "Enter (NO) to abort the transaction ",M$ ~ Q77 Z  M$"NO" Z\   1)0 d  1)1 #1,M$  1)2 #1,Z  Z9999999   #1,P  PP9   #1,S,P1$,D1$  #1,O1,  #1,O2,  #1,O3,  #1,O4,  #1,I1,   #1,I2,  #1,O,  #1,O9, ( #1 2 8 < "TRANSACTION COMPLETE" F \ "Thank you -- ",N$ P X1 200\C60\ X Z n d #1 n d ;x Q91 " * * * * * * * HTFD. A & T * * * * * * * " 9 Q92 " * * * * * * * JAX A & T * * * * * * *" 9 Q93 " * * * * * * * HTFD. MAIN * * * * * * *" 9 Q94 " * * * * * * * WASHINGTON * * * * * * *" 7 Q95 " * * * * * * * NEW BERN * * * * * * *"   Entry receipt  Q81 O1O1Q  Q82 O2O2Q  Q83 O3O3Q  Q84 O4O4Q  OO1O2O3O4   Receipt    I1I1Q  " Issue , Q81 O1O1Q 6 Q82 O2O2Q @ Q83 O3O3Q J Q84 O4O4Q T OO1O2O3O4 ^ I2I2Q h r Return |   I2I2Q  " Q71 "ENTRY RECEIPT ", . Q72 "RECEIPT (Within facility) ",  Q73 "ISSUE ", . Q74 "RETURN (to In Production) ", + Q75 "RETURN (to In Process) ",  Q76 "SHIPMENT ",   Open Files  Q91 #1,"A&TINV1,2"  Q92 #1,"JAXINV1,2"  Q93 #1,"MAININV,2"  Q94 #1,"WASHINV,2"  Q95 #1,"NBRNINV,2"  & Return from inprocess 0 N : I1I1Q D N Q81 O1O1Q X Q82 O2O2Q b Q83 O3O3Q l Q84 O4O4Q v OO1O2O3O4   Shipments 4 Q84 "SHIPMENTS ONLY FROM FINISHED GOODS"  Q84 M$  Q84 Z  O4O4Q  OO1O2O3O4   Display the Inventory  X1 16\\ X  Q91 "Htfd.A&T"  Q92 "Jax A&T"  Q93 "Htfd.Main"  Q94 "Washington"   Q95 "New Bern"  X1 64\ "*",\ X\ 7  "P/N ",P,"(",P1$,")",20),"DESCRIPTION: ",D1$ * X1 64\ "-",\ X\ 4 (> "Raw Stock",12),"Blanks",30), %H "Components",50),"Fin.Goods" )R 2),O1,14),O2,32),O3,50),O4 \ /f "Inprocess",12),"Total On Hand",30), %p "Inproduction",50),"Salvage" z 2),I1,14),O,32),I2  X1 64\ "*",\ X\  " "Hit RETURN to continue",M$  n " Routine to print TX header $ Q81 "Raw Stock Crib - ", ! Q82 "Blanks Crib - ", % Q83 "Components Crib - ", ) Q84 "Finished Goods Crib - ",  Q91 "Hartford A&T" " Q92 "Jacksonville A&T"  Q93 "Hartford Main"  Q94 "Washington"  Q95 "New Bern"   \ $ X1 64\ "*",\ X\ . .8 Subroutine to write the Tx audit trail B Z9999999 9L #2,Z,P9,P1$,D1$,Q9,Q8,Q7,Q,O1,O2,O3,O4,O5,O6,O7,O8 V #2,I1,I2,I3,I4,N$,C$,S ` Z0 j 't Routine to create a new AUDIT ~ M$"NEW" "AUDIT,2" M$"NEW" "AUDIT,2",15  Z0  #2,"AUDIT,2"  M$"NEW" #2,Z  M$"NEW"  2)0  2)1 #2,M1$  2)2 #2,Z  5 Set up the original balances for the Tx file ( O5O1\O6O2\O7O3\O8O4\I3I1\I4I2   C GPARRotorA0A AE`CE`CE`SAM GAR1 Rotor, S/F A0AAEBEBFRED 0)  #3,N9,N1,N1  #3 6 F J N K J J * } y } } } } } } } }J} } } }J} J } }  }J*}  }  ? JJ  * j J+4J *  }  J  J   {} } }J}J} } } } } J} }}  ?J? } J} }    }J   j  K J J K  K  z ? J} } }J  }  ~ ) CODE FOLLOWS THE PRODUCT FLOW # "Enter the FILE NAME: ",H$  H$",2",20 ( #1,H$",2" 2 \ < "Enter the LEVEL: ",L F "Enter the P/N: ",P P "Enter the P/N ALPH",P1$ #Z "Enter the SOURCE CODE: ",S "d"Enter the DESTIN CODE: ",D #n"Enter the % SUPPLY: ",S1 #x"Enter the SRC.SEQ.CODE: ",S2 #"Enter the PLANCODE: ",P2 ""Enter the USEAGE: ",U $#1,Z,L,P,P1$,S,D,S1,S2,P2,U,A,B  \ % "Enter (1) IF MORE DATA" $ " (2) IF FINISHED"   X  X1 2  @PA A B!B Raw Matl A#1 6 MfUf4d#dEfef]f MSTR1 HAACCCCCCCC C C* "  $ "Enter the PART NUMBER: ",P9  $  + CODE FOLLOWS THE PRODUCT FLOW  \ ! "Enter the FILE NAME ",H$ ( #1,H$",2" -  2 1)0  < 1)1 #1,M$ F 1)2 #1,Z P Z99999999 2 $Z #1,L,P,P1$,S,D,S1,S2,P2,U,A,B d n 2  #1  M$   V1 L  "*",  V # L,15),P,20),P1$,25),S, 1 30),D,35),S2,40),P2,45),S1,55),U  3 "LEVEL",15),"P/N",20),"P/N",25),"SRC", 1 30),"DST",35),"SSC",40),"PCD",45),  "%SPLY",55),"USE"    V1 L "*",  V L,  15),P,20),P1$, 25),  30),   ) 35),S2,40),P2,45),S1,55),U   S1 "JAX",  S2 "WSH",  S3 "A&T",  S4 "MAI",  S5 "NBN",  S6 "SHP",  S7 "SVC",  S8 "PCH",   D1 "JAX",  D2 "WSH",  D3 "A&T",  D4 "MAI",  D5 "NBN",  D6 "SHP",  D7 "SVC",  D8 "PCH",  @PAHPABdBsd RR2 cdA@AkdCAA`A J * P  }  B}w }} JB} }J}  } t J }} } }  ( Jt B C BBB}J J J t    / } } |( . u* # "Enter the FILE NAME: ",H$  #1,H$",2"  1)0   1)1 X1 X0 2 1)2 Y1 Y0 < X1 #1,M$ F X1 M$, G S20 H W50 I S20 S0 K W50 2,12 L W50 W0 P Y1 #1,Z Z Y1 Z, [ W50 \ S35 ] S35 S0 _ W50 2,12 ` W50 W0 b SS1 c S20 WW1 d   #1  G0AHSHousing, Ass the SOC CODE ",S1 . (8 "Enter the ALPHA EQUIV. P/N ",P1$ B $L "Enter the DESCRIPTION ",D1$ V '` "Enter the ON HAND BALANCE ",H1 j *t "Enter the IN PROCESS BALANCE ",I1 ~ - "Enter the IN PRODUCTION BALANCE ",I2  % "Enter the MADE-FROM P/N ",P2  . "Enter the Made-From p/n SOC CODE ",S2  ( "Enter the ALPHA EQUIV. P/N ",P2$  * "Enter the RUN SIZE if fixed ",Q1  $ "Enter the PROCESS CODE ",P9   "Enter the SCRAP %XIJ».{͘WäUIJͯX.>%;H)V͆JaX H>&;HҩVwE^VW.ͺWw#JV9H,VWV*[ͺW{V.VͺWWͺW_*[+ IG*[zʥVͺWw+ÓVEwE.ͺWo&3JͪGWV#HIJͯX.~V: !V)G6#KE>%;H>VIJ{5 Routines to create MultiPlant Inventory Tx's   Written June, 1981 ( 2 X1 16\\ X 7< "Please enter your NAME and hit RETURN key ",N$ F ?P "Please enter NEW if opening a new audit trail file ",M$ 6Z "Code follows to created Inventory Transactions d t n X1 16\\ X x \ 8 " * * * * * INVENTORY TRANSACTIONS * * * * * * *"  \ % "Enter (1) Hartford A & T" ) " (2) Jacksonville A & T" $ " (3) Hartford Main" ! " (4) Washington"  " (5) New Bern"  9 " * * * * * * * * * * * * * * * * * * * * * * * *" Q9  Q95 Z  X1 16\\  \  x  + "Select (1) Raw Stock Crib" +" " (2) Blanks Crib" +, " (3) Component Crib" +6 " (4) Finished Goods" .@ " (5) Display Inventory" 1J " * * * * * * * * * * * * * * * * * * * *" T Q8 ^ Q85  h Q85 Q77 r Q85 D | X1 16   X  x ! Q81 15),"RAW STOCK"  Q82 15),"BLANKS" " Q83 15),"COMPONENTS" & Q84 10),"FINISHED GOODS" ! Q85 15),"RECEIVING"  Q86 15),"SHIPPING"  . "Select (1) For ENTRY RECEIPTS" ' " (2) For RECEIPT" % " (3) For ISSUE" 7 " (4) For RETURN (in production)" 5 " (5) For RETURN (to inprocess)" ( " (6) For SHIPMENT" 4& " (7) For DISPLAY of Inventory" 0 : Q7 D Q77  %N "Enter the PART NUMBER: ",P9 X Q77 l $b "Enter the QUANTITY: ",Q l Q91 #1,"A&TINV1,2" v Q92 #1,"JAXINV1,2"  Q93 #1,"MAININV,2"  Q94 #1,"WASHINV,2"  Q95 #1,"NBRNINV,2"  1)0 d  1)1 #1,M$  1)2 #1,Z  Z9999999   #1,P  PP9  < #1,S,P1$,D1$,O1,O2,O3,O4,I1,I2,O,F1,Z9,L1,M1,C1,V,V,V   O9O1  #1  Q77   F90  \\\   X1 64\ "*",\ X\ /* "P/N: ",P," ",P1$," Description: ",D1$ 4 > \  H /R 10),"INPROCESS",25),"ON HAND",40), (\ "IN PRODUCTION",55),"TOTAL O/H" f F90 "OLD BAL.", p F91 "NEW BAL.", z 12),I1,27),  Q81 O1,  Q82 O2,  Q83 O3,  Q84 O4,  42),I2,  57),O  F91   F91 `  Q71   Q72   Q73 "  Q74 r  Q75 &  Q76   F91  Q77 L $ p $. "Hit RETURN to continue ",M$ 8 Q77 Z B F91 z L -V Q77 "Hit RETURN to continue ",M$ ` Q77 Z -j "Hit RETURN to accept the transaction" 1t "Enter (NO) to abort the transaction ",M$ ~ Q77 Z  M$"NO" Z\   1)0 d  1)1 #1,M$  1)2 #1,Z  Z9999999   #1,P  PP9   #1,S,P1$,D1$  #1,O1,  #1,O2,  #1,O3,  #1,O4,  #1,I1,   #1,I2,  #1,O,  #1,O9, ( #1 2 8 < "TRANSACTION COMPLETE" F \ "Thank you -- ",N$ P X1 200\C60\ X Z n d #1 n d ;x Q91 " * * * * * * * HTFD. A & T * * * * * * * " 9 Q92 " * * * * * * * JAX A & T * * * * * * *" 9 Q93 " * * * * * * * HTFD. MAIN * * * * * * *" 9 Q94 " * * * * * * * WASHINGTON * * * * * * *" 7 Q95 " * * * * * * * NEW BERN * * * * * * *"   Entry receipt  Q81 O1O1Q  Q82 O2O2Q  Q83 O3O3Q  Q84 O4O4Q  OO1O2O3O4   Receipt    I1I1Q  " Issue , Q81 O1O1Q 6 Q82 O2O2Q @ Q83 O3O3Q J Q84 O4O4Q T OO1O2O3O4 ^ I2I2Q h r Return |   I2I2Q  " Q71 "ENTRY RECEIPT ", . Q72 "RECEIPT (Within facility) ",  Q73 "ISSUE ", . Q74 "RETURN (to In Production) ", + Q75 "RETURN (to In Process) ",  Q76 "SHIPMENT ",   Open Files  Q91 #1,"A&TINV1,2"  Q92 #1,"JAXINV1,2"  Q93 #1,"MAININV,2"  Q94 #1,"WASHINV,2"  Q95 #1,"NBRNINV,2"  & Return from inprocess 0 N : I1I1Q D N Q81 O1O1Q X Q82 O2O2Q b Q83 O3O3Q l Q84 O4O4Q v OO1O2O3O4   Shipments 4 Q84 "SHIPMENTS ONLY FROM FINISHED GOODS"  Q84 M$  Q84 Z  O4O4Q  OO1O2O3O4   Display the Inventory  X1 16\\ X  Q91 "Htfd.A&T"  Q92 "Jax A&T"  Q93 "Htfd.Main"  Q94 "Washington"   Q95 "New Bern"  X1 64\ "*",\ X\ 7  "P/N ",P,"(",P1$,")",20),"DESCRIPTION: ",D1$ * X1 64\ "-",\ X\ 4 (> "Raw Stock",12),"Blanks",30), %H "Components",50),"Fin.Goods" )R 2),O1,14),O2,32),O3,50),O4 \ /f "Inprocess",12),"Total On Hand",30), %p "Inproduction",50),"Salvage" z 2),I1,14),O,32),I2  X1 64\ "*",\ X\  " "Hit RETURN to continue",M$  n " Routine to print TX header $ Q81 "Raw Stock Crib - ", ! Q82 "Blanks Crib - ", % Q83 "Components Crib - ", ) Q84 "Finished Goods Crib - ",  Q91 "Hartford A&T" " Q92 "Jacksonville A&T"  Q93 "Hartford Main"  Q94 "Washington"  Q95 "New Bern"   \ $ X1 64\ "*",\ X\ . .8 Subroutine to write the Tx audit trail B Z9999999 9L #2,Z,P9,P1$,D1$,Q9,Q8,Q7,Q,O1,O2,O3,O4,O5,O6,O7,O8 V #2,I1,I2,I3,I4,N$,C$,S ` Z0 j 't Routine to create a new AUDIT ~ M$"NEW" "AUDIT,2" M$"NEW" "AUDIT,2",20  Z0  #2,"AUDIT,2"  M$"NEW" #2,Z  M$"NEW"  2)0  2)1 #2,M1$  2)2 #2,Z   5 Set up the original balances for the Tx file ( O5O1\O6O2\O7O3\O8O4\I3I1\I4I2  B FRED NEW r}GGPARRotorA0A A`BQ`CE`C GPARRotorA0A AE`CE`CE`SAM GAR1 Rotor, S/F A0AAEBEBFRED 0)  #3,N9,N1,N1  #3 6 F J N K J J * } y } } } } } } } }J} } } }J} J } }  }J*}  }  ? JJ  * j J+4J *  }  J  J   {} } }J}J} } } } } J} }}  ?J? } J} }    }J   j  K J J K  K  z ? J} } }J  }  ~ + CODE FOLLOWS THE PRODUCT FLOW  \ ! "Enter the FILE NAME ",H$ !# "Hit RETURN to print ",M$ % "Multi-Plant B.O.M." ' ( #1,H$",2" -  2 1)0  < 1)1 #1,M$ F 1)2 #1,Z P Z99999999 2 $Z #1,L,P,P1$,S,D,S1,S2,P2,U,A,B d n 2  #1  M$   V1 L  "*",  V # L,15),P,20),P1$,25),S, 1 30),D,35),S2,40),P2,45),S1,55),U  3 "LEVEL",15),"P/N",20),"P/N",25),"SRC", 1 30),"DST",35),"SSC",40),"PCD",45),  "%SPLY",55),"USE"    V1 L "*",  V L,  15),P,20),P1$, 25),  30),   ) 35),S2,40),P2,45),S1,55),U   S1 "JAX",  S2 "WSH",  S3 "A&T",  S4 "MAI",  S5 "NBN",  S6 "SHP",  S7 "SVC",  S8 "PCH",   D1 "JAX",  D2 "WSH",  D3 "A&T",  D4 "MAI",  D5 "NBN",  D6 "SHP",  D7 "SVC",  D8 "PCH",  BOM3 AHPABKRA ACAAAHA AHRAAC0AAHA AHRAAPB A AAH A@AHDAACA AAH0ApAHD1AAC AAH0ApAHD101 80\ "*",\ X  F9F91  F96 P   " ",  X1 66\ "-",\ X\\ P X1 50\F90\ X U \2,12 Z F90 d X1 80\ "*",\ X\  ihififxihhhii PURCHSCH A@A@PA0AHBRR Raw Matl RA@A@PAAHBRR Raw Matl R5 Routine to print the Facility Inventory Files   Written June, 1981 ( "2 "Enter the FILENAME- ",F$ < !F "Hit RETURN to print ",M$ P #1,F$",2" Z _ F$"PURCHINV" d "Facility Inventory - ", &n F$"JAXINV1" "Jacksonville" "x F$"A&TINV1" "Htfd.A&T" $ F$"WASHINV" "Washington" # F$"MAININV" "Htfd.Main" " F$"NBRNINV" "New Bern" % F$"PURCHINV" "Purchasing"    G1 * "P/N",5),"P/N",10),"DESCRIPT.", & 23),"RAW STK",31),"BLANKS", ' 39),"CMPTS.",47),"FIN.GDS.", & 57),"TOT.O/H",65),"INPRO.",  73),"INPDN"    P3,5),P2$,10),D1$,  23),O1,31),O2,  39),O3,47),O4,  57),O,65),I1,73),I2  G1 "  Routine to read the file  1)0   1)1 #1,M$  1)2 #1,Z  Z9999999   #1,P3\ P30  ( #1,P4,P2$,D1$,O1,O2,O3,O4,I1,I2,O $  #1    M$   Print a STAR line  X1 80\ "*",\ X\   Purchasing Routines "Purchasing Order Status"    ) "P/N",5),"P/N",10),"DESCRIP.",  25),"ON-ORDER"    HPAfBf RR2 fA@AfCAAA`A0AHBRR Raw Matl RA@A@PAAHBRR Raw Matl R, Routine to print the Master Schedule   Written June, 1981 ( 2 "< "Enter the FILENAME: ",F$ F *P "Hit RETURN to print the file ",M$ Z _ #1,F$",2" d "Master Schedule" n x     G1 ( "P/N",P,10),"ASSY.FACILITY - ",  X1 "Jacksonville"  "PER.1",7),"PER.2", # 14),"PER.3",21),"PER.4", # 28),"PER.5",35),"PER.6", # 42),"PER.7",49),"PER.8", # 56),"PER.9",63),"PER.10"  - S1,7),S2,14),S3,21),S4,28),S5, + 35),S6,42),S7,49),S8,56),S9,  63),S  G1  1)0  . #1,Z,P,X,S1,S2,S3,S4,S5,S6,S7,S8,S9,S,D   #1\ M$\  X11 80\ "*",\ X1\\  MSTR1 SAVE PRNTMHAACCCCCCCC C C* "  $ "Enter the PART NUMBER: ",P9  $  9 " #3,"ALLOCINV,2"\ #3,N\ #3 #3,"SSCFLE,2"\ #3,N\ #3  "Schedule Files Created"  Read the Master Schedule $ "Reading the Master Schedule" ' 1)0 "PROCESSING COMPLETE"  1)0 , #1,Z,P,X,S1,S2,S3,S4,S5,S6,S7,S8,S9,S ! Read the Product Structure & "Reading the Product Structure" . 2)0 "PART SCHEDULED NOT ON FILE"  2)0  2)1 #2,Z$  2)2 #2,V  V99999999  #2,L,P1  L9L  PP1 2 Routine follows to print the Tx audit trail  * "Hit RETURN to begin printing ",M$ ( P50\P71 22 "Transaction Audit Trail",70),"Page ",P7 < F #1,"AUDIT,2" P 1)0 | Z 1)1 #1,M$ d 1)2 #1,Z n Z9999999 P 7x #1,P9,P1$,D1$,Q9,Q8,Q7,Q,O1,O2,O3,O4,O5,O6,O7,O8  #1,I1,I2,I3,I4,N$,C$,S  P8P8P9\Q5Q5Q  - "P/N - ",P1$,P9,15),"DESCRIPT. - ",  D1$,40),"LOC'N - ",  Q91 "Hartford A&T" " Q92 "Jacksonville A&T"  Q93 "Hartford Main"  Q94 "Washington"  Q95 "New Bern"  "Tx Type - ", 0 ( 40),"Qty.- ",Q,60),"By - ",N$  5 10),"Raw Stk",20),"Blanks",30),"Cmpts.", / 40),"FinGds.",50),"Total O/H",60), #" "Inprocess",70),"Inprod'n" ., "New Bal's",10),O1,20),O2,30),O3, +6 40),O4,50),O1O2O3O4,60),I1, @ 70),I2 .J "Old Bal's",10),O5,20),O6,30),O7, +T 40),O8,50),O5O6O7O8,60),I3, ^ 70),I4 h \ r P | File Closings here  #1  &    M$  + Routine to print header & star line  P57 &  P57 2,12  P57 P7P71 * P57 "Transaction Audit Trail", ! P57 70),"Page ",P7  P57  P57 &  P57 P50  P5P51  & X1 80\ "*",\ X\\ #0 Subroutine to print Tx type : Q71 "Entry Receipt", !D Q72 "Receipt (crib)", N Q73 "Issue (crib)", !X Q74 "Return (Inpdn)", !b Q75 "Return (Inpro)", l Q76 "Shipment", v Q77 "InvXfer",  + Subroutine to print the hash totals  \2,12  P7P71 / "Transaction Audit Trail - Hash Totals",  70),"Page ",P7  &  % "Hash Total Part Number = ",P8  % "Hash Total Quantities = ",Q5   &  2,12   SAM GAA Pump, Typi A@A`AE/ MULTIPLANT MATERIAL REQUIENTS PLANNING  2 WRITTEN JUNE, 1981 by Jeffrey W. Anderson ( 52 Reset all files initialize S disk Drive #2 < +F "JAXSCH1,2"\"WASHSCH,2"\"A&TSCH1,2" P "MAINSCH,2"\"PURCHSCH,2" Z "SSCFLE,2" d "ALLOCINV,2" n x Dimension the Arrays  $ T10)\ W10)\ U10)\ Y10) / A10),A110),A210),A310),A410),A510) " A610),A710),A810),A910)  # File names are defined next  4 I1$"JAXINV1,2"\I2$"WASHINV,2"\I3$"A&TINV1,2" 4 I4$"MAININV,2"\I5$"NBRNINV,2"\I6$"SHIPOEM,2" % I7$"SERVINV,2"\I8$"PURCHINV,2" 4 S1$"JAXSCH1,2"\S2$"WASHSCH,2"\S3$"A&TSCH1,2" $ S4$"MAINSCH,2"\S6$"SHIPSCH,2" % S7$"SERVSCH,2"\S8$"PURCHSCH,2"  F1$"BOM3,2"\F2$"MSTR1,2"  7 Open Master Schedule and Product Structure Files " , #1,F2$\ #2,F1$ 96 "Master Schedule & Product Structure Files Opened" @ J File Creates T (^ S1$,30\ S2$,30\ S3$,30\ S4$,30 h "SSCFLE,2",20 r S8$,30 | "ALLOCINV,2",30   Open Files   #3,S1$\ #3,N\ #3  #3,S2$\ #3,N\ #3  #3,S3$\ #3,N\ #3  #3,S4$\ #3,N\ #3 $ #3,S8$\ #3,N\ #3\N99999999 " #3,"ALLOCINV,2"\ #3,N\ #3  #3,"SSCFLE,2"\ #3,N\ #3 ( "Schedule Files Created & Opened"   Read the Master Schedule  $ "Reading the Master Schedule" ' 1)0 "PROCESSING COMPLETE" & 1)0 ,0 #1,Z,P,X,S1,S2,S3,S4,S5,S6,S7,S8,S9,S : !D Read the Product Structure N &X "Reading the Product Structure" .b 2)0 "PART SCHEDULED NOT ON FILE" l 2)0 v 2)1 #2,Z$  2)2 #2,V  V99999999 b  #2,L,P1  L9L  PP1 b  #2,P1$,Z,D,Z1,Z2,P2,U,A,B  % Open the Source Inventory File  * "Reading the Source Inventory File"  Z1 F4$"JAXINV1,2"  Z2 F4$"WASHINV,2"  Z3 F4$"A&TINV1,2"  Z4 F4$"MAININV,2"  #3,F4$ . 3)0 "PART NOT ON INVENTORY FILE"   3)0 * 3)1 #3,Z$ 4 3)2 #3,V > V9999999  H #3,P3 R P3P  =\ #3,P4,P2$,D1$,O1,O2,O3,O4,I1,I2,O,F1,Z9,L1,M1,C1,V,V,V f #3 p 1z Read andor write to the allocations file      Gosub to fill TEMP. ARRAY     Gosub to ALLOE ROCESS   R  # Update the allocations file   L  1 Open Source Schedule File and write F.A.S. $ . Z1 #3,S1$ 8 Z2 #3,S2$ B Z3 #3,S3$ L Z4 #3,S4$ V Z5 #3,S5$ ` Z5 j Z1 t X1 10\TX)TX))\ X ~ X1 10\WX)WX))\ X  3)0   3)1 #3,M$  3)2 #3,V    V99999999\N90 ' #3,V,P,P2$,D1$,O,I1,I2,Z,D,Z9,L1  X1 10\ #3,YX)\ X  #3,N9,N1,N1  N92 ' #3,V,P,P2$,D1$,O,I1,I2,Z,D,Z9,L1  X1 10\ #3,TX)\ X  #3,N9,N1,N1  P20    P22   N93 ' #3,V,P,P2$,D1$,O,I1,I2,Z,D,Z9,L1 ( X1 10\ #3,WX)\ X 2 #3,N9,N1,N1 < #3 F 6P F.A.S. is written continue with explosion Z )d \ "Entering main explosion loop"\ n 2x Gosub to store L.L.R. in appropriate array   <  ' Gosub to read product structure   P9P1\L9L     Check SSC2   Z22 6  F90  ) Go sub to factor new gross rqrts.   & " ", Open Source Inventory File 6 @ Z1 #3,"JAXINV1,2" J Z2 #3,"WASHINV,2" T Z3 #3,"A&TINV1,2" ^ Z4 #3,"MAININV,2" h Z5 #3,"NBRNINV,2" r Z7 #3,"SERVINV,2" | Z8 #3,"PURCHINV,2"  " Read Source Inventory Data  ) 3)0 "PART NOT ON INV. FILE"  3)0  3)1 #3,Z$  3)2 #3,V  V9999999   #3,P3  P3P1  = #3,P4,P2$,D1$,O1,O2,O3,O4,I1,I2,O,F1,Z9,L1,M1,C1,V,V,V  #3  1 Read andor write to the allocations file    & :0 Gosub to allocate In Production Inventory starts) : D  N 7X Gosub to allocate On Hand Inventory finishes) b l v $ Open the Source Schedule File   Z1 #3,"JAXSCH1,2"  Z2 #3,"WASHSCH,2"  Z3 #3,"A&TSCH1,2"  Z4 #3,"MAINSCH,2"  Z5 #3,"NBRNSCH,2"  Z7 #3,"SERVSCH,2"  Z8 #3,"PURCHSCH,2"  7 Write the starts and finishes into the schedule  - X1 10\YX)YX))\TX)TX))\ X  3)0 *   3)1 #3,M$  3)2 #3,V   * V99999999\N10\N91 (4 #3,V,P1,P2$,D1$,O,I1,I2,Z,D,Z9,L1 <> #3,Y1),Y2),Y3),Y4),Y5),Y6),Y7),Y8),Y9),Y10) H #3,N9,N1,N1 R N92 (\ #3,V,P1,P2$,D1$,O,I1,I2,Z,D,Z9,L1 H R Allocate InProcess \ f "Allocating In-Process" p G8I1\I1I1G4 z X1 10 % X1 TX)I1 WX)TX)I1 % X1 TX)I9 WX)TX)I9  X1 TX)I1 WX)0  X1 TX)I9 WX)0  X1 I9I1TX)  X1 I9I9TX)  I90 I90  X G4G8I9 I1G8    Allocate H   "Allocating On-Hand"  G8O\OOG5 $ X1 10 #. X1 YX)O TX)YX)O %8 X1 YX)O9 TX)YX)O9 B X1 YX)O TX)0 L X1 YX)O9 TX)0 V X1 O9OYX) ` X1 O9O9YX) j O90 O90 t X ~ OG8\G5G8O9    Allocate IN PRODUCTI  ! "Allocating In-Production"  G8I2\I2I2G3  X1 10 % X1 WX)I2 YX)WX)I2 % X1 WX)I9 YX)WX)I9  X1 WX)I2 YX)0  X1 WX)I9 YX)0  X1 I9I2WX)  X1 I9I9WX)   I90 I90  X  I2G8\G3G8I9 ( 2 %< This subroutine stores L.L.R. F P "Store L.L.R." Z L0 d L1 n L2 x L3  L4  L5  L6  L7  L8  - Subroutine to read the prod.structure  * "Reading the Product Structure - ",  2)0 H  2)0  2)1 #2,Z$  2)2 #2,V  V99999999 b % #2,L,P1,P1$,Z,D,Z1,Z2,P2,U,A,B ( "LVL ",L," P/N ",P1," ",P1$ " , 66 Routine check SSC flag, stores LLR, sets flag @ J F90  T '^ Store L.L.R. depending on level h r < | F91    ( Xfer L.L.R. to L.L.R. array WX)   L0  L1  L2  L3  L4  L5  L6  L7  L8 % "LEVEL EXCEEDS PROGRAM DESIGN"   $& Routine factors requirements 0 : "Factoring Requirements" D Z1Z1100 N X1 10 X WX)WX)UZ1 b X l Z1Z1100 v   Lead Time Offsetting   "Lead Time offset"  X1 10\UX)WX)\ X  X1 10\WX)0\ X  YL15)  W1)U1) & X11 Y\W1)W1)UX11)\ X1 2 X2 10\ YX)10 YY1\WX)UYX)\ X # X210Y\ XX2 10\WX)0\ X  X1 10\WX)WX))\ X   *  Routine increase L.L.R. by Scrap %    "Scrap Adj." * J1Z91 %4 X1 10\WX)WX)J1))\ X > H \\ R "PROCESSING COMPLETE" \ #2 f GO MPS ITEM p  z 5 Routine to write Source inventory Allocations   G0  #4,"ALLOCINV,2"  4)0   #4,G  G99999999   4)0   #4,G1,G2,G3,G4,G5,G  G1P3   G2Z   #4  0 "Part being written into allocation file" $ G30\G40\G50\G90\G799999999 ) G99999999 #4,P3,Z,G3,G4,G5,G9 %$ G0 #4,G7,P3,Z,G3,G4,G5,G9 . #4 8 B 0L Routine to write the updated allocations V !` "Updating Allocation File" j #4,"ALLOCINV,2" t 4)0  ~ #4,G  G99999999 t  #4,G1,G2  G1P3 #4,G,G,G,G  G1P3 t  G2Z #4,G,G,G,G  G2Z t  #4,G3,  #4,G4,  #4,G5,  #4   * Routine to check SSCFLE for L.L.R.   & "Looking for SSC P/N In SSCFLE"  #4,"SSCFLE,2" ( 4)0  2 #4,V < V9999999 ( .F #4,P6,Z6,S1,S2,S3,S4,S5,S6,S7,S8,S9,S,V P P6P1 ( 4Z W1)S1\W2)S2\W3)S3\W4)S4\W5)S5\W6)S6 $d W7)S7\W8)S8\W9)S9\W10)S n L9L x #4    #4     Write the SSCFLE   "Writing SSCFLE"  V9999999  #4,"SSCFLE,2"  4)0 , ! #4,V1\ V19999999   4)0 6  #4,V1\ V1P1   #4   #4,V1 "  , #4,V 6 #4,P1,Z @ X1 10\ #4,WX)\ X J V0 T #4,V ^ #4 h r ;| Check SSC flag write SSCFLE if 0 & PN not filed   F90    W@p&nKGn7N /ij5|JJ m^QN-Nn'S? p?Opm `@O0@PNp*s..xQOihp@OqoNqNP]1NZ3_7J]`я^`>>?/Do7^`F[/AO@@?P_t?Oj?`/` ?70o1_xN. Aj~a '_@+_?/@O2pOop? s@O_>OPoX пҏGt/@@|7pB pP/TaTttOQO@Pr9pOb`dOAN`@?ab 0 (;9+ CODE FOLLOWS THE PRODUCT FLOW  \ ! "Enter the FILE NAME ",H$ !# "Hit RETURN to print ",M$ % "Engineering B.O.M." ' ( #1,H$",2" -  2 1)0  < 1)1 #1,M$ F 1)2 #1,Z P Z99999999 2 $Z #1,L,P,P1$,S,D,S1,S2,P2,U,A,B d S21 n 2  #1  M$   V1 L  "*",  V # L,15),P,20),P1$,25),S, 1 30),D,35),S2,40),P2,45),S1,55),U  3 "LEVEL",15),"P/N",20),"P/N",25),"SRC", 1 30),"DST",35),"SSC",40),"PCD",45),  "%SPLY",55),"USE"    V1 L "*",  V L,  15),P,20),P1$, 25),   30),    35),S2,40),P2,55),U   S1 "JAX",  S2 "WSH",  S3 "A&T",  S4 "MAI",  S5 "NBN",  S6 "SHP",  S7 "SVC",  S8 "PCH",   D1 "JAX",  D2 "WSH",  D3 "A&T",  D4 "MAI",  D5 "NBN",  D6 "SHP",  D7 "SVC",  D8 "PCH",  5d=d dbcbcd-dEdc BOM3 A0ACA AAH@ABR3@A@ACA AAHPABRR@A@AC AAHPABRRA@ACAAA HPAcB%d RR2 dA@AdCAAA`A #1,P  PP9   #1,S,P1$,D1$  #1,O1,  #1,O2,  #1,O3,  #1,O4,  #1,I1,   #1,I2,  #1,O,  #1,O9, ( #1 2 8 < "TRANSACTION COMPLETE" F \ "Thank you -- ",N$ P X1 200\C60\ X Z n d #1 n d ;x Q91 " * * * * * * * HTFD. A & T * * * * * * * " 9 Q92 " * * * * * * * JAX A & T * * * * * * *" 9 Q93 " * * * * * * * HTFD. MAIN * * * * * * *" 9 Q94 " * * * * * * * WASHINGTON * * * * * * *" 7 Q95 " * * * * * * * NEW BERN * * * * * * *"   Entry receipt  Q81 O1O1Q  Q82 O2O2Q  Q83 O3O3Q  Q84 O4O4Q  OO1O2O3O4   Receipt    I1I1Q  " Issue , Q81 O1O1Q 6 Q82 O2O2Q @ Q83 O3O3Q J Q84 O4O4Q T OO1O2O3O4 ^ I2I2Q h r Return |   I2I2Q  " Q71 "ENTRY RECEIPT ", . Q72 "RECEIPT (Within facility) ",  Q73 "ISSUE ", . Q74 "RETURN (to In Production) ", + Q75 "RETURN (to In Process) ",  Q76 "SHIPMENT ",   Open Files  Q91 #1,"A&TINV1,2"  Q92 #1,"JAXINV1,2"  Q93 #1,"MAININV,2"  Q94 #1,"WASHINV,2"  Q95 #1,"NBRNINV,2"  & Return from inprocess 0 N : I1I1Q D N Q81 O1O1Q X Q82 O2O2Q b Q83 O3O3Q l Q84 O4O4Q v OO1O2O3O4   Shipments 4 Q84 "SHIPMENTS ONLY FROM FINISHED GOODS"  Q84 M$  Q84 Z  O4O4Q  OO1O2O3O4   Display the Inventory  X1 16\\ X  Q91 "Htfd.A&T"  Q92 "Jax A&T"  Q93 "Htfd.Main"  Q94 "Washington"   Q95 "New Bern"  X1 64\ "*",\ X\ 7  "P/N ",P,"(",P1$,")",20),"DESCRIPTION: ",D1$ * X1 64\ "-",\ X\ 4 (> "Raw Stock",12),"Blanks",30), %H "Components",50),"Fin.Goods" )R 2),O1,14),O2,32),O3,50),O4 \ /f "Inprocess",12),"Total On Hand",30), %p "Inproduction",50),"Salvage" z 2),I1,14),O,32),I2  X1 64\ "*",\ X\  " "Hit RETURN to continue",M$  n " Routine to print TX header $ Q81 "Raw Stock Crib - ", ! Q82 "Blanks Crib - ", % Q83 "Components Crib - ", ) Q84 "Finished Goods Crib - ",  Q91 "Hartford A&T" " Q92 "Jacksonville A&T"  Q93 "Hartford Main"  Q94 "Washington"  Q95 "New Bern"   \ $ X1 64\ "*",\ X\ . .8 Subroutine to write the Tx audit trail B Z9999999 9L #2,Z,P9,P1$,D1$,Q9,Q8,Q7,Q,O1,O2,O3,O4,O5,O6,O7,O8 V #2,I1,I2,I3,I4,N$,C$,S ` Z0 j 't Routine to create a new AUDIT ~ M$"NEW" "AUDIT,2" M$"NEW" "AUDIT,2",50  Z0  #2,"AUDIT,2"  M$"NEW" #2,Z  M$"NEW"  2)0  2)1 #2,M1$  2)2 #2,Z   5 Set up the original balances for the Tx file ( O5O1\O6O2\O7O3\O8O4\I3I1\I4I2  xeB SAM "} Head, Hydr}GGPARRotorA0A A`BQ`CE`C GPARRotorA0A AE`CE`CE`SAM GAR1 Rotor, S/F A0AAEBEBFRED 0)  #3,N9,N1,N1  #3 6 F J N K J J * } y } } } } } } } }J} } } }J} J } }  }J*}  }  ? JJ  * j J+4J *  }  J  J   {} } }J}J} } } } } J} }}  ?J? } J} }    }J   j  K J J K  K  z ? J} } }J  }  ~ + CODE FOLLOWS THE PRODUCT FLOW  \ ! "Enter the FILE NAME ",H$ !# "Hit RETURN to print ",M$ % "Multi-Plant B.O.M." ' ( #1,H$",2" -  2 1)0  < 1)1 #1,M$ F 1)2 #1,Z P Z99999999 2 $Z #1,L,P,P1$,S,D,S1,S2,P2,U,A,B d n 2  #1  M$   V1 L  "*",  V # L,15),P,20),P1$,25),S, 1 30),D,35),S2,40),P2,45),S1,55),U  3 "LEVEL",15),"P/N",20),"P/N",25),"SRC", 1 30),"DST",35),"SSC",40),"PCD",45),  "%SPLY",55),"USE"    V1 L "*",  V L,  15),P,20),P1$, 25),  30),   ) 35),S2,40),P2,45),S1,55),U   S1 "JAX",  S2 "WSH",  S3 "A&T",  S4 "MAI",  S5 "NBN",  S6 "SHP",  S7 "SVC",  S8 "PCH",   D1 "JAX",  D2 "WSH",  D3 "A&T",  D4 "MAI",  D5 "NBN",  D6 "SHP",  D7 "SVC",  D8 "PCH",  BOM3 AHPABKRA ACAAAHA AHRAAC0AAHA AHRAAPB A AAH A@AHDAACA AAH0ApAHD1AAC AAH0ApAHD101 80\ "*",\ X  F9F91  F96 P   " ",  X1 66\ "-",\ X\\ P X1 50\F90\ X U \2,12 Z F90 d X1 80\ "*",\ X\  ihififxihhhii PURCHSCH A@A@PA0AHBRR Raw Matl RA@A@PAAHBRR Raw Matl R5 Routine to print the Facility Inventory Files   Written June, 1981 ( "2 "Enter the FILENAME- ",F$ < !F "Hit RETURN to print ",M$ P #1,F$",2" Z _ F$"PURCHINV" d "Facility Inventory - ", &n F$"JAXINV1" "Jacksonville" "x F$"A&TINV1" "Htfd.A&T" $ F$"WASHINV" "Washington" # F$"MAININV" "Htfd.Main" " F$"NBRNINV" "New Bern" % F$"PURCHINV" "Purchasing"    G1 * "P/N",5),"P/N",10),"DESCRIPT.", & 23),"RAW STK",31),"BLANKS", ' 39),"CMPTS.",47),"FIN.GDS.", & 57),"TOT.O/H",65),"INPRO.",  73),"INPDN"    P3,5),P2$,10),D1$,  23),O1,31),O2,  39),O3,47),O4,  57),O,65),I1,73),I2  G1 "  Routine to read the file  1)0   1)1 #1,M$  1)2 #1,Z  Z9999999   #1,P3\ P30  ( #1,P4,P2$,D1$,O1,O2,O3,O4,I1,I2,O $  #1    M$   Print a STAR line  X1 80\ "*",\ X\   Purchasing Routines "Purchasing Order Status"    ) "P/N",5),"P/N",10),"DESCRIP.",  25),"ON-ORDER"    HPAfBf RR2 fA@AfCAAA`A0AHBRR Raw Matl RA@A@PAAHBRR Raw Matl R, Routine to print the Master Schedule   Written June, 1981 ( 2 "< "Enter the FILENAME: ",F$ F *P "Hit RETURN to print the file ",M$ Z _ #1,F$",2" d "Master Schedule" n x     G1 ( "P/N",P,10),"ASSY.FACILITY - ",  X1 "Jacksonville"  "PER.1",7),"PER.2", # 14),"PER.3",21),"PER.4", # 28),"PER.5",35),"PER.6", # 42),"PER.7",49),"PER.8", # 56),"PER.9",63),"PER.10"  - S1,7),S2,14),S3,21),S4,28),S5, + 35),S6,42),S7,49),S8,56),S9,  63),S  G1  1)0  . #1,Z,P,X,S1,S2,S3,S4,S5,S6,S7,S8,S9,S,D   #1\ M$\  X11 80\ "*",\ X1\\  MSTR1 SAVE PRNTMHAACCCCCCCC C C* "  $ "Enter the PART NUMBER: ",P9  $  9 " #3,"ALLOCINV,2"\ #3,N\ #3 #3,"SSCFLE,2"\ #3,N\ #3  "Schedule Files Created"  Read the Master Schedule $ "Reading the Master Schedule" ' 1)0 "PROCESSING COMPLETE"  1)0 , #1,Z,P,X,S1,S2,S3,S4,S5,S6,S7,S8,S9,S ! Read the Product Structure & "Reading the Product Structure" . 2)0 "PART SCHEDULED NOT ON FILE"  2)0  2)1 #2,Z$  2)2 #2,V  V99999999  #2,L,P1  L9L  PP1 2 Routine follows to print the Tx audit trail  * "Hit RETURN to begin printing ",M$ ( P50\P71 22 "Transaction Audit Trail",70),"Page ",P7 < F #1,"AUDIT,2" P 1)0 | Z 1)1 #1,M$ d 1)2 #1,Z n Z9999999 P 7x #1,P9,P1$,D1$,Q9,Q8,Q7,Q,O1,O2,O3,O4,O5,O6,O7,O8  #1,I1,I2,I3,I4,N$,C$,S  P8P8P9\Q5Q5Q  - "P/N - ",P1$,P9,15),"DESCRIPT. - ",  D1$,40),"LOC'N - ",  Q91 "Hartford A&T" " Q92 "Jacksonville A&T"  Q93 "Hartford Main"  Q94 "Washington"  Q95 "New Bern"  "Tx Type - ", 0 ( 40),"Qty.- ",Q,60),"By - ",N$  5 10),"Raw Stk",20),"Blanks",30),"Cmpts.", / 40),"FinGds.",50),"Total O/H",60), #" "Inprocess",70),"Inprod'n" ., "New Bal's",10),O1,20),O2,30),O3, +6 40),O4,50),O1O2O3O4,60),I1, @ 70),I2 .J "Old Bal's",10),O5,20),O6,30),O7, +T 40),O8,50),O5O6O7O8,60),I3, ^ 70),I4 h \ r P | File Closings here  #1  &    M$  + Routine to print header & star line  P57 &  P57 2,12  P57 P7P71 * P57 "Transaction Audit Trail", ! P57 70),"Page ",P7  P57  P57 &  P57 P50  P5P51  & X1 80\ "*",\ X\\ #0 Subroutine to print Tx type : Q71 "Entry Receipt", !D Q72 "Receipt (crib)", N Q73 "Issue (crib)", !X Q74 "Return (Inpdn)", !b Q75 "Return (Inpro)", l Q76 "Shipment", v Q77 "InvXfer",  + Subroutine to print the hash totals  \2,12  P7P71 / "Transaction Audit Trail - Hash Totals",  70),"Page ",P7  &  % "Hash Total Part Number = ",P8  % "Hash Total Quantities = ",Q5   &  2,12   SAM GAA Pump, Typi A@A`AE/ MULTIPLANT MATERIAL REQUIENTS PLANNING  2 WRITTEN JUNE, 1981 by Jeffrey W. Anderson ( 52 Reset all files initialize S disk Drive #2 < +F "JAXSCH1,2"\"WASHSCH,2"\"A&TSCH1,2" +P "MAINSCH,2"\"PURCHSCH,2"\"SSCFLE,2" Z "NBRNSCH,2"\ "ALLOCINV,2" d n Dimension the Arrays x $ T10)\ W10)\ U10)\ Y10) / A10),A110),A210),A310),A410),A510) " A610),A710),A810),A910)  # File names are defined next  4 I1$"JAXINV1,2"\I2$"WASHINV,2"\I3$"A&TINV1,2" 4 I4$"MAININV,2"\I5$"NBRNINV,2"\I6$"SHIPOEM,2" % I7$"SERVINV,2"\I8$"PURCHINV,2" 4 S1$"JAXSCH1,2"\S2$"WASHSCH,2"\S3$"A&TSCH1,2" 4 S4$"MAINSCH,2"\S5$"NBRNSCH,2"\S6$"SHIPSCH,2" % S7$"SERVSCH,2"\S8$"PURCHSCH,2"  F1$"BOM3,2"\F2$"MSTR1,2"  7 Open Master Schedule and Product Structure Files  " #1,F2$\ #2,F1$ 9, "Master Schedule & Product Structure Files Opened" 6 @ File Creates J (T S1$,30\ S2$,30\ S3$,30\ S4$,30 ^ "SSCFLE,2",20 (h S5$,30\ S8$,30\ "ALLOCINV,2",50 r | Open Files   #3,S1$\ #3,N\ #3  #3,S2$\ #3,N\ #3  #3,S3$\ #3,N\ #3  #3,S4$\ #3,N\ #3 $ #3,S8$\ #3,N\ #3\N99999999 " #3,"ALLOCINV,2"\ #3,N\ #3  #3,"SSCFLE,2"\ #3,N\ #3 ( "Schedule Files Created & Opened"   Read the Master Schedule  $ "Reading the Master Schedule" ' 1)0 "PROCESSING COMPLETE"  1)0 , #1,Z,P,X,S1,S2,S3,S4,S5,S6,S7,S8,S9,S & !0 Read the Product Structure : &D "Reading the Product Structure" .N 2)0 "PART SCHEDULED NOT ON FILE" X 2)0 b 2)1 #2,Z$ l 2)2 #2,V v V99999999 N  #2,L,P1  L9L  PP1 N  #2,P1$,Z,D,Z1,Z2,P2,U,A,B  % Open the Source Inventory File  * "Reading the Source Inventory File"  Z1 F4$"JAXINV1,2"  Z2 F4$"WASHINV,2"  Z3 F4$"A&TINV1,2"  Z4 F4$"MAININV,2"  #3,F4$ . 3)0 "PART NOT ON INVENTORY FILE"   3)0  3)1 #3,Z$   3)2 #3,V * V9999999  4 #3,P3 > P3P  =H #3,P4,P2$,D1$,O1,O2,O3,O4,I1,I2,O,F1,Z9,L1,M1,C1,V,V,V R #3 \ 1f Read andor write to the allocations file p z p   Gosub to fill TEMP. ARRAY     Gosub to ALLOE ROCESS   >  # Update the allocations file   8  1 Open Source Schedule File and write F.A.S.   Z1 #3,S1$ $ Z2 #3,S2$ . Z3 #3,S3$ 8 Z4 #3,S4$ B Z5 #3,S5$ L Z5 V Z1 ` X1 10\TX)TX))\ X j X1 10\WX)WX))\ X t 3)0  ~ 3)1 #3,M$  3)2 #3,V  t  V99999999\N90 ' #3,V,P,P2$,D1$,O,I1,I2,Z,D,Z9,L1  X1 10\ #3,YX)\ X  #3,N9,N1,N1  N92 ' #3,V,P,P2$,D1$,O,I1,I2,Z,D,Z9,L1  X1 10\ #3,TX)\ X  #3,N9,N1,N1  P20 v  P22   N93 '  #3,V,P,P2$,D1$,O,I1,I2,Z,D,Z9,L1  X1 10\ #3,WX)\ X  #3,N9,N1,N1 ( #3 2 6< F.A.S. is written continue with explosion F )P \ "Entering main explosion loop"\ Z 2d Gosub to store L.L.R. in appropriate array n x (  ' Gosub to read product structure   P9P1\L9L     Check SSC2   Z22 "  F90  ) Go sub to factor new gross rqrts.     " Open Source Inventory File " , Z1 #3,"JAXINV1,2" 6 Z2 #3,"WASHINV,2" @ Z3 #3,"A&TINV1,2" J Z4 #3,"MAININV,2" T Z5 #3,"NBRNINV,2" ^ Z7 #3,"SERVINV,2" h Z8 #3,"PURCHINV,2" r "| Read Source Inventory Data  ) 3)0 "PART NOT ON INV. FILE"  3)0  3)1 #3,Z$  3)2 #3,V  V9999999   #3,P3  P3P1  = #3,P4,P2$,D1$,O1,O2,O3,O4,I1,I2,O,F1,Z9,L1,M1,C1,V,V,V  #3  1 Read andor write to the allocations file   p  : Gosub to allocate In Production Inventory starts) & 0  : 7D Gosub to allocate On Hand Inventory finishes) N X b $l Open the Source Schedule File v  Z1 #3,"JAXSCH1,2"  Z2 #3,"WASHSCH,2"  Z3 #3,"A&TSCH1,2"  Z4 #3,"MAINSCH,2"  Z5 #3,"NBRNSCH,2"  Z7 #3,"SERVSCH,2"  Z8 #3,"PURCHSCH,2"  7 Write the starts and finishes into the schedule  - X1 10\YX)YX))\TX)TX))\ X  3)0   3)1 #3,M$  3)2 #3,V    V99999999\N10\N91 (  #3,V,P1,P2$,D1$,O,I1,I2,Z,D,Z9,L1 <* #3,Y1),Y2),Y3),Y4),Y5),Y6),Y7),Y8),Y9),Y10) 4 #3,N9,N1,N1 > N92 (H #3,V,P1,P2$,D1$,O,I1,I2,Z,D,Z9,L1  , Gosub to update the allocations file   8  + Check PPC for LT & AP adjustments  - If PPC one or two then do LT thing  P20 v ' If PPC two then do scrap adj.  P22   N93  X1 10\WX)WX))\ X ( #3,V,P1,P2$,D1$,O,I1,I2,Z,D,Z9,L1 <$ #3,W1),W2),W3),W4),W5),W6),W7),W8),W9),W10) . #3,N9,N1,N1 8 #3 B L Check SSC flag for 0 V ` h 4j Gosub to read next part in Product Structure t P9P1\L9L ~   * Check for lower level of this part   LL9   Check for same PN   LL9 P9P1   LL9 P9P1   L9L P9P1  L9L (  L0  L1  L2   L3  ( L4  2 L5 & < L6 0 F L7 : P L8 D Z *d Set level register equal new level n x L9L  ! Xfer L.L.R. array to WX)     Return to main loop    3 Save L.L.R. in appropriate array by level)   L8L\LL9 (  LL8  0 Level was greater. Increment lvl regist. " , L9L 6 3@ This ends the executive loop go check SSC J T  ^ h L.L.R. Storage arrays r | X1 10\AX)WX)\ X\ X1 10\A1X)WX)\ X\ X1 10\A2X)WX)\ X\ X1 10\A3X)WX)\ X\ X1 10\A4X)WX)\ X\ X1 10\A5X)WX)\ X\ X1 10\A6X)WX)\ X\ X1 10\A7X)WX)\ X\ X1 10\A8X)WX)\ X\   Empty the L.L.R. arrays   X1 10\AX)0\ X  X1 10\A1X)0\ X  X1 10\A2X)0\ X  X1 10\A3X)0\ X  X1 10\A4X)0\ X & X1 10\A5X)0\ X 0 X1 10\A6X)0\ X : X1 10\A7X)0\ X D X1 10\A8X)0\ X N X b Xfer subroutines l v X1 10\WX)AX)\ X\ X1 10\WX)A1X)\ X\ X1 10\WX)A2X)\ X\ X1 10\WX)A3X)\ X\ X1 10\WX)A4X)\ X\ X1 10\WX)A5X)\ X\ X1 10\WX)A6X)\ X\ X1 10\WX)A7X)\ X\ X1 10\WX)A8X)\ X\  5 Fill Temporary arrays for F.A.S. calculations  4 Y1)S1\Y2)S2\Y3)S3\Y4)S4\Y5)S5\Y6)S6 $ Y7)S7\Y8)S8\Y9)S9\Y10)S  " Go sub to allocate On Hand  * 4 > Allocate InProcess H R "Allocating In-Process" \ G8I1\I1I1G4 f X1 10 %p X1 TX)I1 WX)TX)I1 %z X1 TX)I9 WX)TX)I9  X1 TX)I1 WX)0  X1 TX)I9 WX)0  X1 I9I1TX)  X1 I9I9TX)  I90 I90  X G4G8I9 I1G8    Allocate H   "Allocating On-Hand"  G8O\OOG5  X1 10 # X1 YX)O TX)YX)O %$ X1 YX)O9 TX)YX)O9 . X1 YX)O TX)0 8 X1 YX)O9 TX)0 B X1 O9OYX) L X1 O9O9YX) V O90 O90 ` X j OG8\G5G8O9 t ~  Allocate IN PRODUCTI  ! "Allocating In-Production"  G8I2\I2I2G3  X1 10 % X1 WX)I2 YX)WX)I2 % X1 WX)I9 YX)WX)I9  X1 WX)I2 YX)0  X1 WX)I9 YX)0  X1 I9I2WX)  X1 I9I9WX)  I90 I90  X   I2G8\G3G8I9   %( This subroutine stores L.L.R. 2 < "Store L.L.R." F L0 | P L1 Z L2 d L3 n L4 x L5  L6  L7  L8  - Subroutine to read the prod.structure  * "Reading the Product Structure - ",  2)0 4  2)0  2)1 #2,Z$  2)2 #2,V  V99999999 N % #2,L,P1,P1$,Z,D,Z1,Z2,P2,U,A,B ( "LVL ",L," P/N ",P1," ",P1$   6" Routine check SSC flag, stores LLR, sets flag , 6 F90 r @ 'J Store L.L.R. depending on level T ^ ( h F91 r  | ( Xfer L.L.R. to L.L.R. array WX)   L0 v  L1 v  L2  L3  L4  L5  L6  L7  L8 % "LEVEL EXCEEDS PROGRAM DESIGN"   $ Routine factors requirements  & "Factoring Requirements" 0 Z1Z1100 : X1 10 D WX)WX)UZ1 N X X Z1Z1100 b l v Lead Time Offsetting   "Lead Time offset"  X1 10\UX)WX)\ X  X1 10\WX)0\ X  YL15)  W1)U1) & X11 Y\W1)W1)UX11)\ X1 2 X2 10\ YX)10 YY1\WX)UYX)\ X # X210Y\ XX2 10\WX)0\ X  X1 10\WX)WX))\ X   * Routine increase L.L.R. by Scrap %    "Scrap Adj."  J1Z91 %  X1 10\WX)WX)J1))\ X * 4 \\ > "PROCESSING COMPLETE" H #1\ #2\ #3 R "FILES CLOSED" \ f 5p Routine to write Source inventory Allocations z  G0  #4,"ALLOCINV,2"  4)0   #4,G  G99999999   4)0   #4,G1,G2,G3,G4,G5,G  G1P3   G2Z   #4  0 "Part being written into allocation file" $ G30\G40\G50\G90\G799999999 ) G99999999 #4,P3,Z,G3,G4,G5,G9 % G0 #4,G7,P3,Z,G3,G4,G5,G9  #4 $ . 08 Routine to write the updated allocations B !L "Updating Allocation File" V #4,"ALLOCINV,2" ` 4)0  j #4,G t G99999999 ` ~ #4,G1,G2  G1P3 #4,G,G,G,G  G1P3 `  G2Z #4,G,G,G,G  G2Z `  #4,G3,  #4,G4,  #4,G5,  #4   * Routine to check SSCFLE for L.L.R.  & "Looking for SSC P/N In SSCFLE"   #4,"SSCFLE,2"  4)0 x  #4,V ( V9999999  .2 #4,P6,Z6,S1,S2,S3,S4,S5,S6,S7,S8,S9,S,V < P6P1  4F W1)S1\W2)S2\W3)S3\W4)S4\W5)S5\W6)S6 $P W7)S7\W8)S8\W9)S9\W10)S Z L9L d #4 n  x #4    Write the SSCFLE   "Writing SSCFLE"  V9999999  #4,"SSCFLE,2"  4)0  ! #4,V1\ V19999999   4)0 "  #4,V1\ V1P1   #4   #4,V1    #4,V " #4,P1,Z , X1 10\ #4,WX)\ X 6 V0 @ #4,V J #4 T ^ ;h Check SSC flag write SSCFLE if 0 & PN not filed r | F90   W@p&nKGn7N /ij5|JJ m^QN-Nn'S? p?Opm `@O0@PNp*s..xQOihp@OqoNqNP]1NZ3_7J]`я^`>>?/Do7^`F[/AO@@?P_t?Oj?`/` ?70o1_xN. Aj~a '_@+_?/@O2pOop? s@O_>OPoX пҏGt/@@|7pB pP/TaTttOQO@Pr9pOb`dOAN`@?ab 0 (;9