Quantcast
Channel: Visual COBOL - Forum - Recent Threads
Viewing all articles
Browse latest Browse all 4356

RE: Using SPZERO in Visual COBOL

$
0
0

We will be using a mix of native and managed code.  I tried your example on native code and it worked - must have missed it the first time.

Can you provide an example of using SIGN-FIXUP as I tried in on managed code without any luck.

Here is the code I used for both native and managed code and covers most of our situations.  The test-file contains spaces.  The results should display zeros as it does in native code with SPZERO.

     $set sign-fixup

      program-id. Program1 as "ConsoleApplication3.Program1".

          select test-file

              assign to "\Temp\Test.txt"

              organization is line sequential.

      data division.

      fd  test-file.

      01  test-rec.

          05 test-field pic 9(3)v99.

      working-storage section.

      01 notFormated pic 9(3)v99.

      01 notFormated2 pic 9(3)v99.

      01 formated pic $9(3).99.

      01 formated2 pic $9(3).99.

      procedure division.

          open input test-file.

          read test-file.

          display "Managed COBOL".

          display " ".    

          display "9(3)v99 field from file - " test-field.

          move test-field to notFormated.

          display "9(3)v99 field - " notFormated.

          move notFormated to notFormated2.

          display "notFormated2 - " notFormated2.

          move notFormated to formated2.

          display "formated2 - " formated2.

          display " ".

          display "9(3)v99 field from file - " test-field.

          move test-field to formated.

          display "$9(3).99 field - " formated.

          move formated to notFormated2.

          display "notFormated2 - " notFormated2.

          move formated to formated2.

          display "formated2 - " formated2.

          close test-file.

          goback.

      end program Program1.


Viewing all articles
Browse latest Browse all 4356

Trending Articles