Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

FLMLNK SCLM

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IBM Tools
View previous topic :: :: View next topic  
Author Message
Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1529
Location: Andromeda Galaxy

PostPosted: Tue Jun 14, 2011 5:13 pm    Post subject: FLMLNK SCLM
Reply with quote

Hi,

We have SCLM and I am trying to build a component type say source through rexx.
I tried invoking FLMLNK and it fails

I just passed on the values need to the following command

Code:


"FLMLNK("SERVICE","PROJECT","SCLM_ID","SLMLIB",",
           SLMLIB2","SLMLIB3","SLMLIB4","           ,
           SLMTYP","SLMMEM","USER","ALL_HIER","     ,
           CONFIRM","MIX","WS","                    ,
           PRESERVE","AUTHCODE","CHGCODE","         ,
           MSGE","RPT","LIST","EXT");"



But It failed with

INVALID COMMAND NAME SYNTAX
+++ RC(-3) +++

Can you please let me know where I would I have went wrong

Thanks in advance
Back to top
View user's profile Send private message

anatol

New User


Joined: 20 May 2010
Posts: 99
Location: canada

PostPosted: Tue Jun 14, 2011 6:13 pm    Post subject: Reply to: FLMLNK SCLM
Reply with quote

Do you have
ADDRESS ISPEXEC

before this command?
Back to top
View user's profile Send private message
Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1529
Location: Andromeda Galaxy

PostPosted: Tue Jun 14, 2011 6:19 pm    Post subject:
Reply with quote

I believe thats not needed for this one
Back to top
View user's profile Send private message
anatol

New User


Joined: 20 May 2010
Posts: 99
Location: canada

PostPosted: Tue Jun 14, 2011 6:25 pm    Post subject: Reply to: FLMLNK SCLM
Reply with quote

Usually I've used FLMLNK for PL/I , for rexx I've used the command form in ADDRESS TSO , like:
"FLMCMD PROMOTE,"FLL",,N,R,,RPT1,PROMEXIT,"
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2422
Location: Netherlands, Amstelveen

PostPosted: Tue Jun 14, 2011 6:26 pm    Post subject:
Reply with quote

If you are using FLMLNK, you must pad each parameter to the maximum length. To do so, you must insert blank spaces so that each parameter takes up exactly the maximum amount of space allotted for it.
Back to top
View user's profile Send private message
Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1529
Location: Andromeda Galaxy

PostPosted: Tue Jun 14, 2011 6:42 pm    Post subject:
Reply with quote

I changed to FLMCMD and got some SCLM messages and trying to fix them.Will let you know once done.

Thanks.
Back to top
View user's profile Send private message
Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1529
Location: Andromeda Galaxy

PostPosted: Wed Jun 15, 2011 3:18 pm    Post subject:
Reply with quote

Hi please find the error I along with trance output and code

Please help me out if I had left out anything


Trace Output

