Prev
Next
Forums Integration / Customization S3 Customization/Development

Cobol signed fields

 3 Replies
 0 Subscribed to this topic
 17 Subscribed to this forum
Sort:
Author
Messages
Karen Sheridan
Veteran Member
Posts: 141
Veteran Member
5/29/2012 6:32 PM
    We have a file going to a vendor with contribution fields defined as S9(08)v99.  We sent negative values recently and they went over 88.8u and 168.3x. The vendor needs them

     

       Digit                Character (negative)

     

          0               =                     }

     

           1               =                    J

     

           2               =                    K

     

           3               =                    L

     

           4               =                    M

     

           5               =                    N

     

           6               =                    O

     

           7               =                    P

     

           8               =                    Q

     

           9               =                    R

    Its been too long, but is this just a matter of changing the field definition or is it more complicated than that.

    TIA,
    Karen

    John Henley
    Posts: 3353
    5/29/2012 6:53 PM
      You will love this little project....

      Assuming you are using a COBOL program, you have to convert the hex value of the ASCII code of last digit.

      For instance, -3 is 's', which is ASCII hex = 73. That translates to 4C.

      I have this chart:

      Value Character EBCDIC Hex code ASCII Hex code

      +0 0 F0 30
      +1 1 F1 31
      +2 2 F2 32
      +3 3 F3 33
      +4 4 F4 34
      +5 5 F5 35
      +6 6 F6 36
      +7 7 F7 37
      +8 8 F8 38
      +9 9 F9 39

      Value Character EBCDIC Hex code ASCII Hex code

      -0 p n/a 70
      -1 q n/a 71
      -2 r n/a 72
      -3 s n/a 73
      -4 t n/a 74
      -5 u n/a 75
      -6 v n/a 76
      -7 w n/a 77
      -8 x n/a 78
      -9 y n/a 79

      Value Character EBCDIC Hex code ASCII Hex code

      +0 { C0 7B
      +1 A C1 41
      +2 B C2 42
      +3 C C3 43
      +4 D C4 44
      +5 E C5 45
      +6 F C6 46
      +7 G C7 47
      +8 H C8 48
      +9 I C9 49

      -0 } D0 7D
      -1 J D1 4A
      -2 K D2 4B
      -3 L D3 4C
      -4 M D4 4D
      -5 N D5 4E
      -6 O D6 4F
      -7 P D7 50
      -8 Q D8 51
      -9 R D9 52
      Thanks for using the LawsonGuru.com forums!
      John
      John Henley
      Posts: 3353
      5/29/2012 7:01 PM
        Please adjust accordingly for spacing...

        In your working-storage, you'll need to define the amount field first with the signed/overpunch, and then redefine it to isolate the last character:

                               05  MG254WS-BT2A-TOTAL-BP-HRS  PIC S9(09)V9(02) 
                                                      VALUE ZEROES.
                       05  MG254WS-BT2A-TOTAL-BP-HRS-X REDEFINES
                           MG254WS-BT2A-TOTAL-BP-HRS.
                           07       FILLER            PIC X(10).
                           07  MG254WS-BT2A-TOTAL-BP-HRS-PUNCH
                                                      PIC X(01).


        And you'll also need this to do the translation.

                        03  WS-ASCII-OVERPUNCH.
                       05     FILLER   PIC X(20) VALUE 
                           X"3031323334353637383970717273747576777879".
                   03  WS-EBCDIC-OVERPUNCH.
                       05     FILLER   PIC X(20) VALUE 
                           X"7B4142434445464748497D4A4B4C4D4E4F505152".


        Then in your PD, you'll need to use this code:


        ***Move the value into the signed / overpunch.
        MOVE MG254WS-BT2A-TOTAL-BP-RECS TO TBT2A-TOTAL-BP-RECS.


        ***Convert the overpunch
        INSPECT MG254WS-BT2A-TOTAL-BP-HRS-PUNCH 
                       CONVERTING WS-ASCII-OVERPUNCH TO WS-EBCDIC-OVERPUNCH.

        Please ignore the spacing, and make sure it all lines up.
        Thanks for using the LawsonGuru.com forums!
        John
        Karen Sheridan
        Veteran Member
        Posts: 141
        Veteran Member
        5/29/2012 7:57 PM
          Thanks John - That worked!