{"id":1579,"date":"2023-08-09T11:00:00","date_gmt":"2023-08-09T05:30:00","guid":{"rendered":"https:\/\/zmainframes.com\/zlog\/?p=1579"},"modified":"2023-08-07T17:21:48","modified_gmt":"2023-08-07T11:51:48","slug":"understanding-numval-in-cobol-a-guide-with-examples","status":"publish","type":"post","link":"https:\/\/zmainframes.com\/zlog\/understanding-numval-in-cobol-a-guide-with-examples\/","title":{"rendered":"Understanding NUMVAL in COBOL: A Guide with Examples"},"content":{"rendered":"\n

Understanding NUMVAL in COBOL<\/h2>\n\n\n\n

COBOL, short for Common Business-Oriented Language, is a programming language that has been widely used in business and financial applications for decades. One of the essential aspects of COBOL programming is working with data, particularly numeric data. In this article, we will delve deep into the concept of NUMVAL<\/code> in COBOL \u2013 what it is, how it is used, and we’ll provide numerous examples to illustrate its functionality.<\/p>\n\n\n\n

What is NUMVAL?<\/h2>\n\n\n\n

NUMVAL<\/code> is a COBOL intrinsic function that is used to convert a string representation of a number into its equivalent numeric value. In other words, it is used to convert a character string containing digits into a numeric data item that can be used for arithmetic operations or comparisons. The result of the NUMVAL<\/code> function is a numeric value that can be assigned to a numeric data item in your COBOL program.<\/p>\n\n\n\n

The general syntax of the NUMVAL<\/code> function is as follows:<\/p>\n\n\n\n

COBOL<\/span><\/path><\/path><\/svg><\/span>
NUMVAL<\/span> (source-string, numeric-data-item [, <\/span>STATUS<\/span>])<\/span><\/span><\/code><\/pre><\/div>\n\n\n\n
    \n
  • source-string<\/code>: This is the character string that contains the numeric value you want to convert.<\/li>\n\n\n\n
  • numeric-data-item<\/code>: This is the target numeric data item that will hold the converted numeric value.<\/li>\n\n\n\n
  • STATUS<\/code>: An optional parameter that specifies the result of the conversion. It can take on values like NUMVAL_OK<\/code>, NUMVAL_ERR<\/code>, etc.<\/li>\n<\/ul>\n\n\n\n
    How is NUMVAL Used?<\/h2>\n\n\n\n
    NUMVAL<\/code> is primarily used when you need to convert user input or external data (often in string format) into a format that can be processed and manipulated as numeric data within your COBOL program. This is particularly common when dealing with file processing or when accepting user input in the form of strings, such as account numbers, transaction amounts, or other numerical values.<\/p>\n\n\n\n
    By using NUMVAL<\/code>, you can ensure that the input data is correctly interpreted as a numeric value, allowing you to perform arithmetic operations, comparisons, and other calculations without errors.<\/p>\n\n\n\n
    Let’s explore some practical examples to understand how NUMVAL<\/code> works and how it can be used in COBOL programs.<\/p>\n\n\n\n
    Example 1: Simple Conversion<\/h2>\n\n\n\n
    COBOL<\/span><\/path><\/path><\/svg><\/span>
    IDENTIFICATION DIVISION<\/span>.<\/span><\/span>\nPROGRAM-ID<\/span>. <\/span>NumvalExample<\/span>.<\/span><\/span>\n<\/span>\nDATA DIVISION<\/span>.<\/span><\/span>\nWORKING-STORAGE SECTION<\/span>.<\/span><\/span>\n01<\/span> Source-String        <\/span>PIC X<\/span>(<\/span>10<\/span>) <\/span>VALUE<\/span> <\/span>'12345'<\/span>.<\/span><\/span>\n01<\/span> Numeric-Value        <\/span>PIC 9<\/span>(<\/span>5<\/span>).<\/span><\/span>\n<\/span>\nPROCEDURE DIVISION<\/span>.<\/span><\/span>\n    <\/span>MOVE<\/span> Source-String <\/span>TO<\/span> Numeric-Value<\/span><\/span>\n    <\/span>DISPLAY<\/span> <\/span>'Numeric Value: '<\/span> Numeric-Value<\/span><\/span>\n    <\/span>STOP RUN<\/span>.<\/span><\/span><\/code><\/pre><\/div>\n\n\n\n
    In this example, we have a simple COBOL program that demonstrates the use of NUMVAL<\/code> for converting a character string to a numeric value. The program defines a Source-String<\/code> containing the value ‘12345’ and a Numeric-Value<\/code> data item. The MOVE<\/code> statement uses the NUMVAL<\/code> function to convert the Source-String<\/code> into a numeric value and stores it in the Numeric-Value<\/code> data item. The DISPLAY<\/code> statement then outputs the converted numeric value.<\/p>\n\n\n\n
    Example 2: Handling Conversion Errors<\/h2>\n\n\n\n
    COBOL<\/span><\/path><\/path><\/svg><\/span>
    IDENTIFICATION DIVISION<\/span>.<\/span><\/span>\nPROGRAM-ID<\/span>. <\/span>NumvalErrorExample<\/span>.<\/span><\/span>\n<\/span>\nDATA DIVISION<\/span>.<\/span><\/span>\nWORKING-STORAGE SECTION<\/span>.<\/span><\/span>\n01<\/span> Source-String        <\/span>PIC X<\/span>(<\/span>10<\/span>) <\/span>VALUE<\/span> <\/span>'12A34'<\/span>.<\/span><\/span>\n01<\/span> Numeric-Value        <\/span>PIC 9<\/span>(<\/span>5<\/span>).<\/span><\/span>\n01<\/span> Conversion-Status    <\/span>PIC X<\/span>(<\/span>10<\/span>).<\/span><\/span>\n<\/span>\nPROCEDURE DIVISION<\/span>.<\/span><\/span>\n    <\/span>MOVE<\/span> <\/span>'NUMVAL_ERR'<\/span> <\/span>TO<\/span> Conversion-Status<\/span><\/span>\n    <\/span>MOVE<\/span> Source-String <\/span>TO<\/span> Numeric-Value<\/span><\/span>\n    <\/span>NUMVAL<\/span> (Source-String, Numeric-Value, Conversion-Status)<\/span><\/span>\n    <\/span>IF<\/span> Conversion-Status <\/span>=<\/span> <\/span>'NUMVAL_OK'<\/span><\/span>\n        <\/span>DISPLAY<\/span> <\/span>'Numeric Value: '<\/span> Numeric-Value<\/span><\/span>\n    <\/span>ELSE<\/span><\/span>\n        <\/span>DISPLAY<\/span> <\/span>'Conversion Error'<\/span><\/span>\n    <\/span>END-IF<\/span><\/span>\n    <\/span>STOP RUN<\/span>.<\/span><\/span><\/code><\/pre><\/div>\n\n\n\n
    In this example, we intentionally provide a non-numeric character (‘A’) in the Source-String<\/code> to demonstrate how to handle conversion errors using the NUMVAL<\/code> function. The Conversion-Status<\/code> data item is used to capture the status of the conversion. If the conversion is successful, the program displays the converted numeric value. If the conversion fails, it displays a “Conversion Error” message.<\/p>\n\n\n\n
    Example 3: Processing Numeric Data from External Source<\/h2>\n\n\n\n
    COBOL<\/span><\/path><\/path><\/svg><\/span>
    IDENTIFICATION DIVISION<\/span>.<\/span><\/span>\nPROGRAM-ID<\/span>. <\/span>NumvalExternalData<\/span>.<\/span><\/span>\n<\/span>\nDATA DIVISION<\/span>.<\/span><\/span>\nFILE SECTION<\/span>.<\/span><\/span>\n01<\/span> Input-File            <\/span>FILE<\/span> <\/span>STATUS<\/span> <\/span>IS<\/span> Input-Status.<\/span><\/span>\n02<\/span> Input-Record          <\/span>PIC X<\/span>(<\/span>20<\/span>).<\/span><\/span>\n<\/span>\nWORKING-STORAGE SECTION<\/span>.<\/span><\/span>\n01<\/span> Numeric-Value         <\/span>PIC 9<\/span>(<\/span>5<\/span>).<\/span><\/span>\n01<\/span> Conversion-Status     <\/span>PIC X<\/span>(<\/span>10<\/span>).<\/span><\/span>\n01<\/span> Input-Status          <\/span>PIC 9.<\/span><\/span>\n<\/span>\nPROCEDURE DIVISION<\/span>.<\/span><\/span>\n    <\/span>OPEN<\/span> <\/span>INPUT<\/span> Input-File<\/span><\/span>\n    <\/span>PERFORM<\/span> <\/span>UNTIL<\/span> Input-Status <\/span>=<\/span> <\/span>10<\/span><\/span>\n        <\/span>READ<\/span> Input-File <\/span>INTO<\/span> Input-Record<\/span><\/span>\n        <\/span>IF<\/span> Input-Status <\/span>=<\/span> <\/span>0<\/span><\/span>\n            <\/span>MOVE<\/span> <\/span>'NUMVAL_ERR'<\/span> <\/span>TO<\/span> Conversion-Status<\/span><\/span>\n            <\/span>MOVE<\/span> Input-Record <\/span>TO<\/span> Numeric-Value<\/span><\/span>\n            <\/span>NUMVAL<\/span> (Input-Record, Numeric-Value, Conversion-Status)<\/span><\/span>\n            <\/span>IF<\/span> Conversion-Status <\/span>=<\/span> <\/span>'NUMVAL_OK'<\/span><\/span>\n                <\/span>DISPLAY<\/span> <\/span>'Numeric Value: '<\/span> Numeric-Value<\/span><\/span>\n            <\/span>ELSE<\/span><\/span>\n                <\/span>DISPLAY<\/span> <\/span>'Conversion Error'<\/span><\/span>\n            <\/span>END-IF<\/span><\/span>\n        <\/span>END-IF<\/span><\/span>\n    <\/span>END-PERFORM<\/span><\/span>\n    <\/span>CLOSE<\/span> Input-File<\/span><\/span>\n    <\/span>STOP RUN<\/span>.<\/span><\/span><\/code><\/pre><\/div>\n\n\n\n
    In this example, we demonstrate how NUMVAL<\/code> can be used to process numeric data from an external file. The program reads records from an input file and attempts to convert each record using the NUMVAL<\/code> function. If the conversion is successful, the program displays the converted numeric value. If not, it displays a “Conversion Error” message.<\/p>\n\n\n\n
    Conclusion<\/h2>\n\n\n\n
    In the world of COBOL programming, the NUMVAL<\/code> function plays a crucial role in converting character strings containing numeric data into usable numeric values. This is essential for performing calculations, making comparisons, and processing external data sources accurately. By understanding the NUMVAL<\/code> function and its usage, COBOL programmers can ensure that their programs handle numeric data effectively and with precision.<\/p>\n\n\n\n
    Throughout this article, we explored the concept of NUMVAL<\/code> in COBOL, its syntax, and its practical applications. We examined various examples to illustrate how NUMVAL<\/code> can be used in different scenarios, such as simple conversions, handling conversion errors, and processing numeric data from external sources. Armed with this knowledge, COBOL developers can confidently utilize the NUMVAL<\/code> function to enhance the accuracy and reliability of their programs, particularly when dealing with numeric data.<\/p>\n","protected":false},"excerpt":{"rendered":"
    Understanding NUMVAL in COBOL COBOL, short for Common Business-Oriented Language, is a programming language that has been widely used in […]<\/p>\n","protected":false},"author":515,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[27],"tags":[306,469,468,37,466,470,467],"class_list":["post-1579","post","type-post","status-publish","format-standard","hentry","category-cobol","tag-cobol-2","tag-handling-conversion-errors","tag-how-is-numval-used","tag-mainframes","tag-numval-in-cobol","tag-processing-numeric-data","tag-what-is-numval"],"amp_enabled":true,"rttpg_featured_image_url":null,"rttpg_author":{"display_name":"zMainframes","author_link":"https:\/\/zmainframes.com\/zlog\/author\/zmainframes\/"},"rttpg_comment":0,"rttpg_category":"Cobol<\/a>","rttpg_excerpt":"Understanding NUMVAL in COBOL COBOL, short for Common Business-Oriented Language, is a programming language that has been widely used in […]","_links":{"self":[{"href":"https:\/\/zmainframes.com\/zlog\/wp-json\/wp\/v2\/posts\/1579","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/zmainframes.com\/zlog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/zmainframes.com\/zlog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/zmainframes.com\/zlog\/wp-json\/wp\/v2\/users\/515"}],"replies":[{"embeddable":true,"href":"https:\/\/zmainframes.com\/zlog\/wp-json\/wp\/v2\/comments?post=1579"}],"version-history":[{"count":2,"href":"https:\/\/zmainframes.com\/zlog\/wp-json\/wp\/v2\/posts\/1579\/revisions"}],"predecessor-version":[{"id":2002,"href":"https:\/\/zmainframes.com\/zlog\/wp-json\/wp\/v2\/posts\/1579\/revisions\/2002"}],"wp:attachment":[{"href":"https:\/\/zmainframes.com\/zlog\/wp-json\/wp\/v2\/media?parent=1579"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/zmainframes.com\/zlog\/wp-json\/wp\/v2\/categories?post=1579"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/zmainframes.com\/zlog\/wp-json\/wp\/v2\/tags?post=1579"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}