Call File-AID tool from REXX



IBM's Command List programming language & Restructured Extended Executor

Call File-AID tool from REXX

Postby mymainframe » Sun Jun 21, 2015 1:13 pm

Hi All,

I am writing a REXX tool, in which I have a requirement to call File-AID tool (lets assume Panel-1 and Panel-2). While calling File-AID tool I need to pass the option, and navigate to next panel (panel-2) and REXX should pass few more values to panel-2.

Lets assume, I am calling "Primary Option Menu" from my REXX. While calling I should be able to pass the option 1, from REXX (Please refer below).

File-AID 9.2.0 -------------  Primary Option Menu  -----------------------
OPTION ===> 1 ==> This option should be taken from REXX                                                                 
                                                                             
  0  PARAMETERS- Specify ISPF and File-AID parameters 
  1  BROWSE    - Display file contents                 
  2  EDIT      - Create or change file contents       
  3  UTILITIES - File-AID/SPF extended utilities       
  5  PRINT     - Print file contents                   
  6  SELECTION - Create or change selection criteria   
  7  XREF        - Create or change layout cross reference 
  8  VIEW      - View interpreted record layout                             
  9  REFORMAT  - Convert file from one format to another                   
 10  COMPARE   - Compare file contents                                     
  C  CHANGES   - Display summary of File-AID changes                         
  T  TUTORIAL  - Display information about File-AID                         
  X  EXIT      - Terminate File-AID and return to ISPF                     
                                                                             
     Use END to terminate File-AID         


After passing option 1 to the panel, REXX should give enter command so, that screen navigates to next screen (panel-2). Here again REXX should pass "USER.PROJ.COPYBOOK" and "CPYBOOK" to the current panel (panel-2).

File-AID --------------  Browse - Dataset Specification  ---------------------
COMMAND ===>                                                                 
                                                                             
Browse Mode                ===> F          (F=Fmt; C=Char; V=Vfmt; U=Unfmt)
                                                                             
Specify Browse Information:                                                   
  Dataset name or HFS path ===> 'USER.PROJ.INPUT'               
  Member name              ===>            (Blank or pattern for member list)
  Volume serial            ===>            (If dataset is not cataloged)     
                                                                             
                                                                             
Specify Record Layout and XREF Information:                                 
  Record layout usage      ===> S          (S = Single; X = XREF; N = None) 
  Record layout dataset    ===> 'USER.PROJ.COPYBOOK'    ==> This option should be taken from REXX               
  Member name              ===> CPYBOOK   ==> This option should be taken from REXX
  XREF dataset name        ===>                                             
  Member name              ===>            (Blank or pattern for member list)
                                                                             
Specify Selection Criteria Information:     (E = Existing; T = Temporary;   
  Selection criteria usage ===> N           M = Modify; Q = Quick; N = None)
  Selection dataset name   ===>                                             
  Member name              ===>            (Blank or pattern for member list)



After that REXX should give enter command, so that file is opened, as below and REXX control should terminate.

File-AID - Browse -  USER.PROJ.INPUT  ------------------
 COMMAND ===>                                               
----+----1----+----2----+----3----+----4----+----5----+----6-
********************************* TOP OF DATA ***************
0001 CA  563
0002 OR  698
0003 AZ  658
0004 PA  887
******************************** BOTTOM OF DATA *************

Thanks in advance.
mymainframe
 
Posts: 17
Joined: Fri Jun 19, 2015 8:22 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Call File-AID tool from REXX

Postby NicC » Sun Jun 21, 2015 4:25 pm

"Thanks in advance" for what? You have not asked a question. You have simply stated what you want to do. If you are having problems state what your problem is - what you have tried and the result and why the result does not match your expectations. We do not even know if you are asking if such processing is possible! However, have you tried reading about calling File-AID from a Rexx program in the File-AID manual?
The problem I have is that people can explain things quickly but I can only comprehend slowly.
Regards
Nic
NicC
Global moderator
 
