[Default] On 26 Oct 2017 18:25:33 -0700, in bit.listserv.ibm-main dcrayf...@gmail.com (David Crayford) wrote:
Reentering my nagging on zones created by EGL and predecessors Visual Age Gen and CSP. I was cleaning up my mailbox and found this from last year so went to the link and found the excerpt below. I find I am in a minority in believing that NUMPROC(MIG) far better represe;nted reality on z than NUMPROC(PFD). How is data entry handled these days in terms of how do negative numbers get entered? I know that from the various things I fill out online, I always entered unsigned numbers and I assume context assigns the sign within the systems. >On 27/10/2017 8:45 AM, Clark Morris wrote: >> [Default] On 25 Oct 2017 22:35:55 -0700, in bit.listserv.ibm-main >> sipp...@sg.ibm.com (Timothy Sipples) wrote: >> >>> David Crayford wrote: >>>> NetRexx is basically a translator that compiles REXX code into Java >>>> source code. That's quite unique. All the other JVM languages compile to >>>> byte code. >>> No, it's not unique in that respect. That's how EGL works, to pick an >>> example. >> Is there an online manual for EGL? I don;t think I was able to find >> one last time I looked. > >https://www.ibm.com/support/knowledgecenter/en/SSMQ79_9.5.0/com.ibm.egl.doc/topics/egl_core_lr_intro.html Having read the manual, I find the following confusing: * * * Begin excerpt from https://www.ibm.com/support/knowledgecenter/en/SSMQ79_9.5.0/com.ibm.egl.lr.doc/topics/regl_core_num_type.html * * * MONEY is identical to DECIMAL except that, when you output a variable based on MONEY, EGL uses the strLib.defaultMoneyFormat system variable to determine the output format. By default this format has two decimal places and includes a currency symbol. EGL supports the NUMC and PACF types so you can work with files and databases from older applications. In new development, use variables and fields based on BIN or an equivalent integer type (BIGINT, INT, or SMALLINT), or on the DECIMAL type; calculations are more efficient with those variable types. You get the greatest efficiency by using four-digit BIN variables with no decimal places (the equivalent of the SMALLINT type). Other efficiency considerations include the following points: In calculations, assignments, and comparisons, NUM fields that have no decimal places are more efficient than those that do have decimal places. For code generated in Java, calculations with DECIMAL, NUM, NUMC, and PACF fields are equally efficient. For code generated in COBOL, however, these distinctions apply: Calculations with NUM fields are more efficient than calculations with NUMC fields. Calculations with DECIMAL fields are more efficient than calculations with PACF fields. If you are new to mainframe computing, you might not recognize two common types of numeric variables in COBOL: zoned decimal and packed decimal. If you work with these types, your EGL data types must match the format and sign configuration of the data these types contain. Here is a quick overview: EBCDIC represents ordinary positive numbers 0-9 with hex characters F0-F9 (for example, 150 translates to F1F5F0). COBOL also supports "zoned" data types that allow signs (in EGL these are NUM and NUMC). The rightmost hex digit carries the sign for the whole number, with a D replacing the F for a negative number. Thus F1F5D0 translates to -150. In the case of NUMC, a C replaces the F for a positive number, rendering positive 150 as F1F5C0. The repeated F characters may seem redundant to those unfamiliar with EBCDIC. Packed decimal data types (represented in EGL by DECIMAL, MONEY, and PACF) eliminate the redundancy. The packed decimal version of -150 is 150D. Positive 150 is 150, except in the PACF format, where it would be 150F. * * * end excerpt * * * Idf your shop is afflicted with EGL or its predecessors, I highly recommend checking the numeric fields created / updated to verify exactly what the sign nibbles are. Clark Morris > >> Clark Morris >>>> much snipped >>> -------------------------------------------------------------------------------------------------------- >>> Timothy Sipples >>> IT Architect Executive, Industry Solutions, IBM z Systems, AP/GCG/MEA >>> E-Mail: sipp...@sg.ibm.com >>> >>> ---------------------------------------------------------------------- >>> For IBM-MAIN subscribe / signoff / archive access instructions, >>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN >> ---------------------------------------------------------------------- >> For IBM-MAIN subscribe / signoff / archive access instructions, >> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > >---------------------------------------------------------------------- >For IBM-MAIN subscribe / signoff / archive access instructions, >send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