Code:



      3 *-* CALL Init
      7 *-*  INIT:
      9 *-*  PROJECT    = 'DEVSCLM'
        >L>    "DEVSCLM"
 ***
     10 *-*  SLMLIB     = 'PRKRTE  '
        >L>    "PRKRTE  "
     11 *-*  SLMLIB2    = '        '
        >L>    "        "
     12 *-*  SLMLIB3    = '        '
        >L>    "        "
     13 *-*  SLMLIB4    = '        '
        >L>    "        "
     14 *-*  SLMTYP     = 'DB2PARM'
        >L>    "DB2PARM"
     15 *-*  SLMMEM     = 'PRKR10M '
        >L>    "PRKR10M "
     16 *-*  SERVICE    = 'BUILD   '
        >L>    "BUILD   "
     17 *-*  DDNAME     = 'BUILD   '
        >L>    "BUILD   "
     18 *-*  USER       = 'PRKRTE  '
        >L>    "PRKRTE  "
     19 *-*  ALL_HIER   = 'N'
        >L>    "N"
     20 *-*  IMAC       = '        '
        >L>    "        "
     21 *-*  PROF       = '        '
 ***
        >L>    "        "
     22 *-*  CONFIRM    = 'N'
        >L>    "N"
     23 *-*  MIX        = 'N'
        >L>    "N"
     24 *-*  WS         = 'Y'
        >L>    "Y"
     25 *-*  PRESERVE   = 'PRKRTE'
        >L>    "PRKRTE"
     26 *-*  AUTHCODE   = ' '
        >L>    " "
     27 *-*  CHGCODE    = '    '
        >L>    "    "
     28 *-*  SCLM_ID    = '    '
        >L>    "    "
     29 *-*  MSGE       = 'BLDMSGS'
        >L>    "BLDMSGS"
     30 *-*  RPT        = 'BLDREPT'
        >L>    "BLDREPT"
     31 *-*  LIST       = 'BLDLIST'
        >L>    "BLDLIST"
     32 *-*  EXT        = 'BLDEXIT'
        >L>    "BLDEXIT"
     34 *-*  FLMCMD_DDN.1 = 'BLDMSGS'
        >L>    "BLDMSGS"
     35 *-*  flmcmd_type.1 = 'MESSAGES'
        >L>    "MESSAGES"
     36 *-*  FLMCMD_DDN.2 = 'BLDREPT'
        >L>    "BLDREPT"
     37 *-*  flmcmd_type.2 = 'REPORT'
        >L>    "REPORT"
     38 *-*  FLMCMD_DDN.3 = 'BLDEXIT'
        >L>    "BLDEXIT"
     39 *-*  FLMCMD_TYPE.3 = 'BLDEXIT'
        >L>    "BLDEXIT"
     40 *-*  flmcmd_attr.3 = 'DSORG(PS) RECFM(F,B) LRECL(160) SPACE(10,10)'
        >L>    "DSORG(PS) RECFM(F,B) LRECL(160) SPACE(10,10)"
     41 *-*  flmcmd_attr.3 = flmcmd_attr.3 'BLKSIZE(3200) MOD'
        >V>    "DSORG(PS) RECFM(F,B) LRECL(160) SPACE(10,10)"
        >L>    "BLKSIZE(3200) MOD"
        >O>    "DSORG(PS) RECFM(F,B) LRECL(160) SPACE(10,10) BLKSIZE(3200) MOD"
     42 *-*  FLMCMD_DDN.4 = 'BLDLIST'
        >L>    "BLDLIST"
     43 *-*  flmcmd_type.4 = 'LISTINGS'
        >L>    "LISTINGS"
     44 *-*  flmcmd_type.0 = 4
 ***
        >L>    "4"
     45 *-*  RETURN
      4 *-* CALL Alloc_ds
     47 *-*  Alloc_ds:
     48 *-*  /******************************************************************
 ****/
     49 *-*  /* Allocate data sets for SCLM build
    */
     50 *-*  /******************************************************************
 ****/
     51 *-*  flmds_rc = 0
        >L>    "0"
     52 *-*  Do l = 1 to flmcmd_type.0                       /* loop thru datase
 ts */
        >L>    "1"
        >V>    "4"
     53 *-*   "ALLOC FI("flmcmd_ddn.l") DA(*)"
        >L>     "ALLOC FI("
        >C>     "FLMCMD_DDN.1"
        >V>     "BLDMSGS"
        >O>     "ALLOC FI(BLDMSGS"
        >L>     ") DA(*)"
        >O>     "ALLOC FI(BLDMSGS) DA(*)"
 ***
     55 *-*   /* already created        */
     56 *-*  End                      /* end loop thru flmcmd_type
    */
     52 *-*  Do l = 1 to flmcmd_type.0                       /* loop thru datase
 ts */
     53 *-*   "ALLOC FI("flmcmd_ddn.l") DA(*)"
        >L>     "ALLOC FI("
        >C>     "FLMCMD_DDN.2"
        >V>     "BLDREPT"
        >O>     "ALLOC FI(BLDREPT"
        >L>     ") DA(*)"
        >O>     "ALLOC FI(BLDREPT) DA(*)"
     55 *-*   /* already created        */
     56 *-*  End                      /* end loop thru flmcmd_type
    */
     52 *-*  Do l = 1 to flmcmd_type.0                       /* loop thru datase
 ts */
     53 *-*   "ALLOC FI("flmcmd_ddn.l") DA(*)"
        >L>     "ALLOC FI("
        >C>     "FLMCMD_DDN.3"
        >V>     "BLDEXIT"
        >O>     "ALLOC FI(BLDEXIT"
        >L>     ") DA(*)"
 ***
        >O>     "ALLOC FI(BLDEXIT) DA(*)"
     55 *-*   /* already created        */
     56 *-*  End                      /* end loop thru flmcmd_type
    */
     52 *-*  Do l = 1 to flmcmd_type.0                       /* loop thru datase
 ts */
     53 *-*   "ALLOC FI("flmcmd_ddn.l") DA(*)"
        >L>     "ALLOC FI("
        >C>     "FLMCMD_DDN.4"
        >V>     "BLDLIST"
        >O>     "ALLOC FI(BLDLIST"
        >L>     ") DA(*)"
        >O>     "ALLOC FI(BLDLIST) DA(*)"
     55 *-*   /* already created        */
     56 *-*  End                      /* end loop thru flmcmd_type
    */
     52 *-*  Do l = 1 to flmcmd_type.0                       /* loop thru datase
 ts */
     57 *-*  Return
      5 *-* CALL Process
     59 *-*  PROCESS :
     60 *-*  /*"FLMCMD "SERVICE","PROJECT","SCLM_ID","SLMLIB",",
                           SLMTYP","SLMMEM","USER","ALL_HIER","     ,
 ***
                            CONFIRM","MIX","WS","                    ,
                             PRESERVE","                              ,
                              MSGE","RPT","LIST","EXT */
     65 *-*  "FLMCMD "SERVICE","PROJECT","SCLM_ID","SLMLIB",",
                         SLMTYP","SLMMEM","USER","ALL_HIER","     ,
                          CONFIRM","MIX","WS","                    ,
                           PRESERVE","                              ,
                            MSGE","RPT","LIST","EXT
        >L>    "FLMCMD "
        >V>    "BUILD   "
        >O>    "FLMCMD BUILD   "
        >L>    ","
        >O>    "FLMCMD BUILD   ,"
        >V>    "DEVSCLM"
        >O>    "FLMCMD BUILD   ,DEVSCLM"
        >L>    ","
        >O>    "FLMCMD BUILD   ,DEVSCLM,"
        >V>    "    "
        >O>    "FLMCMD BUILD   ,DEVSCLM,    "
        >L>    ","
        >O>    "FLMCMD BUILD   ,DEVSCLM,    ,"
        >V>    "PRKRTE  "
        >O>    "FLMCMD BUILD   ,DEVSCLM,    ,PRKRTE  "
 ***
        >L>    ","
        >O>    "FLMCMD BUILD   ,DEVSCLM,    ,PRKRTE  ,"
        >V>    "DB2PARM"
        >O>    "FLMCMD BUILD   ,DEVSCLM,    ,PRKRTE  , DB2PARM"
        >L>    ","
        >O>    "FLMCMD BUILD   ,DEVSCLM,    ,PRKRTE  , DB2PARM,"
        >V>    "PRKR10M "
        >O>    "FLMCMD BUILD   ,DEVSCLM,    ,PRKRTE  , DB2PARM,PRKR10M "
        >L>    ","
        >O>    "FLMCMD BUILD   ,DEVSCLM,    ,PRKRTE  , DB2PARM,PRKR10M ,"
        >V>    "PRKRTE  "
        >O>    "FLMCMD BUILD   ,DEVSCLM,    ,PRKRTE  , DB2PARM,PRKR10M ,PRKRTE
 "
        >L>    ","
        >O>    "FLMCMD BUILD   ,DEVSCLM,    ,PRKRTE  , DB2PARM,PRKR10M ,PRKRTE
 ,"
        >V>    "N"
        >O>    "FLMCMD BUILD   ,DEVSCLM,    ,PRKRTE  , DB2PARM,PRKR10M ,PRKRTE
 ,N"
        >L>    ","
        >O>    "FLMCMD BUILD   ,DEVSCLM,    ,PRKRTE  , DB2PARM,PRKR10M ,PRKRTE
 ,N,"
        >V>    "N"
 ***
        >O>    "FLMCMD BUILD   ,DEVSCLM,    ,PRKRTE  , DB2PARM,PRKR10M ,PRKRTE
 ,N, N"
        >L>    ","
        >O>    "FLMCMD BUILD   ,DEVSCLM,    ,PRKRTE  , DB2PARM,PRKR10M ,PRKRTE
 ,N, N,"
        >V>    "N"
        >O>    "FLMCMD BUILD   ,DEVSCLM,    ,PRKRTE  , DB2PARM,PRKR10M ,PRKRTE
 ,N, N,N"
        >L>    ","
        >O>    "FLMCMD BUILD   ,DEVSCLM,    ,PRKRTE  , DB2PARM,PRKR10M ,PRKRTE
 ,N, N,N,"
        >V>    "Y"
        >O>    "FLMCMD BUILD   ,DEVSCLM,    ,PRKRTE  , DB2PARM,PRKR10M ,PRKRTE
 ,N, N,N,Y"
        >L>    ","
        >O>    "FLMCMD BUILD   ,DEVSCLM,    ,PRKRTE  , DB2PARM,PRKR10M ,PRKRTE
 ,N, N,N,Y,"
        >V>    "PRKRTE"
        >O>    "FLMCMD BUILD   ,DEVSCLM,    ,PRKRTE  , DB2PARM,PRKR10M ,PRKRTE
 ,N, N,N,Y, PRKRTE"
        >L>    ","
        >O>    "FLMCMD BUILD   ,DEVSCLM,    ,PRKRTE  , DB2PARM,PRKR10M ,PRKRTE
 ,N, N,N,Y, PRKRTE,"
 ***

        >V>    "BLDMSGS"
        >O>    "FLMCMD BUILD   ,DEVSCLM,    ,PRKRTE  , DB2PARM,PRKR10M ,PRKRTE
 ,N, N,N,Y, PRKRTE, BLDMSGS"
        >L>    ","
        >O>    "FLMCMD BUILD   ,DEVSCLM,    ,PRKRTE  , DB2PARM,PRKR10M ,PRKRTE
 ,N, N,N,Y, PRKRTE, BLDMSGS,"
        >V>    "BLDREPT"
        >O>    "FLMCMD BUILD   ,DEVSCLM,    ,PRKRTE  , DB2PARM,PRKR10M ,PRKRTE
 ,N, N,N,Y, PRKRTE, BLDMSGS,BLDREPT"
        >L>    ","
        >O>    "FLMCMD BUILD   ,DEVSCLM,    ,PRKRTE  , DB2PARM,PRKR10M ,PRKRTE
 ,N, N,N,Y, PRKRTE, BLDMSGS,BLDREPT,"
        >V>    "BLDLIST"
        >O>    "FLMCMD BUILD   ,DEVSCLM,    ,PRKRTE  , DB2PARM,PRKR10M ,PRKRTE
 ,N, N,N,Y, PRKRTE, BLDMSGS,BLDREPT,BLDLIST"
        >L>    ","
        >O>    "FLMCMD BUILD   ,DEVSCLM,    ,PRKRTE  , DB2PARM,PRKR10M ,PRKRTE
 ,N, N,N,Y, PRKRTE, BLDMSGS,BLDREPT,BLDLIST,"
        >V>    "BLDEXIT"
        >O>    "FLMCMD BUILD   ,DEVSCLM,    ,PRKRTE  , DB2PARM,PRKR10M ,PRKRTE
 ,N, N,N,Y, PRKRTE, BLDMSGS,BLDREPT,BLDLIST,BLDEXIT"
 FLM42100 - USER DEFINED DDNAME:  BLDMSGS FOR BUILD MESSAGE NOT ALLOCATED
 FLM42000 - BUILD PROCESSOR INITIATED - 11:38:20 ON 2011/06/15
 ***

 FLM42004 - INVALID INPUT PARAMETER
            GROUP                 - PRKRTE
            TYPE                  -  DB2PARM
            MEMBER                - PRKR10M
            USERID                - PRKRTE
            BUILD MODE            -  N
            BUILD SCOPE           - N
            ERROR LISTINGS ONLY   - N
            REPORT REQUEST        - Y
            PREFIX USERID         -  PRKRTE
 FLM41002 - ERROR OCCURRED DURING INITIALIZATION
 FLM46000 - BUILD PROCESSOR COMPLETED - 11:38:20 ON 2011/06/15
 FLM87107 - BUILD FAILED FOR MEMBER PRKR10M AT 11:38:20, CODE: 8
        +++ RC(8) +++
 ***