Posts: 3025
Joined: Sun Jul 04, 2010 12:13 am
Location: Pushing up the daisies (almost)
Has thanked: 4 times
Been thanked: 136 times

Re: Call File-AID tool from REXX

Postby mymainframe » Sun Jun 21, 2015 6:27 pm

Sorry to confuse you NicC.

I am looking for the REXX code to navigate from REXX to File-AID. Above I explained my requirement. Hope you got it now.
mymainframe
 
Posts: 17
Joined: Fri Jun 19, 2015 8:22 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Call File-AID tool from REXX

Postby enrico-sorichetti » Sun Jun 21, 2015 6:55 pm

I am looking for the REXX code to navigate from REXX to File-AID.


the chances of getting it are pretty slim

what does the fileaid manuals tell about scripting fileaid using rexx

i have seen quite a few questions on something similar, but no solutions were found/suggested
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
enrico-sorichetti
Global moderator
 
Posts: 2994
Joined: Fri Apr 18, 2008 11:25 pm
Has thanked: 0 time
Been thanked: 164 times

Re: Call File-AID tool from REXX

Postby mymainframe » Wed Jun 24, 2015 10:50 pm

Is there any other way to solve this?
mymainframe
 
Posts: 17
Joined: Fri Jun 19, 2015 8:22 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Call File-AID tool from REXX

Postby Steve Coalbran » Tue Jul 28, 2015 2:04 pm

C'mon Nic, don't be so hard hearted? :D
File-AID MVS or File-AID DB2 or File-AID IMS ?
I'll assume the first.
Looking at the implementation here it is complex as FILEAID is not in the standard concatenations.
Basically a driver is executed as:
SELECT CMD(XXXFA)

Where XXXFA is a CLIST (I know! I even remember them so Altzheimers may be holding off a year or more!?)
PROC 0 PRODID(XFA)                             
/* FILEAID FOR MVS */                           
ALTLIB ACTIVATE APPLICATION(CLIST) +           
       DSNAME('SYS2.PLEX51.FAID.CXVJCLIB')     
IF &PRODID = &Z THEN -                         
   ISPEXEC SELECT CMD(XVJALLOC)                 
ELSE -                                         
   ISPEXEC SELECT CMD(XVJALLOC PRODID(&PRODID))
ISPEXEC CONTROL ERRORS RETURN                   
ISPEXEC SELECT  CMD(XVJFREE)                   
ALTLIB DEACTIVATE APPLICATION(CLIST)           
END

How you poke in 'options' I don't know . I tried ';' delimitted commands but no dice!
Nic? Any ideas if you play on this?
Actually you should be using FileManager instead cos that's IBM software! :lol:
Steve
User avatar
Steve Coalbran
 
Posts: 138
Joined: Wed Apr 06, 2011 11:49 am
Location: Stockholm, Sweden
Has thanked: 13 times
Been thanked: 1 time

Re: Call File-AID tool from REXX

Postby Steve Coalbran » Tue Jul 28, 2015 2:20 pm

OK, adding to this after a deeper dig (about another 5 levels down the nest of CLISTs!) I find we get to a
ISPEXEC SELECT PANEL(&PANID) OPT(&XMODEPRM)

There's a series of deep decision making code in the levels which I will not go into.
Look for a panel with a PANLID of XFAMU01.
Do this by issuing command.
DDLIST M XFAMU01
which issues an ISRDDN and searched for that membername.
Pray that your FA components are in your SYSPROC/SYSEXEC and ISPxLIB concatenations and not cunningly concealled by ALTLIBs and LIBDEFs! :roll:
Good luck Image searching!
Steve
User avatar
Steve Coalbran
 
Posts: 138
Joined: Wed Apr 06, 2011 11:49 am
Location: Stockholm, Sweden
Has thanked: 13 times
Been thanked: 1 time


Return to CLIST & REXX

 


  • Related topics
    Replies
    Views
    Last post