IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

LMMLIST COMMAND returns with RC = 8


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
balaji81_k

Active User


Joined: 29 Jun 2005
Posts: 155

PostPosted: Wed Apr 03, 2013 6:46 pm
Reply with quote

Hi ,

I have written Rexx routine to perform impact analysis . This rexx routine to search for the member pattern in the library pattern(PDS) as given by the user . I have created below three libraries with a Member (AAA) in dataset 2, 3 .

Dataset 1: AAA.PDS.COBOL (no member like "AA*")
Dataset 2: AAA.PDS.COBOLA (Member like "AA* present)
Dataset 3: AAA.PDS.COBOLB(Member like "AA*" present)



Code:

SAY "ENTER  APPLICATION NAME"                                         
 PULL APP                                                               
 SAY "ENTER  COMPONENT PATTERN"                                         
 PULL CMTP                                                             
 SAY "ENTER PATTERN FOR LIBRARIES TO BE SEARCHED"                       
 PULL DS                                                               
 ADDRESS TSO                                                           
 USR  = USERID()                                                       
 APP = STRIP(APP)                                                       
 DS  = STRIP(DS)                                                       
 DS = DS ||"*"                                                         
 CMTP = STRIP(CMTP)                                                     
 MEMBFILTER  = CMTP ||"*"                                               
 IDX   = 0                                                             
 DSX   = 0                                                             
 TOTMEMBRS = 0                                                         
 TOT_MEMB_LIST =  0                                                     
  "ISPEXEC LMDINIT LISTID(IDV) LEVEL(&DS)"                             
  DO  FOREVER                                                           
"ISPEXEC LMDLIST LISTID("IDV") OPTION(LIST) DATASET(DSVAR) STATS(YES)" 
   IF RC ¬= 0 THEN                                                     
     DO                                                                 
       LEAVE                                                           
     END                                                               
   ELSE DO                                                             
          FIND_DSTYPE = POS('COBOL',DSVAR)                             
          ADDRESS ISPEXEC                                               
          X = LISTDSI("'"DSVAR"'")                                     
          IF SYSDSORG = "PO"  THEN                                     
             DSTYPE = 'PDS'                                             
           ELSE                                                         
             DSTYPE = '  '                                             
                                                                       
          IF FIND_DSTYPE > 0 & DSTYPE = 'PDS' THEN                     
           DO                                                           
              SAY DSVAR                                                 
              ADDRESS ISPEXEC                                           
                  "LMINIT DATAID("DATID") DATASET('"DSVAR"') ENQ(SHR)"       
              ADDRESS ISPEXEC                                           
                   "LMOPEN DATAID("DATID") OPTION(INPUT)"
   
              EOPDS     = 'N'                                           
                                                             
             DO WHILE EOPDS = 'N' ;                                     
                 ADDRESS ISPEXEC                                         
                   "LMMLIST DATAID("DATID") OPTION(LIST) STATS(NO)",       
                   "MEMBER(MEMNAME) PATTERN("MEMBFILTER")"                 
                IF RC >= 4 THEN DO                                     
                        EOPDS = 'Y'                                       
                       ADDRESS ISPEXEC                                   
                           "LMMLIST DATAID("DATID") OPTION(FREE)"           
                           ADDRESS ISPEXEC                                   
                          "LMCLOSE DATAID("DATID")"                         
                       LEAVE                                             
                END                                                     
                IDX = IDX + 1                                           
                MBRLIST.IDX = MEMNAME                                   
            END ;                                                     
         END                                                         
       END                           
    END                                 
  /*  ADDRESS ISPEXEC                 
        "LMFREE DATAID("DATID")" */   
 CALL WRITE                           
 EXIT                                 
 WRITE:                               
ADDRESS TSO                           
X = OUTTRAP("OA.")                     
                                       
ADDRESS TSO                           
 "FREE ALL"                                                             
                                                                       
 OUTPS3 = USR||'.'||APP||'.'||COM||'.'||LIST                           
                                                                       
                                                                       
 ADDRESS TSO DELETE "'"||OUTPS3||"'"                                   
                                                                       
 ADDRESS TSO                                                           
 "ALLOC DA('"OUTPS3"') FI(LOG) NEW LRECL(80) RECFM(F B) TRACKS",       
 " SPACE(10 10) BLKSIZE(1500) DSORG(PS)"                               
                                                                       
 ADDRESS TSO                                                           
 "EXECIO * DISKW  LOG (STEM MBRLIST.   FINIS)"                         
                                                                       
 ADDRESS TSO                                                           
 "FREE F(LOG)"                                                         
                                                                       
 ADDRESS TSO                                                           
 "ALLOC DA('"OUTPS3"') FI(LOG) SHR"                                     
                                                                       
 ADDRESS TSO                                                           
 "EXECIO * DISKR  LOG (STEM MBRLIST.   FINIS)"                         
                                                                       
 DO I =  1 TO  MBRLIST.0                                               
     SAY "MEMBER NAME ->" MBRLIST.I                                     
 END                                                                   
                                                                       
 ADDRESS TSO                                                           
 "FREE F(LOG)"                                                         
                                                                       
 RETURN
 


while searching (AA*) member pattern on dataset 1 , "LMMLIST command with Memberpattern" returns rc =4 as there is no member in it and it is fine but at the same time "LMMLIST option(FREE)" command fails with RC = 10 .

Again search starts on dataset2 and now the member is present but "LMMLIST withMemberpattern" fails with RC =4 even though Member is present .

Can any one help me / assist me that i have missed anything in code?

Thanks
Balaji K[/code]
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Wed Apr 03, 2013 10:23 pm
Reply with quote

see here how encapsulating TSO and ISPF calls make things much more readable and easy to understand

ibmmainframes.com/viewtopic.php?t=25947&highlight=lmmlist

I just refuse to debug hard to follow scripts scripts ( no offence meant ) icon_cool.gif
Back to top
View user's profile Send private message
daveporcelan

Active Member


Joined: 01 Dec 2006
Posts: 792
Location: Pennsylvania

PostPosted: Wed Apr 03, 2013 10:48 pm
Reply with quote

I believe as though you need this (without comments):
Code:
/*  ADDRESS ISPEXEC                 
        "LMFREE DATAID("DATID")" */   


someplace in your code. Maybe where you have it or maybe someplace else.

To be honest, five nested IF statements with LEAVE statements, is way too confusing for me.

The LMMLIST OPTION(FREE) releases the list storage, not the LMINIT allocation.

If you were to run this with a Trace it would help the debugging effort.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Wed Apr 03, 2013 11:30 pm
Reply with quote

too complicated to follow Your code ...

here ia a working and tested snippet

Code:
/*REXX - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
/*                                                                   */
/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
Trace "O"

Parse Source _sys _how _cmd .

If Sysvar(SYSISPF) \= "ACTIVE" Then Do
   Say left(_cmd,8)"- Ispf is not active. Command not executed"
   Exit 4
End

call $ispex "CONTROL ERRORS RETURN"

dslist.1 = "'ENRICO.TEST.C'"
dslist.2 = "'ENRICO.TEST.COB'"
dslist.3 = "'ENRICO.TEST.ERR'"
dslist.4 = "'ENRICO.TEST.PLI'"
dslist.0 = 4

do ds = 1 to dslist.0
   dsnm = dslist.ds
   /* LMINIT */
   ispserv = left("LMINIT",8)
   zRC = $ispex(ispserv "DATAID(ID) DATASET("dsnm") ENQ(SHR) ")
   If zRC \= 0 Then Do
      say      left(_cmd,8)"- RC("zRC") from" ispserv dsnm
      iterate
   End

   /* LMOPEN */
   ispserv = left("LMOPEN",8)
   zRC = $ispex(ispserv "DATAID("ID") OPTION(INPUT)" )
   If zRC \= 0 Then Do
      say      left(_cmd,8)"- RC("zRC") from" ispserv dsnm
      leave
   End

   /* LMMLIST variables initialization */
   member = ""
   filter = "A*"

   ispserv = left("LMMLIST",8)
   lmmlist = ispserv "DATAID("ID") OPTION (LIST)" || ,
             " MEMBER(MEMBER) PATTERN("FILTER")"
   
   /* LMMLIST loop */
   do while ($ispex(lmmlist) = 0 )
      say      left(_cmd,8)"- Processing "left(member,8) || ,
                              " From Dataset("dsnm") "
   end

   /* LMCLOSE */
   ispserv = left("LMCLOSE",8)
   zRC = $ispex(ispserv "DATAID("ID") ")
   If zRC \= 0 Then Do
      say      left(_cmd,8)"- RC("zRC") from" ispserv dsnm
      leave
   End

   /* LMFREE */
   ispserv = left("LMFREE",8)
   zRC = $ispex(ispserv "DATAID("ID") ")
   If zRC \= 0 Then Do
      say      left(_cmd,8)"- RC("zRC") from" ispserv dsnm
   End

End

Exit

/*REXX - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
/*                                                                   */
/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
$ispex:
   isp_0tr = trace("O")
   Address ISPEXEC arg(1)
   isp_0rc = rc
   trace value(isp_0tr)
   return isp_0rc

/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
/*                                                                   */
/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
$isred:
   isr_0tr = trace("O")
   Address ISREDIT arg(1)
   isr_0rc = rc
   trace value(isr_0tr)
   return isr_0rc

/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
/*                                                                   */
/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
$tsoex:
   tso_0tr = trace("O")
   Address TSO arg(1)
   tso_0rc = rc
   trace value(tso_0tr)
   return tso_0rc

 
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2546
Location: Silicon Valley

PostPosted: Thu Apr 04, 2013 5:12 am
Reply with quote

Code:
"LMINIT DATAID("DATID") DATASET('"DSVAR"') ENQ(SHR)"

It might work for you in this instance, but I think the DATID should be the name of the variable rather than the resolved value of the variable. It would fail if it was in a loop.


Quote:
too complicated to follow Your code ...

I also agree. Perhaps you can write a shorter program that does only the LMINIT, LMOPEN, LMCLOSE and LMFREE so you can learn the proper usage and then incorporate into your larger program.
Back to top
View user's profile Send private message
balaji81_k

Active User


Joined: 29 Jun 2005
Posts: 155

PostPosted: Thu Apr 04, 2013 10:24 am
Reply with quote

Hi ,

I have verified your recommened rexx script and it is found serach is limited with respect to datasets , but if you see my rexx script is not limited to the datasets , can you refer me with any other sample.

Thanks
Balaji K
Back to top
View user's profile Send private message
balaji81_k

Active User


Joined: 29 Jun 2005
Posts: 155

PostPosted: Thu Apr 04, 2013 10:39 am
Reply with quote

Hi,

I have writen a simple small rexx program for LMMIINIT, OPEN, CLOSE , FREE and i passed the datasets as input which actually receives RC =8, 10, 4 in the routine which i have posted earlier.

Code:

/* TRACE ?R */                                                   
  DSVAR ='AA.TEST.COBOLA'                                   
  /* TRACE ?R */                                                 
  ADDRESS ISPEXEC                                               
   "LMINIT DATAID("DATID") DATASET('"DSVAR"') ENQ(SHR)"         
   SAY RC                                                       
  ADDRESS ISPEXEC                                               
   "LMOPEN DATAID("DATID") OPTION(INPUT)"                       
   SAY RC                                                       
  ADDRESS ISPEXEC                                               
   "LMMLIST DATAID("DATID") OPTION(LIST) STATS(NO)"             
   SAY RC                                                       
  ADDRESS ISPEXEC                                               
   "LMCLOSE DATAID("DATID")"                                     
   SAY RC                                                       
  ADDRESS ISPEXEC                                               
   "LMFREE DATAID("DATID")"                                     
   SAY RC                                                       
  EXIT                                                           


All RC = 0 are received for all the input datasets , not sure where the logic issue which i have made in my previous code which i have posted earlier ,

Pedro can you help me ?

Thanks
Balaji K
Back to top
View user's profile Send private message
balaji81_k

Active User


Joined: 29 Jun 2005
Posts: 155

PostPosted: Thu Apr 04, 2013 11:21 am
Reply with quote

Hi Enrico,

I have verified your sample and i just need to change some logic in it to collect the datasets from the pattern given by the user . Its is very good example , thanks for the code . icon_biggrin.gif

Will try along with my code changes in your sample and will let you if any isssues i have faced .

Thanks
Balaji K
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Thu Apr 04, 2013 12:23 pm
Reply with quote

Quote:
I have verified your recommened rexx script and it is found serach is limited with respect to datasets , but if you see my rexx script is not limited to the datasets , can you refer me with any other sample



the purpose was to show a better and WORKING way of writing the process
related only to the LMMLIST part

and here is a better way of coding the DSLIST loop

Code:

 000013 call $ispex "CONTROL ERRORS RETURN"
 000014
 000015 dslevl = "ENRICO"
 000016 /* LMDINIT */
 000017 ispserv = left("LMDINIT",8)
 000018 zRC = $ispex(ispserv "LISTID(LSID) LEVEL("dslevl") ")
 000019 If zRC \= 0 Then Do
 000020    say left(_cmd,8)"- RC("zRC") from" ispserv dslevl
 000021    exit
 000022 End
 000023
 000024 dsname  = ""
 000025 ispserv = left("LMDLIST",8)
 000026 lmdlist = ispserv "LISTID("lsid") OPTION (LIST) STATS(YES)" ||,
 000027                   " DATASET(DSNAME) "
 000028 do while ($ispex(lmdlist) = 0 )
 000029    /* skip the alias */
 000030    if strip(translate(zdlvol))  = "*ALIAS" then ,
 000031       iterate
 000032
 000033    /* skip NON PO and NON PO-E */
 000034    if wordpos(translate(zdldsorg),"PO PO-E") = 0 then,
 000035       iterate
 000036
 000037    say left(_cmd,8)"- Found      "left(zdldsorg,4) || ,
 000038                    "  Dataset("dsname") "
 000039    /* skip if NON COBOL */
 000040    if pos("COB",dsname) = 0 then ,
 000041       iterate
 000042
 000043    say left(_cmd,8)"- Processing "left(zdldsorg,4) || ,
 000044                    "  Dataset("dsname") "
 000045 end
 000046
 000047 /* LMDFREE */
 000048 ispserv = left("LMDFREE",8)
 000049 zRC = $ispex(ispserv "LISTID("lsid") ")
 000050 If zRC \= 0 Then Do
 000051    say left(_cmd,8)"- RC("zRC") from" ispserv
 000052 End
 000053
 000054
 


why is better ???
it does not indent too many nesting levels 1 only here
checks for an alias
does not use LISTDSI, but relies on the Z variables provided by ISPF

takes into account PDSe

and if You add the LMMLIST pressing it will nest only 1 more

I agree with PEDRO
the LMINIT DATAID should be a NAME, not a value

that' s why the second time it fails
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2546
Location: Silicon Valley

PostPosted: Thu Apr 04, 2013 6:41 pm
Reply with quote

Code:
"LMINIT DATAID("DATID") DATASET('"DSVAR"') ENQ(SHR)"

Quote:
the DATID should be the name of the variable rather than the resolved value of the variable

I meant that you should remove one pair of quotes:
Code:
"LMINIT DATAID(DATID) DATASET('"DSVAR"') ENQ(SHR)"
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Thu Apr 04, 2013 6:53 pm
Reply with quote

I wonder why people developing ISPF applications have not learned to use
the ISPF MODEL command

anyway the ISPF MODEL command is misleading or better WRONG
only the last code snippet is RIGHT
together with the description in the note lines

from the MODEL LMINIT command
Code:
  EDIT       ENRICO.ISPF.EXEC(MF002) - 01.20                 Columns 00001 00072
 Command ===>                                                  Scroll ===> CSR
 ****** ***************************** Top of Data ******************************
 000001   'LMINIT DATAID('dataidvar') PROJECT('project') GROUP1('group1'),
 000002           GROUP2('group2') GROUP3('group3') GROUP4('group4'),
 000003           TYPE('type') PASSWORD('passwrd') ENQ(SHR) ORG('org-var')'
 =NOTE=      or
 000004   'LMINIT DATAID('dataidvar') DATASET('dsname') VOLUME('serial'),
 000005           PASSWORD('passwrd')  ENQ(SHR)  ORG('org-var')'
 =NOTE=      or
 000006   'LMINIT DATAID('dataidvar') DDNAME('ddname') PASSWORD('passwrd'),
 000007           ENQ(SHR) ORG('org-var')'
 =NOTE=      or for VM
 000008   'LMINIT DATAID('dataidvar') PROJECT('project') GROUP1('group1'),
 000009           GROUP2('group2') GROUP3('group3') GROUP4('group4'),
 000010           TYPE('type') OWNER('owner-id') VADDR('vda'),
 000011           LAM('lm') RPSWD('rpasswrd') UPSWD('upasswrd'),
 000012           ENQ(SHR) ORG('org-var') RECFM('fm'),
 000013           LRECL('lrl')'
 =NOTE=      or
 000014   'LMINIT DATAID(DATAIDVAR) FILE('file-id') OWNER('owner-id'),
 000015           VADDR('vda') LAM('lm') RPSWD('rpasswrd') UPSWD('upasswrd'),
 000016           ENQ(SHR) ORG('org-var')'
 =NOTE=
 =NOTE=         DATAIDVAR  - The name of the variable into which the data-id
 =NOTE=                      associated with the data set or file is to be
 =NOTE=                      stored.
 =NOTE=         project    - Optional, first level qualifier of an ISPF library
 =NOTE=                      or an MVS data set with a three-level qualified
 =NOTE=                      data set name.
 =NOTE=         group1     - Optional, second level qualifier of an ISPF library
 =NOTE=                      or an MVS data set with a three-level qualified
 =NOTE=                      data set name.
 =NOTE=         group2     - Optional, designates the second level qualifier of
 =NOTE=                      an ISPF library in a concatenation sequence.
 =NOTE=         group3     - Optional, designates the second level qualifier of
 =NOTE=                      an ISPF library in a concatenation sequence.
 =NOTE=         group3     - Optional, designates the second level qualifier of
 =NOTE=                      an ISPF library in a concatenation sequence.
 =NOTE=         type       - Optional, third level qualifier of an ISPF library
 =NOTE=                      or of an MVS data set with a three-level qualified
 =NOTE=                      data set name.
 =NOTE=         dsname     - Optional, name of an existing MVS partitioned or
 =NOTE=                      sequential data set.
 =NOTE=         ddname     - Optional, data set definition name of a data set
 =NOTE=                      that is already allocated to the TSO user prior to
 =NOTE=                      invocation of LMINIT service.
 =NOTE=         serial     - Optional, serial number of the DASD volume on which
 =NOTE=                      the MVS data set resides.
 =NOTE=         passwrd    - Optional, MVS password of the data set.
 =NOTE=         ENQ        - Optional, choose one.
 =NOTE=           SHR      - Default, existing data set or file may be shared.
 =NOTE=           EXCLU    - Requirement for exclusive use of existing data set
 =NOTE=                      or file.
 =NOTE=           SHRW     - Permits a 'shared write' of a library.
 =NOTE=           MOD      - More records are to be added to end of the data set
 =NOTE=                      or file.  The data set must be sequential.
 =NOTE=         org-var    - Name of the variable into which the organization of
 =NOTE=                      the data set or file is stored.
 =NOTE=                      PO - Data set or file is partitioned.
 =NOTE=                      PS - Data set or file is physical sequential.
 =NOTE=         file-id    - Optional, the name of the existing CMS file.
 =NOTE=         owner-id   - Optional, applies to file parameter or to an ISPF
 =NOTE=                      library not on user's "a" disk.  (VM Only)
 =NOTE=                      The logon id of the owner of the file.
 =NOTE=         vda        - Optional, applies to file parameter or to an ISPF
 =NOTE=                      library not on user's "a" disk.  (VM only)
 =NOTE=                      The 3 character address of the minidisk.
 =NOTE=         lm         - Optional, applies to file parameter or to an ISPF
 =NOTE=                      library not on user's "a" disk.  (VM only)
 =NOTE=                      The 2 character link access mode.
 =NOTE=         rpasswrd   - Optional, applies to file parameter or to an ISPF
 =NOTE=                      library that is not on user's "a" disk. (VM only)
 =NOTE=                      The read password.
 =NOTE=         upasswrd   - Optional, applies to file parameter or to an ISPF
 =NOTE=                      library that is not on user's "a" disk.  (VM only)
 =NOTE=                      The update password.
 =NOTE=         fm         - Optional, specifies the record format of a new
 =NOTE=                      member of an ISPF library that is a collection of
 =NOTE=                      sequential files.  Used only for first LMPUT.
 =NOTE=                      Default is recfm of the ISPF library.  (VM only)
 =NOTE=         lrl        - Optional, specifies the logical record length, in
 =NOTE=                      bytes, of a new member of an ISPF library that is
 =NOTE=                      a collection of sequential files.  Used only for
 =NOTE=                      the first LMPUT.  Default is lrecl of library.
 =NOTE=                      (VM only)
 =NOTE=
 =NOTE=       EXAMPLE: ADDRESS ISPEXEC
 =NOTE=                'LMINIT DATAID(MYDD) PROJECT(ISPF),
 =NOTE=                 GROUP1(TESTLIB1) GROUP2(TESTLIB2),
 =NOTE=                 GROUP3(TESTLIB3) GROUP4(TESTLIB4) TYPE(PLI)'
 =NOTE=      or
 =NOTE=                'LMINIT DATAID(MYDD) DSNAME(DATASET1),
 =NOTE=                 VOLUME(VOL123) ENQ(SHR)'
 =NOTE=      or for VM
 =NOTE=                'LMINIT DATAID(MYDD) PROJECT(ISPF),
 =NOTE=                 GROUP1(TESTLIB1) GROUP2(TESTLIB2),
 =NOTE=                 GROUP3(TESTLIB3) GROUP4(TESTLIB4) TYPE(PLI),
 =NOTE=                 RECFM(F) LRECL(80) ENQ(SHR)'
 =NOTE=      or
 =NOTE=                'LMINIT DATAID(MYDD) FILE(CMS EXEC A),
 =NOTE=                 RPSWD('rdpass') ENQ(SHR) ORG(FILEORG)'


can anybody with a recent Z/os 1.12/1.13 check?


this works anyway

Code:
 000024    idv   = "ID"
 000025    ispserv = left("LMINIT",8)
 000026    zRC = $ispex(ispserv "DATAID("idv") DATASET("dsnm") ENQ(SHR) ")
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2546
Location: Silicon Valley

PostPosted: Thu Apr 04, 2013 11:27 pm
Reply with quote

Quote:
can anybody with a recent Z/os 1.12/1.13 check?

It is the same on z/OS 1.13.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Thu Apr 04, 2013 11:28 pm
Reply with quote

then it should be APARed icon_cool.gif
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2546
Location: Silicon Valley

PostPosted: Thu Apr 04, 2013 11:31 pm
Reply with quote

Quote:
only the last code snippet is RIGHT

which is:
Code:
 'LMINIT DATAID(DATAIDVAR) FILE('file-id') OWNER('owner-id'),

I have not tried it, but think the variable name has to meet ISPF naming rules. The example is too long. This snippet is also wrong, though for a different reason.
Back to top
View user's profile Send private message
balaji81_k

Active User


Joined: 29 Jun 2005
Posts: 155

PostPosted: Mon Apr 08, 2013 10:00 am
Reply with quote

Many thanks to Both of them for sharing your valuable knowledge to us.

Thanks
Balaji K
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts RACF - Rebuild SETROPTS command which... All Other Mainframe Topics 3
No new posts Routing command Address SDSF to other... TSO/ISPF 2
No new posts DTL - how to define key with stacked ... TSO/ISPF 3
No new posts LTJ command CA Products 4
No new posts Query on edit primary command CLIST & REXX 5
Search our Forums:

Back to Top