Right Justify & Zero Fill No Check Box in Valueset

[SIVAKUMAR_G]

Right Justify and Zero Fill Numbers check box in Valueset

<b>What it is:</b> If you have set the Account segment in your Accounting Key flexfield and if you have a values like 001000 and if you enter 1000 in the segment value while creating Journals and tab,then system will fill the prefix two zeroes and right justify the column

<b>Why it is: </b> It helps in minimizing the data entry of typing Zeros and Right Justification

<b>Who will set this:</b> At the Very first time when you set the Valueset for all the Segments

<b>When it is set:</b> During Initial Implementation stage it is set and irreversible

<b>Where it is set: </b> In any of the Key Flexfields or Descriptive Flexfields Valueset level

<b>How it is useful:</b> In any Implementation, you will always set one or two Future segments for the Business Requirment of the customer and we generally set this to set it to default 000 if it is three digits. But Business may not be adequately predict what should be the size of the future Segment?. Do we need to set it at 3 digit or 4 digit etc.,

In that case do not enable this checkbox for only future segment. As and when the future segment is decided to be used, they can increase or decrease the length of the Segment Values from three digit to Four or five or six digits if we have NOT enabled this checkbox

<b>NOTE: </b> DO NOT Enable this check box only for future segment and which will help you to increase the width of the segment value in future if you would like to increase the width of the segment

Hope this helps

Regards
Sivakumar

[chrisadam12]

his suite of programs provides an example of a routine that will Right Adjust (or Right Justify) a text string within a numeric field and fill the left-most or high-order bytes with zeroes. The resulting field is also tested for numeric values and a return code (RA12-RESPOND) is set to zero (0) if numeric and eight (8) if not numeric. Two COBOL programs are provided. The first program is a demonstration program that reads a file containing "RIGHTADJ-info" records and calls the second COBOL program that actually does the right-adjust, zero-fill processing.

The objective of the right-adjust, zero-fill routine is to create a numeric field that will contain all digits with leading zeroes in the leftmost positions and be properly aligned to the units position. If the requirement is to right-justify, left-justify or center a text string within a field with the appropriate leading and/or trailing space characters then refer to the text-justification routine .

Both COBOL programs are written using the VS COBOL II dialect and also work with COBOL for MVS and COBOL/370. A JCL member is provided to run the job as an MVS batch job on an IBM mainframe or as a project with Micro Focus Mainframe Express (MFE) running on a PC with Windows. A Windows Command (.CMD) file is provided to run the job on a PC with Micro Focus Net Express. This program may serve as a tutorial for new programmers and as a reference for experienced programmers. Additional information is provided in the Downloads and Links to Similar Pages section of this document.

Programming Objectives
(Next) (Previous) (Table-of-Contents)

The following is a list of the functions provided in this example.

1. Demonstrate how to Right-Adjust a text string within a field.
2. Do a Zero-Fill for the left-most or high-order bytes.
3. Do an erase to End-Of-Field after the first space.
4. Test the right-adjusted field for all numerics.
The first task performed by the SimoRA12 routine is to erase to the End-Of-Field. This feature will scan the field from left to right and erase (change to a space character) any characters after the first space is encountered. The next task is to right-adjust the non-space characters and zero-fill the leftmost (or high-order) bytes in the field. The final task is to test the results for a numeric value. If the resulting field is numeric the return code (or RA12-RESPOND) is set to zero, If the resulting field is not numeric the return code (or RA12-RESPOND) is set to 0008.

Programming Input and Output
(Next) (Previous) (Table-of-Contents)

The following is an example of the contents of the input or RIGHTADJ-info file (RA12GET1). Notice the 5th statement contains a non-numeric value. The 8th statement contains an embedded space that will cause the erase to End-Of-Field to remove (or erase) any characters after the embedded space character.

RIGHTADJ 1
RIGHTADJ 12
RIGHTADJ 123
RIGHTADJ 1234
RIGHTADJ 1234A
RIGHTADJ 12345
RIGHTADJ 123456
RIGHTADJ 123 56789
RIGHTADJ 1234567
RIGHTADJ 12345678
RIGHTADJ 123456789
RIGHTADJ 1234567890
RIGHTADJ 12345678901
RIGHTADJ 123456789012
RIGHTADJ 3