Code

Code:


/*REXX*/
TRACE i
CALL Init
CALL Alloc_ds
CALL Process
EXIT
INIT:

 PROJECT    = 'DEVSCLM'
 SLMLIB     = 'PRKRTE  '
 SLMLIB2    = '        '
 SLMLIB3    = '        '
 SLMLIB4    = '        '
 SLMTYP     = 'DB2PARM'
 SLMMEM     = 'PRKR10M '
 SERVICE    = 'BUILD   '
DDNAME     = 'BUILD   '
 USER       = 'PRKRTE  '
 ALL_HIER   = 'N'
 IMAC       = '        '
 PROF       = '        '
 CONFIRM    = 'N'
 MIX        = 'N'
 WS         = 'Y'
 PRESERVE   = 'PRKRTE'
 AUTHCODE   = ' '
 CHGCODE    = '    '
 SCLM_ID    = '    '
 MSGE       = 'BLDMSGS'
 RPT        = 'BLDREPT'
 LIST       = 'BLDLIST'
 EXT        = 'BLDEXIT'

FLMCMD_DDN.1 = 'BLDMSGS'
flmcmd_type.1 = 'MESSAGES'
FLMCMD_DDN.2 = 'BLDREPT'
flmcmd_type.2 = 'REPORT'
FLMCMD_DDN.3 = 'BLDEXIT'
FLMCMD_TYPE.3 = 'BLDEXIT'
flmcmd_attr.3 = 'DSORG(PS) RECFM(F,B) LRECL(160) SPACE(10,10)'
flmcmd_attr.3 = flmcmd_attr.3 'BLKSIZE(3200) MOD'
FLMCMD_DDN.4 = 'BLDLIST'
flmcmd_type.4 = 'LISTINGS'
flmcmd_type.0 = 4
RETURN

