• The Four Hundred
  • Subscribe
  • Media Kit
  • Contributors
  • About Us
  • Contact
Menu
  • The Four Hundred
  • Subscribe
  • Media Kit
  • Contributors
  • About Us
  • Contact
  • Indicate Negative Numbers with Parentheses

    January 11, 2006 Hey, Ted

    Thank you for a newsletter with information that is always interesting and useful. I enjoyed reading about your IIF function. Here is a function I wrote a few years back on V5R1. It returns a numeric value edited for displaying or printing that includes parenthesis when the value is negative. Our accountants prefer that negative numbers appear within parenthesis. The value returned contains two decimals, as this function is primarily used for monetary amounts.

    –Glenn T. Berg, programmer/analyst

    It was good of Glenn to share his EditParens function with the rest of us. I don’t blame the bean counters for wanting to see negative numbers in parentheses. Those trailing minus signs don’t stand out as well, and can get lost when numbers are displayed or printed close together. If a number is negative, EditParens places a floating opening parenthesis immediately before the first non-blank character of the edited result and follows the edited number with a closing parenthesis. If the number is not negative, the positions that the parentheses would fill are left blank.

    Here is the procedure prototype for the EditParens function. In my testing, I put it in member EditParens of source physical file PROTOTYPES.

    D* Prototype for Subprocedure EditParens     
    D EditParens      PR            42A   VARYING
    D    Val                        30P 2 VALUE
    

    Here’s the function itself.

    *-----------------------------------------------------------------------
    *  Subprocedure EditParens - Place Parentheses Around Negative Number   
    *-----------------------------------------------------------------------
    H nomain                                                                 
                                                                             
    D/copy prototypes,EditParens                                             
                                                                             
    P EditParens      B                   EXPORT                             
                                                                             
    D* Procedure Interface                                                   
    D EditParens      PI            42A   VARYING                            
    D  Val                          30P 2 VALUE                              
    D* Local Work fields                                                     
    D Lparen          C                   CONST('(')                         
    D Rparen          C                   CONST(')')                         
    D WRK             S             42A   VARYING                            
                                                                             
     *    Edited Value
     *   Note that the '1' edit code does not include a sign so we 
     *   don't have to calculate the absolute value when negative. 
    C                   If         Val >=0                         
    C                   Eval       WRK = %TrimL(%Editc(Val:'1')) + 
    C                              ' '                             
    C                   Else                                       
    C                   Eval       WRK = Lparen +                  
    C                              %TrimL(%Editc(Val:'1')) +       
    C                              RParen                          
    C                   End                                        
                                                                   
    C                   Return     WRK                             
    P                 E
    

    Here’s an example of how a calling routine might invoke EditParens. Numeric variables WXCUR and WXYTD are copied into edited variables WXCURO and WXYTDO.

    D WXYTD           s              9P 2                   
    D WXCUR           s              7P 2                   
    D WXYTDO          s             14A                     
    D WXCURO          s             11A                     
    
    D/copy prototypes,EditParens                            
                                                            
    C                   EvalR     WXYTDO = EditParens(WXYTD)
    C                   EvalR     WXCURO = EditParens(WXCUR)
    

    I will leave it to the reader to place the routine in an appropriate module or service program. This is a topic I dealt with in the January 4 edition of Four Hundred Guru.

    –Ted

    RELATED STORIES

    A Handy RPG FUNction

    Properly Placed Procedures

    Share this:

    • Reddit
    • Facebook
    • LinkedIn
    • Twitter
    • Email

    Tags:

    Sponsored by
    Manta Technologies

    The Leader in IBM i Education!
    Need training on anything i?
    Manta is all you need.

    130 courses and competency exams on:
    · IBM i operations
    · System Management and Security
    · IBM i Programming Tools
    · Programming in RPG, COBOL, CL, Java
    · Web Development
    · SQL, DB2, Query

    Product features:
    · Runs in every popular browser
    · Available 24/7/365
    · Free Student Reference Guides
    · Free Student Administration
    · Concurrent User License
    · Built-In IBM i Simulator

    You can download our 200-page catalog and take sample sessions at MantaTech.com.

    Share this:

    • Reddit
    • Facebook
    • LinkedIn
    • Twitter
    • Email

    Sponsored Links

    nuBridges:  Leading provider of secure FTP on the iSeries
    COMMON:  Join us at the Spring 2006 conference, March 26-30, in Minneapolis, Minnesota
    California Software:  Migrate iSeries apps to Windows, Linux, or Unix

    DataMirror Claims Top Benchmark for Data Replication Mainsoft, IBM to Convert .NET Code to Java on All eServers

    Leave a Reply Cancel reply

Volume 6, Number 2 -- January 11, 2006
THIS ISSUE SPONSORED BY:

ProData Computer Svcs
Advanced Systems Concepts
COMMON

Table of Contents

  • A FUNction to Align Text
  • Alternatives to Clear Physical File Member
  • Admin Alert: Six Simple Rules for OS/400 Group Profiles
  • Alternate SQL Row-Selection Criteria, Take 3
  • Indicate Negative Numbers with Parentheses
  • Admin Alert: Limiting *PUBLIC Access to i5/OS Objects, Part 2

Content archive

  • The Four Hundred
  • Four Hundred Stuff
  • Four Hundred Guru

Recent Posts

  • The IBM i Power10 Upgrade Cycle Forecast Looks Favorable
  • White Hats Completely Dismantle Menu-Based Security
  • Cloud Software To Drive Enterprise Application Growth
  • How Do You Stay In Touch With The IBM i Community?
  • IBM i PTF Guide, Volume 25, Number 6
  • Security Still Top Concern, IBM i Marketplace Study Says
  • Bob Langieri Shares IBM i Career Trends Outlook for 2023
  • Kisco Brings Native SMS Messaging to IBM i
  • Four Hundred Monitor, February 1
  • 2023 IBM i Predictions, Part 4

Subscribe

To get news from IT Jungle sent to your inbox every week, subscribe to our newsletter.

Pages

  • About Us
  • Contact
  • Contributors
  • Four Hundred Monitor
  • IBM i PTF Guide
  • Media Kit
  • Subscribe

Search

Copyright © 2022 IT Jungle

loading Cancel
Post was not sent - check your email addresses!
Email check failed, please try again
Sorry, your blog cannot share posts by email.