QMFBATCH - How to run a QMF PROC in batch + n*parms



IBM's flagship relational database management system

QMFBATCH - How to run a QMF PROC in batch + n*parms

Postby Steve Coalbran » Wed Jun 01, 2011 2:30 pm

I am trying to run QMF in batch and having problems passing parameters.
The objective of this is to create a formatted report in an EXPLAIN to assist is tuning various programs.
//REPORT1  EXEC QMF             
//QMFINVOK.DSQPRINT DD SYSOUT=*
//QMFINVOK.SYSTSIN  DD *       
ISPSTART PGM(DSQQMFE) NEWAPPL +
PARM(M=B,S=DB2C,P=DSQBATCH,+   
I=DBA.P_PLANTAB3(+             
&&QUALPLANTAB_NF=ACCEPT,+       
&&PROGNAME_LIKE='PIPBN22%',+   
&&COLLID='ACCEPT'               
// 

where the PROC is...
//*                                                 
//*  FUNCTION: INVOCATION OF QMF IN BATCH           
//*  CREATED : EDSOSB                               
//*  ACTION  : ADDED 90-03-19                       
//*  LIBRARY : SYSPROC.WAB282PB.DPDBDC.PROCLIB     
//*  MODIFY  : ADDED SYSPROC /TWGN                 
//*          : IKJEFT1B      /TWGN                 
//*  930902  : DSQPNLE ADDED /TWGN                 
//*  060527  : MODIFIED FOR QMF V7.1 /EDTLT         
//*  080610  : MODIFIED FOR QMF V8.1 /EDSWEND       
//*                                                 
//*  WARNING : INFORM USERS WHEN ADDING OR CHANGING
//*          : CONCATENATION ON DD CARDS TO PROC.   
//*                                                 
//QMFPROC PROC WORK='1,1',CPUTIME=10               
//QMFINVOK EXEC PGM=IKJEFT1B,TIME=&CPUTIME,         
//         DYNAMNBR=30,REGION=4M                   
//SYSPROC  DD  DSN=WAB125PT.QMF.SDSQCLTE,DISP=SHR   
//         DD  DSN=SYS1.PROCMVS,DISP=SHR           
//SYSEXEC  DD  DSN=WAB125PT.QMF.SDSQEXCE,DISP=SHR   
//ISPPLIB  DD  DSN=SPF.PANELS,DISP=SHR             
//         DD  DSN=WAB125PT.QMF.SDSQPLBE,DISP=SHR   
//ISPMLIB  DD  DSN=SPF.MSGS,DISP=SHR               
//         DD  DSN=WAB125PT.QMF.SDSQMLBE,DISP=SHR   
//ISPSLIB  DD  DSN=SPF.SKELS,DISP=SHR               
//         DD  DSN=WAB125PT.QMF.SDSQSLBE,DISP=SHR   
//ISPTLIB  DD  DSN=SPF.TABLES,DISP=SHR                         
//ISPPROF  DD  UNIT=SYSDA,SPACE=(TRK,(9,1,4)),                 
//        DCB=(LRECL=80,BLKSIZE=3120,RECFM=FB)                 
//SYSUDUMP DD  SYSOUT=*                                       
//ADMGGMAP DD  DSN=WAB125PT.QMF.SDSQMAPE,DISP=SHR             
//DSQPNLE  DD  DSN=WAB125PT.QMF.DSQPNLE,DISP=SHR               
//DSQPRINT DD SYSOUT=*,                                       
//            DCB=(RECFM=VBA,LRECL=133,BLKSIZE=6233)           
//DSQDEBUG DD  SYSOUT=*,DCB=(RECFM=FBA,LRECL=121,BLKSIZE=1210)
//DSQUDUMP DD  DUMMY                                           
//DSQSPILL DD  DSN=&SPILL,DISP=(NEW,DELETE),                   
//  UNIT=SYSDA,SPACE=(CYL,(&WORK),RLSE),                       
//  DCB=(RECFM=F,LRECL=4096,BLKSIZE=4096)                     
//SYSTSPRT DD  SYSOUT=*                                       
//SYSTSIN DD  DUMMY

When it runs I get this output...for SYSTSPRT...
 XSTECOA1 JOB12003        <QMFINVOK.REPORT1 .SYSTSPRT>              Line 1 of 5
 Command ===>                                                  Scroll ===> CSR 
 Current Find Text:                                              Dataset 1 of 1
----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+---->
1READY                                                                         
 ISPSTART PGM(DSQQMFE) NEWAPPL PARM(M=B,S=DB2C,P=DSQBATCH,I=DBA.P_PLANTAB3(&&QUA
 D='ACCEPT'                                                                     
 ISPD118                                                                       
 The initially invoked module ended with a return code = 16                     
******************************** Bottom of Data ********************************

and this output... for DSQDEBUG...
 XSTECOA1 JOB12003        <QMFINVOK.REPORT1 .DSQDEBUG>             Line 1 of 53
 Command ===>                                                  Scroll ===> CSR 
 Current Find Text:                                              Dataset 1 of 1
----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+---->
--------------------------------------------------------------------------------
0----------      ****** 11/06/01  10.31.04 ******  -----------------------------
-USERID: XSTECOA                                                               
 AUTHORIZATION-ID:                                                             
 MESSAGE NUMBER: DSQ10344                                                       
 MESSAGE TEXT:                                                                 
 The GDDM CCSID 351 does not match the CCSID of 278 at database DB2C.           
  &C1:  351                                                                     
  &C2:  278                                                                     
  &C3:  QMF V8R1.0                                                             
  &C4:  DB2C                                                                   
--------------------------------------------------------------------------------
0----------      ****** 11/06/01  10.31.07 ******  -----------------------------
-USERID: XSTECOA                                                               
 AUTHORIZATION-ID: XSTECOA                                                     
 MESSAGE NUMBER: DSQ90558                                                       
 MESSAGE TEXT:                                                                 
 Warning messages have been generated.                                         
--------------------------------------------------------------------------------
0----------      ****** 11/06/01  10.31.09 ******  -----------------------------
-USERID: XSTECOA                                                               
 AUTHORIZATION-ID: XSTECOA                                                     
 COMMAND TEXT:  (Q.SYSTEM_INI)                                                 
 RUN                PROC  Q.SYSTEM_INI                                         
--------------------------------------------------------------------------------
0----------      ****** 11/06/01  10.31.10 ******  -----------------------------
-USERID: XSTECOA                                                               
 AUTHORIZATION-ID: XSTECOA                                                     
 MESSAGE NUMBER: DSQ21127                                                       
 MESSAGE TEXT:  (Q.SYSTEM_INI)                                                 
 OK, you may enter a command.                                                   
--------------------------------------------------------------------------------
0----------      ****** 11/06/01  10.31.10 ******  -----------------------------
-USERID: XSTECOA                                                               
 AUTHORIZATION-ID: XSTECOA                                                     
 COMMAND TEXT:                                                                 
 RUN                PROC  DBA.P_PLANTAB3(&QUALPLANTAB_NF=ACCEPT,&PROGNAME_LIKE='
 PIPBN22%',&COLLID='ACCEPT'                                                     
--------------------------------------------------------------------------------
0----------      ****** 11/06/01  10.31.10 ******  -----------------------------
-USERID: XSTECOA                                                               
 AUTHORIZATION-ID: XSTECOA                                                     
 COMMAND TEXT:                                                                 
 RUN QUERY DBA.Q_PLANTAB3 (FORM=DBA.F_PLANTAB3)                                 
--------------------------------------------------------------------------------
0----------      ****** 11/06/01  10.31.10 ******  -----------------------------
-USERID: XSTECOA                                                               
 AUTHORIZATION-ID: XSTECOA                                                     
 MESSAGE NUMBER: DSQ23193                                                       
 MESSAGE TEXT:                                                                 
  Please give a value for each variable name.                                   
  &C1:  RUN                                                                     
  &C2:  &QUALPLANTAB_NF                                                         
******************************** Bottom of Data ********************************

Here is the PROC ...
RUN QUERY DBA.Q_PLANTAB3 (FORM=DBA.F_PLANTAB3)

Here is the FORM ...
FORM.MAIN          DBA.F_PLANTAB3                                           
                                                                             
COLUMNS:               Total Width of Report Columns: 124                   
 NUM COLUMN HEADING                           USAGE   INDENT WIDTH EDIT  SEQ
 --- ---------------------------------------- ------- ------ ----- ----- ---
   1 QUERY_NR                                         1      6     L     1   
   2 QRY_BLK                                          1      3     L     2   
   3 APPLNAME                                 OMIT    2      8     C     3   
   4 PROGNAME                                 OMIT    2      8     C     4   
   5 QRY_BLK_STEG                                     1      4     L     5   
   6 M_E_T_H                                          1      2     L     6   
   7 CREATOR                                          1      6     C     7   
   8 TNAME                                            1      8     C     8   
   9 TABNO                                    OMIT    1      6     L     9   
  10 ACC_TYP                                          1      3     C     10 
  11 M_C_O_L                                          1      2     L     11 
  12 ACCESSCREATOR                            OMIT    1      13    C     12 
  13 ACCESSNAME                                       1      8     C     13 
  14 I_X_O                                            1      1     C     14
  15 S_-_N_U                                          1      1     C     15
  16 S_-_N_J                                          1      1     C     16
  17 S_-_N_O                                          1      1     C     17
  18 S_-_N_G                                          1      1     C     18
  19 S_-_C_U                                          1      1     C     19
  20 S_-_C_J                                          1      1     C     20
  21 S_-_C_O                                          1      1     C     21
  22 S_-_C_G                                          1      1     C     22
  23 TS_LOCK_MODE                                     1      4     C     23
  24 REMARKS                                  OMIT    1      254   C     24
  25 PF                                               1      2     C     25
  26 COL_FN_EVAL                                      1      4     C     26
  27 M_IX_OP_SEQ                                      1      3     L     27   
  28 VERSION                                  OMIT    1      10    C     47   
  29 COLLID                                   OMIT    1      8     C     48   
  30 ACCESS_DEGREE                            OMIT    1      6     L     30   
  31 ACCESS_PGROUP_ID                         OMIT    1      6     L     31   
  32 JOIN_DEGREE                              OMIT    1      6     L     32   
  33 JOIN_PGROUP_ID                           OMIT    1      6     L     33   
  34 SORTC_PGROUP_ID                          OMIT    1      6     L     34   
  35 SORTN_PGROUP_ID                          OMIT    1      6     L     35   
  36 PARALLELISM_MODE                         OMIT    1      11    C     36   
  37 MERG_J_COL                                       1      4     L     37   
  38 CORRELATION_NAME                                 1      8     C     38   
  39 P_R_A_N_G                                        1      1     C     39 
  40 J_T_Y_P_E                                        1      1     C     40
  41 GROUP_MEMBER                             OMIT    1      8     C     41
  42 IBM_SERVICE_DATA                         OMIT    1      254   C     42
  43 WHEN_OPTIMIZE                            OMIT    1      8     C     43
  44 QBLOCK_TYPE                                      1      4     C     44
  45 BIND_TIME                                OMIT    1      26    TSI   45
  46 OPTHINT                                  OMIT    1      8     C     46
  47 HINT_USED                                        1      7     C     47
  48 P_ACC_TP                                         1      1     C     48
  49 PAR_BLK_NO                                       1      2     L     49
  50 TAB_TP                                           1      1     C     50
     *** END ***                                                           
                                                                             
 
PAGE:    HEADING  ===> &4   VERSION &28  COLLID &29       BINDTIME &45     
         FOOTING  ===>                                                     
FINAL:   TEXT     ===>                                                     
BREAK1:  NEW PAGE FOR BREAK? ===> NO                                       
         FOOTING  ===>                                                     
BREAK2:  NEW PAGE FOR BREAK? ===> NO                                       
         FOOTING  ===>                                                     
OPTIONS: OUTLINE? ===> YES                DEFAULT BREAK TEXT? ===> YES     

Here is the QUERY ...
SELECT QUERYNO
      ,QBLOCKNO               
      ,APPLNAME
      ,PROGNAME               
      ,PLANNO
      ,METHOD                   
      ,CREATOR
      ,TNAME                   
      ,TABNO
      ,ACCESSTYPE               
      ,MATCHCOLS                       
      ,ACCESSCREATOR                   
      ,ACCESSNAME
      ,INDEXONLY             
      ,SORTN_UNIQ                       
      ,SORTN_JOIN                       
      ,SORTN_ORDERBY                   
      ,SORTN_GROUPBY                   
      ,SORTC_UNIQ                       
      ,SORTC_JOIN                       
      ,SORTC_ORDERBY                   
      ,SORTC_GROUPBY                   
      ,TSLOCKMODE                               
      ,REMARKS
      ,PREFETCH               
      ,COLUMN_FN_EVAL                   
      ,MIXOPSEQ
      ,VERSION               
      ,COLLID
      ,ACCESS_DEGREE           
      ,ACCESS_PGROUP_ID               
      ,JOIN_DEGREE                     
      ,JOIN_PGROUP_ID                 
      ,SORTC_PGROUP_ID                 
      ,SORTN_PGROUP_ID                 
      ,PARALLELISM_MODE                         
      ,MERGE_JOIN_COLS                         
      ,CORRELATION_NAME                         
      ,PAGE_RANGE
      ,JOIN_TYPE                   
      ,GROUP_MEMBER                             
      ,IBM_SERVICE_DATA                         
      ,WHEN_OPTIMIZE                           
      ,QBLOCK_TYPE                             
      ,BIND_TIME                               
      ,OPTHINT                                           
      ,HINT_USED                                         
      ,PRIMARY_ACCESSTYPE                                 
      ,PARENT_QBLOCKNO                                   
      ,TABLE_TYPE                                         
FROM  &QUALPLANTAB_NF.PLAN_TABLE A                         
WHERE PROGNAME LIKE &PROGNAME_LIKE
  AND COLLID = &COLLID   
  AND BIND_TIME = ( SELECT MAX(BIND_TIME)               
                    FROM &QUALPLANTAB_NF.PLAN_TABLE B     
                    WHERE B.PROGNAME = A.PROGNAME         
                      AND B.COLLID   = A.COLLID           
                  )                                       
ORDER BY PROGNAME
        ,QUERYNO
        ,QBLOCKNO  DESC
        ,PLANNO
        ,MIXOPSEQ
WITH  UR


Can someone expert give me some advice on this ? ;)
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: QMFBATCH - How to run a QMF PROC in batch + n*parms

Postby GuyC » Wed Jun 01, 2011 3:38 pm

did you google DSQ10344 ?
GuyC
 
Posts: 315
Joined: Tue Aug 11, 2009 3:23 pm
Has thanked: 1 time
Been thanked: 4 times

Re: QMFBATCH - How to run a QMF PROC in batch + n*parms

Postby Steve Coalbran » Thu Jun 02, 2011 1:44 pm

I did not think the CODEPAGE error was important - I always seem to get this.
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: QMFBATCH - How to run a QMF PROC in batch + n*parms

Postby Steve Coalbran » Tue Jun 07, 2011 3:05 pm

OK, I have taken a new tack and written the same QUERY using the REXX API.
Now this SAYS it has worked but the graph I sought to create (and it says it has created) I cannot see.
 BROWSE    XSTECOA.SPFTEMP0.CNTL                      Line 00000000 Col 001 080
 Command ===>                                                  Scroll ===> PAGE
********************************* Top of Data **********************************
//XSTECOA2 JOB (E-004244,2800),'PAC/L/PG/XSTECOA',                             
//         MSGLEVEL=(1,1),MSGCLASS=R,                                           
//         CLASS=L,NOTIFY=&SYSUID                                               
//*- - - - -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -         
//         SET NC='(,CATLG,DELETE)'                                             
//         SET MD='(MOD,DELETE),SPACE=(TRK,0)'                                 
//         SET NP='(,PASS)'                                                     
//         SET OP='(OLD,PASS)'                                                 
//         SET OD='(OLD,DELETE)'                                               
//*--------------------------------------------------------------------         
//*        GENERATE REXX EXEC AND ISPF BATCH PROFILE                           
//*--------------------------------------------------------------------         
//INITIAL  EXEC PGM=ICEGENER                                                   
//MODEL    DD DISP=SHR,DSN=WAB125PT.QMF.SDSQEXCE                               
//SYSUT1   DD *                                                                 
  /*REXX*/                                                                     
  TRACE "R"                                                                     
  ADDRESS TSO                                                                   
  CALL DSQCIX "START (DSQSMODE=BATCH,DSQSSUBS=DB2C "                           
  SAY DSQ_MESSAGE_ID DSQ_MESSAGE_TEXT                                           
  IF DSQ_RETURN_CODE = DSQ_SEVERE THEN EXIT DSQ_RETURN_CODE                     
  STM =  "RUN QUERY DBA.Q_PLANTAB3 (FORM=DBA.F_PLANTAB3,",                     
                                 !!"&QUALPLANTAB_NF=ACCEPT ",                   
                                 !!"&PROGNAME_LIKE='PIPBN22%' ",               
                                 !!"&COLLID='ACCEPT') "                         
  CALL DSQCIX STM                                                               
  SAY DSQ_MESSAGE_ID DSQ_MESSAGE_TEXT                                 
  IF DSQ_RETURN_CODE = DSQ_SEVERE THEN EXIT DSQ_RETURN_CODE           
  CALL DSQCIX "EXIT"                                                   
  SAY DSQ_MESSAGE_ID DSQ_MESSAGE_TEXT                                 
  EXIT DSQ_RETURN_CODE                                                 
//SYSUT2   DD DSN=&&CLS(QMFREXX),                                     
//            DISP=&NP,SPACE=(TRK,(1,1,1)),DCB=*.MODEL                 
//PROFILE  DD DISP=&NP,SPACE=(TRK,(10,10,5)),UNIT=VIO,                 
//            DCB=(LRECL=80,BLKSIZE=0,DSORG=PO,RECFM=FB)               
//SYSPRINT DD DUMMY,SYSOUT=*                                           
//SYSIN    DD DUMMY                                                   
//*                                                                   
//*--------------------------------------------------------------------
//*        RUN QMF IN BATCH UNDER ISPF                                 
//*--------------------------------------------------------------------
//QMF      EXEC PGM=IKJEFT1B                                           
//*- - - - -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
//ADMGGMAP DD DISP=SHR,DSN=WAB125PT.QMF.SDSQMAPE                       
//SYSPROC  DD DISP=SHR,DSN=WAB125PT.QMF.SDSQCLTE                       
//         DD DISP=SHR,DSN=SYS1.PROCMVS                               
//SYSEXEC  DD DISP=SHR,DSN=WAB125PT.QMF.SDSQEXCE                       
//         DD DISP=&OP,DSN=&&CLS                                       
//DSQPRINT DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=137,BLKSIZE=1330)         
//DSQDEBUG DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=121,BLKSIZE=1210)         
//DSQSPILL DD DISP=&NP,DSN=&&SPILL,                                   
//            UNIT=VIO,SPACE=(CYL,(1,1),RLSE),                         
//            DCB=(RECFM=F,LRECL=4096,BLKSIZE=4096)                   
//DSQUDUMP DD SYSOUT=*,DCB=(RECFM=VBA,LRECL=125,BLKSIZE=1632)         
//SYSUDUMP DD SYSOUT=*                                                 
//*- - - - -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
//ISPLLIB  DD DISP=SHR,DSN=SPF.LOAD                                   
//ISPPLIB  DD DISP=SHR,DSN=SPF.PANELS                                 
//ISPSLIB  DD DISP=SHR,DSN=SPF.SKELS                                   
//ISPMLIB  DD DISP=SHR,DSN=SPF.MSGS                                   
//ISPPROF  DD DISP=&OP,DSN=*.INITIAL.PROFILE                           
//ISPTABL  DD DISP=&OP,DSN=*.INITIAL.PROFILE,VOL=REF=*.ISPPROF         
//ISPTLIB  DD DISP=&OP,DSN=*.INITIAL.PROFILE,VOL=REF=*.ISPPROF         
//         DD DISP=SHR,DSN=SPF.TABLES                                 
//* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
//ISPCTL0  DD DISP=&NP,SPACE=(TRK,(10,10)),UNIT=VIO,                   
//            DCB=(LRECL=80,BLKSIZE=0,DSORG=PS,RECFM=FB)               
//ISPCTL1  DD DISP=&NP,SPACE=(TRK,(10,10)),UNIT=VIO,                   
//            DCB=(LRECL=80,BLKSIZE=0,DSORG=PS,RECFM=FB)               
//ISPWRK1  DD DISP=&NP,SPACE=(TRK,(10,10)),UNIT=VIO,                   
//            DCB=(LRECL=80,BLKSIZE=0,DSORG=PS,RECFM=FB)               
//ISPLST1  DD DISP=&NP,SPACE=(TRK,(10,10)),UNIT=VIO,                   
//            DCB=(LRECL=133,BLKSIZE=0,DSORG=PS,RECFM=VB)             
//ISPLOG   DD SYSOUT=*,                                               
//            DCB=(LRECL=120,BLKSIZE=2400,DSORG=PS,RECFM=FB)           
//ISPLIST  DD SYSOUT=*,DCB=(LRECL=121,BLKSIZE=1210,RECFM=FBA)         
//* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
//SYSTSPRT DD SYSOUT=*                                                 
//SYSTSIN  DD *                                                       
  PROFILE PREFIX(XSTECOA)                                             
  ISPSTART CMD(%QMFREXX) NEWAPPL(BAT) TRACEX                                   
//                                                                             
******************************** Bottom of Data ******************************** 

Notice that I am running this under ISPF in batch in extended TRACE mode to get as much info as possible.
It does not seem to help! :(
Looking at the output files in EJ...
  Jobs  Resources  Devices  Tools  Filter  View  Options  Help                 
sssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss
DSSTAT   XSTECOA2 JOB16577   394 Records                            Row 1 of 6
Command ===>                                                  Scroll ===> CSR 
Cmd DDName   StepName ProcName Que* C Pri Cpy Hld Destination       Records   
--- --------/-------- -------- ---- - --- --- --- ----------------- ---------->
    JESMSGLG                   HLD  R   5   1     LOCAL                     32
    JESJCL                     HLD  R   5   1     LOCAL                    146
    JESYSMSG                   HLD  R   5   1     LOCAL                    116
s   SYSTSPRT QMF               HLD  R   5   1     LOCAL                     44
s   ISPLOG   QMF               HLD  R   5   1     LOCAL                      5
s   DSQDEBUG QMF               HLD  R   5   1     LOCAL                     51
******************************* Bottom of Data ********************************

gives...
 XSTECOA2 JOB16577        <        .QMF     .SYSTSPRT>            Line 1 of 100
 Command ===>                                                  Scroll ===> CSR 
 Current Find Text:                                              Dataset 1 of 3
----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+---->
1READY                                                                         
   PROFILE PREFIX(XSTECOA)                                                     
 READY                                                                         
   ISPSTART CMD(%QMFREXX) NEWAPPL(BAT) TRACEX                                   
 ISPF Log entry:                                                               
    TSO     - Command  -  - %QMFREXX                                           
      3 *-* ADDRESS TSO                                                         
      4 *-* CALL DSQCIX "START (DSQSMODE=BATCH,DSQSSUBS=DB2C "                 
        >>>   "START (DSQSMODE=BATCH,DSQSSUBS=DB2C "                           
        >>>   "0"                                                               
      5 *-* SAY DSQ_MESSAGE_ID DSQ_MESSAGE_TEXT                                 
        >>>   "DSQ21127 OK, you may enter a command.                           
                     "                                                         
 DSQ21127 OK, you may enter a command.                                         
                                                                               
      6 *-* IF DSQ_RETURN_CODE = DSQ_SEVERE                                     
        >>>   "0"                                                               
      7 *-* STM =  "RUN QUERY DBA.Q_PLANTAB3 (FORM=DBA.F_PLANTAB3,",           
 LANTAB_NF=ACCEPT ",                                                    !!"&PROG
                     !!"&COLLID='ACCEPT') "                                     
        >>>   "RUN QUERY DBA.Q_PLANTAB3 (FORM=DBA.F_PLANTAB3,&QUALPLANTAB_NF=ACC
     11 *-* CALL DSQCIX STM                                                     
        >>>   "RUN QUERY DBA.Q_PLANTAB3 (FORM=DBA.F_PLANTAB3,&QUALPLANTAB_NF=ACC
        >>>   "0"                                                               
     12 *-* SAY DSQ_MESSAGE_ID DSQ_MESSAGE_TEXT                                 
----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+---->
        >>>   "DSQ20954 OK, this is the REPORT from your RUN command.           
                     "                                                         
 DSQ20954 OK, this is the REPORT from your RUN command.                         
                                                                               
     13 *-* IF DSQ_RETURN_CODE = DSQ_SEVERE                                     
        >>>   "0"                                                               
     14 *-* CALL DSQCIX "EXIT"                                                 
        >>>   "EXIT"                                                           
        >>>   "0"                                                               
     15 *-* SAY DSQ_MESSAGE_ID DSQ_MESSAGE_TEXT                                 
        >>>   "DSQ90557 OK, Your QMF session has ended.                         
                     "                                                         
 DSQ90557 OK, Your QMF session has ended.                                       
                                                                               
     16 *-* EXIT DSQ_RETURN_CODE                                               
        >>>   "0"                                                               
  XSTECOA.XSTECOA2.JOB16577.D0000010.? was preallocated (no free was done).     
 READY                                                                         
 END                                                                           
1      Time                *** ISPF transaction log ***                        U
                                                                               
       10:38   Start of ISPF Log - - -  - Session Ä 1 --------------------------
       10:38      TSO     - Command  -  - %QMFREXX                             
       10:38    End of ISPF Log - - - - - Session Ä 1 --------------------------
--------------------------------------------------------------------------------
----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+---->
0----------      ****** 11/06/07  10.38.06 ******  -----------------------------
-USERID: XSTECOA                                                               
 AUTHORIZATION-ID:                                                             
 MESSAGE NUMBER: DSQ10344                                                       
 MESSAGE TEXT:                                                                 
 The GDDM CCSID 351 does not match the CCSID of 278 at database DB2C.           
  &C1:  351                                                                     
  &C2:  278                                                                     
  &C3:  QMF V8R1.0                                                             
  &C4:  DB2C                                                                   
--------------------------------------------------------------------------------
0----------      ****** 11/06/07  10.38.06 ******  -----------------------------
-USERID: XSTECOA                                                               
 AUTHORIZATION-ID: XSTECOA                                                     
 MESSAGE NUMBER: DSQ90558                                                       
 MESSAGE TEXT:                                                                 
 Warning messages have been generated.                                         
--------------------------------------------------------------------------------
0----------      ****** 11/06/07  10.38.06 ******  -----------------------------
-USERID: XSTECOA                                                               
 AUTHORIZATION-ID: XSTECOA                                                     
 COMMAND TEXT:  (Q.SYSTEM_INI)                                                 
 RUN                PROC  Q.SYSTEM_INI                                         
--------------------------------------------------------------------------------
0----------      ****** 11/06/07  10.38.06 ******  -----------------------------
----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+---->
-USERID: XSTECOA                                                               
 AUTHORIZATION-ID: XSTECOA                                                     
 MESSAGE NUMBER: DSQ21127                                                       
 MESSAGE TEXT:  (Q.SYSTEM_INI)                                                 
 OK, you may enter a command.                                                   
--------------------------------------------------------------------------------
0----------      ****** 11/06/07  10.38.06 ******  -----------------------------
-USERID: XSTECOA                                                               
 AUTHORIZATION-ID: XSTECOA                                                     
 COMMAND TEXT:                                                                 
 RUN QUERY DBA.Q_PLANTAB3 (FORM=DBA.F_PLANTAB3,&QUALPLANTAB_NF=ACCEPT &PROGNAME_
 LIKE='PIPBN22%' &COLLID='ACCEPT')                                             
--------------------------------------------------------------------------------
0----------      ****** 11/06/07  10.38.07 ******  -----------------------------
-USERID: XSTECOA                                                               
 AUTHORIZATION-ID: XSTECOA                                                     
 MESSAGE NUMBER: DSQ20954                                                       
 MESSAGE TEXT:                                                                 
 OK, this is the REPORT from your RUN command.                                 
--------------------------------------------------------------------------------
0----------      ****** 11/06/07  10.38.07 ******  -----------------------------
-USERID: XSTECOA                                                               
 AUTHORIZATION-ID: XSTECOA                                                     
 COMMAND TEXT:                                                                 
 EXIT                                                                           
******************************** Bottom of Data ********************************

I have tried the obvious such as looking in dynamically allocated datasets but nothing is created during the run.
The allocation:
//ADMGGMAP DD DISP=SHR,DSN=WAB125PT.QMF.SDSQMAPE

also seems to be referenced but not updated (although ISPF stats are seemingly not set by QMF so it is hard to verify). :roll:

Once again - all input welcome.
Especially any pertaining to the useful message: "OK, this is the REPORT from your RUN command.". :?
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 DB2

 


  • Related topics
    Replies
    Views
    Last post