Alloc_ds:
/**********************************************************************/
/* Allocate data sets for SCLM build                                  */
/**********************************************************************/
flmds_rc = 0
Do l = 1 to flmcmd_type.0                       /* loop thru datasets */
    "ALLOC FI("flmcmd_ddn.l") DA(*)"

                                            /* already created        */
End                      /* end loop thru flmcmd_type                 */
Return

PROCESS :
/*"FLMCMD "SERVICE","PROJECT","SCLM_ID","SLMLIB",",
             SLMTYP","SLMMEM","USER","ALL_HIER","     ,
             CONFIRM","MIX","WS","                    ,
             PRESERVE","                              ,
             MSGE","RPT","LIST","EXT */
  "FLMCMD "SERVICE","PROJECT","SCLM_ID","SLMLIB",",
             SLMTYP","SLMMEM","USER","ALL_HIER","     ,
             CONFIRM","MIX","WS","                    ,
             PRESERVE","                              ,
             MSGE","RPT","LIST","EXT

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

Global Moderator


Joined: 27 Oct 2009
Posts: 2422
Location: Netherlands, Amstelveen

PostPosted: Wed Jun 15, 2011 3:31 pm    Post subject:
Reply with quote

Code:

/*"FLMCMD "SERVICE","PROJECT","SCLM_ID","SLMLIB",",
             SLMTYP","SLMMEM","USER","ALL_HIER","     ,
             CONFIRM","MIX","WS","                    ,
             PRESERVE","                              ,
             MSGE","RPT","LIST","EXT */


