IBM Mainframe Forum

Input file:

XXXXXX.TESTIN.FILE
----+----1----+----2----+----3----
ID1 NAME1 NAME2 NAME3 PHONE1 TYPE1
ID2 NAME4 NAME5 NAME6 PHONE2 TYPE2


Requirement
---------------
User will be asked to enter ID and once user enters ID (=ID1), then remaining field values associated with ID1 (NAME1 NAME2 NAME3 PHONE1 TYPE1) needs to be populted in screen

Present Code
---------------



Present OUTPUT IN SCREEN
--------------------------------



PRESENT STATUS
--------------------
Right now i am just able to read records from input file into the terminal.


Help required
----------------
It is required to read the remaining field values into screen which are associated with a particular ID (that is feed in screen) [as mentioned above in requirement]

Thanks,
dash

A moderator did some serious (and seriously needed) editing on your post whilst I was reading it. However:

• I do not recall your ever having defined "screen": are you trying to use an ISPF panel?
• The Rexx code that you show bears only a vague resemblance to what you say that you seek to accomplish. Whilst your profile does not claim Rexx to be among your skills, you seem not to be applying some fundamental programming concepts here.

Please make your intent clearer, so that something definite may be said about your attempts to achieve it.

On the code that you posted: what if the user hits enter a second time without entering an id? When you have an id and you read the records into a stem - go through the stem looking for the id then display the remaining fields for that record. Then exit or go back to the top and get the next ID. If you are going back you do not need to allocate or read the file again so put that code elsewhere.

Hi Akatsukami/NicC,

Thanks for your kind responses.

As a new comer, my knowledge is very limited in REXX and seeking your assistance in coding.

To explain my above requirement further in detail:

To built a screen (REXX screen) and read information from a file (based on a condition) and display back those information in the screen

Condition is as follows
• There will a SYSID field in REXX screen asking user to enter SYSID in the REXX screen

• Once user enters a valid SYSID in screen and if that is matched with any of the SYSID (SYSID first field in input file) present in input file, then remaining information (of that particular SYSID from input file : here remaining 5 fields) will be read from input file and displayed back in 5 respective fields in the REXX screen

• In total REXX screen should have 6 fields for display/communication of 6 fields of input file

As I could not get knowledge about field level processing in a file, (what I know is processing at record level and shown here), please assist in relevant coding as required above.

Thanks,
Dash

Judging by what you have posted so far you indeed have limited knowledge, so, I would suggest you learn by looking at already existing solutions at your site, in the internet, on this forum, online courses, ..... Until you get the basics of panel and ispf program set up we can not really help, and we do not want to do your job for you.

There is no such thing as a 'Rexx panel' - it is an ISPF panel which can be displayed via several different programming languages of which Rexx is one.

Rexx does not handle record structures - it deals with records. It is up to you to extract the fields from the record either by PARSE or SUBSTR.

To expand on what mongan and NicC have said:

You seem to lack knowledge of ISPF. You will want to know both dialog design and ISPF services to go forward with this (these manuals are for the z/OS 1.11 version, but can tweakfor your shop's implementation later).

Rexx deals with everything -- records, rows, numbers -- as a string. The parsing features of Rexx are subtle and powerful -- that is, in large part, what the language was designed to do -- but they are used only at the developer's explicit will.

You may have taken a bigger bite than you can chew here. Start by deciding if and how your can design and develop your panel, and come back with your decision on if and how you can go forward. Although it may seem harsh, I must remind you that, although we will answer questions and even provide code snippets, we will not write your application (and thus do your job) for you.

Progress and summary of above post
-------------------------------------------

Requirement : USER ENTERS ID VALUE = ID1 in screen and any first 3 charater of input file got matched with that,
then column 2 and 3 of that ID need to appear in output Screen


XXXXXXX.INPUT.FILE
----+----1----+----2----+----3----+
ID1 NAME1 NAME2 NAME3 PHONE1 TYPE1
ID2 NAME4 NAME5 NAME6 PHONE2 TYPE2


Desired Output (when user enters ID value as 'ID1')
------------------
NAMEX : NAME1
NAMEX : NAME2



Present CODE
----------------
SAY "PLEASE ENTER ID"
PULL SYSID
SELECT
WHEN SYSID = "" THEN SAY "PLEASE ENTER ID"
OTHERWISE CALL PROCESS VAR2,VAR3
SAY 'NAMEX :'||VAR2
SAY 'NAMEY :'||VAR3
END
RETURN

PROCESS : PROCEDURE
"ALLOC DDN(INDD) DA('XXXXXXX.INPUT.FILE')SHR"
"EXECIO * DISKR INDD (STEM REC. FINIS"
DO I=1 TO REC.0
VAR1=SUBSTR(REC.I,1,3)
IF SYSID=VAR1 THEN
DO
VAR2=SUBSTR(REC.I,5,5)
VAR3=SUBSTR(REC.I,11,5)
END
END


Present Problem
-------------------
After user enters ID value as 'ID1' output screen becomes empty, no output

can anybody please suggest what problem is with above CALL statement ?



Note
------
WITHOUT USING CALL CONCEPT (CALL PROCESS VAR2,VAR3), above DESIRED OUTPUT comes cprrectly

But once we introduced CALL concept (CALL PROCESS VAR2,VAR3), output screen becomes empty, no output

So it seems it might be a syntax error associated with CALL statement somewhere.

can anybody please suggest what problem is with above CALL statement ?


Thanks,

dash123 wrote: SAY "PLEASE ENTER ID"
PULL SYSID
SELECT
WHEN SYSID = "" THEN SAY "PLEASE ENTER ID"
OTHERWISE CALL PROCESS VAR2,VAR3
SAY 'NAMEX :'||VAR2
SAY 'NAMEY :'||VAR3
END
RETURN

PROCESS : PROCEDURE
"ALLOC DDN(INDD) DA('XXXXXXX.INPUT.FILE')SHR"
"EXECIO * DISKR INDD (STEM REC. FINIS"
DO I=1 TO REC.0
VAR1=SUBSTR(REC.I,1,3)
IF SYSID=VAR1 THEN
DO
VAR2=SUBSTR(REC.I,5,5)
VAR3=SUBSTR(REC.I,11,5)
END
END


Present Problem
-------------------
After user enters ID value as 'ID1' output screen becomes empty, no output

can anybody please suggest what problem is with above CALL statement ?

Nothing; read about and understand the Rexx PROCEDURE instruction.

Either omit the PROCEDURE keyword or read up on the EXPOSE keyword.
Also - do not use SYSID as a variable - it is a system variable and things could get chaotic. And, unless you are planning to add more WHENs to your select IF-THEN-ELSE would be perfectly good.