Solution for the Move Corresponding Worksheet

The Move Corresponding Worksheet is available in the course Notes book and also on a web page.


        
          
       01  Inventory-Rec.
           02  Inv-Part-Name           Pic X(5)       Value 'NAILS'.
           02  Inv-Number              Pic X(8)       Value 'ABCD1234'.
           02  Inv-Qty                 Pic 999        Value 765.
           02  Inv-Price               Pic 99V99      Value 10.50.
           02  Supplier.
               05  Supplier-Name       Pic X(12)
                       Value 'ACE HARDWARE'.
               05   Supplier-Address.
                    10   Street        Pic X(10)
                            Value '12 LINCOLN'.
                    10   City          Pic X(6)       Value 'DEKALB'.
                    10   Zip           Pic X(5)       Value '60115'.


       01   Store-Inventory.

           02  Parts-Info.

               05  Inv-Number          Pic X(4)BX(4).

                                       _ABCD_1234________

               05  Inv-Qty             Pic 999.

                                       _765______________

               05  Inv-Prt-Name        Pic X(5).

                                       __________________

               05  Inv-Price           Pic 99.99.

                                       _10.50____________

               05  Supplier.

                   10  Supplier-Name   Pic X(12).

                                       _ACE HARDWARE_____

                   10  Supplier-Addr.

                       15  Street      Pic X(10).

                                       __________________

                       15  City        Pic X(6).

                                       __________________

                       15  Zip-Code    Pic X(5).

                                       __________________

     What are the values in Store-Inventory after the COBOL instructions:

           Move Spaces to Store-Inventory.
           Move Corresponding Inventory-Rec to Parts-Info.