I miss a lot of /* and */ here.
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 1712
Location: UK

PostPosted: Wed Jun 15, 2011 3:32 pm    Post subject:
Reply with quote

Another case of assuming somthing was done OK. You do a file allocation but do not check the return code. This message was written:
Code:
FLM42100 - USER DEFINED DDNAME:  BLDMSGS FOR BUILD MESSAGE NOT ALLOCATED

It does help to read ALL messages and check them out.
Back to top
View user's profile Send private message
Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1529
Location: Andromeda Galaxy

PostPosted: Wed Jun 15, 2011 4:44 pm    Post subject:
Reply with quote

Hi Nic,

Thanks for your response.

I had tried that aswell just pasting the snapshot of the TRACE

Code:


     53 *-*   "ALLOC FI("flmcmd_ddn.l") DA(*)"
        >L>     "ALLOC FI("
        >C>     "FLMCMD_DDN.1"
        >V>     "BLDMSGS"
        >O>     "ALLOC FI(BLDMSGS"
        >L>     ") DA(*)"
        >O>     "ALLOC FI(BLDMSGS) DA(*)"
 ***

     54 *-*   If Rc ¬= 0
        >V>     "0"
        >L>     "0"
        >O>     "0"
     60 *-*    /* already created        */
     61 *-*  End                      /* end loop thru flmcmd_type
    */

[/code]
Back to top
View user's profile Send private message
anatol

New User


Joined: 20 May 2010
Posts: 99
Location: canada

PostPosted: Wed Jun 15, 2011 6:32 pm    Post subject: Reply to: FLMLNK SCLM
Reply with quote

Yoy have wrong parameter for build processor.
BUILD SCOPE - N
Should be one of this:
C|F|R|U
Indicates the build mode (C=conditional, F=forced, R=report, U=unconditional)
Back to top
View user's profile Send private message
anatol

New User


Joined: 20 May 2010
Posts: 99
Location: canada

PostPosted: Wed Jun 15, 2011 6:48 pm    Post subject: Reply to: FLMLNK SCLM
Reply with quote

Sorry, BUILD MODE - N
not scope
Back to top
View user's profile Send private message
Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1529
Location: Andromeda Galaxy

PostPosted: Wed Jun 15, 2011 8:59 pm    Post subject:
Reply with quote

The parms passed were not in order i changed and it worked

Thanks all :-)
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IBM Tools All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts SCLM error in RDz 9.1 anatol All Other Mainframe Topics 11 Wed Oct 22, 2014 8:56 pm
No new posts SCLM Compiler options venuhunev IBM Tools 1 Thu May 12, 2011 11:13 pm
No new posts SCLM Promotion sakthisiga All Other Mainframe Topics 2 Thu Mar 17, 2011 7:47 am
No new posts SCLM build processor error as4578 IBM Tools 16 Tue Dec 14, 2010 11:24 am
No new posts SCLM FLM04030 - ERROR OPENING PROJECT... shanbalasay JCL & VSAM 2 Thu May 27, 2010 11:32 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us