View previous topic :: View next topic
|
Author |
Message |
kokwind
New User
Joined: 22 May 2008 Posts: 15 Location: Singapore
|
|
|
|
when I EXEC this clist,I got a “A command entered or contained in a CLIST has invalid syntax. ” message.
Code: |
Menu List Mode Functions Utilities Help
ssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss
ISPF Command Shell
Enter TSO or Workstation commands below:
===> EXEC 'DSN810.SDSNCLST(DSNEAC01)'
Place cursor on choice and press enter to Retrieve command
=> IND$FILE GET 'DB8G.SDSNCLST(DSNEAC01)' ASCII CRLF
=> EXEC 'DB8G.SDSNCLST(DSNEBC02)'
=> EXEC 'DB8G.SDSNCLST(DSNH)'
=> EXEC 'DB8G.SDSNCLST(DSNEAC01)'
=> EXEC 'B8G.SDSNCLST(DSNEAC01)'
=> delstack
=> IND$FILE GET 'DB8G.SDSNSAMP(DSNTEJ1L)' ASCII CRLF
=> IND$FILE GET 'DB8G.SDSNSAMP(DSNTIJSG)' ASCII CRLF
=> IND$FILE GET 'DB8G.SDSNSAMP(DSNTIJTM)' ASCII CRLF
A command entered or contained in a CLIST has invalid syntax.
***
|
I try to use "delstack" to clear the stack, but it still not work.
Can someone tell me what I should be looking for to fix?
clist
Code: |
PROC 0 00010007
/** PROLOGUE ********************************************************/ 00020007
/* MODULE-NAME = DSNEAC01 */ 00030007
/* DESCRIPTIVE-NAME = DB2I SERVICE AIDS CLIST */ 00040007
/* AUTHOR/OWNER = KR HAMMOND */ 00050007
/* LICENSED MATERIALS - PROPERTY OF IBM */ 00060007
/* 5645-DB2 */ 00070007
/* (C) COPYRIGHT 1982, 1998 IBM CORP. ALL RIGHTS RESERVED. */ 00080007
/* */ 00090007
/* STATUS = VERSION 6 */ 00100007
/* FUNCTION = DISPLAY AND READ THE SERVICE AID PANEL. */ 00110007
/* MOVE SERVICE AID SETTINGS TO VARIABLE POOL */ 00120007
/* BEGIN TRACING AS REQUESTED. */ 00130007
/* NOTES */ 00140007
/* DEPENDENCIES = ISPF */ 00150007
/* RESTRICTIONS = NONE */ 00160007
/* REGISTER-CONVENTIONS = N/A */ 00170007
/* PATCH-LABEL = NONE */ 00180007
/* */ 00190007
/* MODULE-TYPE = CLIST */ 00200007
/* PROCESSOR = TSO CLIST PROCESSOR */ 00210007
/* MODULE-SIZE = APPROXIMATELY 30 LINES */ 00220007
/* */ 00230007
/* ENTRY-POINT = DSNEAC01 */ 00240007
/* PURPOSE = SEE FUNCTION */ 00250007
/* LINKAGE = CALLED BY PANEL DSNEPRI (OPTION "S") */ 00260007
/* */ 00270007
/* INPUT */ 00280007
/* SYMBOLIC LABEL/NAME = VARIOUS ISPF POOL VARIABLES */ 00290007
/* DESCRIPTION = THE PANEL VARIABLES ARE STORED IN THE ISPF POOL*/ 00300007
/* OUTPUT */ 00310007
/* SYMBOLIC LABEL/NAME = N/A */ 00320007
/* DESCRIPTION = POSSIBLE NEW SETTINGS FOR SERVICE AID VARIABLES*/ 00330007
/* */ 00340007
/* EXIT-NORMAL */ 00350007
/* RETURN-CODES = 0 */ 00360007
/* REASON-CODES = 0 */ 00370007
/* */ 00380007
/* EXIT-ERROR */ 00390007
/* RETURN-CODES = 0 */ 00400007
/* ABEND-CODES = 0 */ 00410007
/* ERROR-MESSAGES = 0 */ 00420007
/* */ 00430007
/* EXTERNAL REFERENCES */ 00440007
/* ROUTINES/SERVICES = ISPEXEC: VGET, VPUT, DISPLAY */ 00450007
/* DATA-AREAS = NONE */ 00460007
/* CONTROL-BLOCK = NONE */ 00470007
/* */ 00480007
/* TABLES = NONE */ 00490007
/* MACROS = NONE */ 00500007
/* CHANGE-ACTIVITY = NONE */ 00510007
/* 10/08/87 - ADD SUPPORT FOR RE-INITIALIZING @BA17532*/ 00520007
/* DSNEPROF WHEN CHANGING RELEASES @BA17532*/ 00530007
/* 12/28/87 - CHANGE RELEASE LEVEL TO DSN220 KZL0014*/ 00540007
/* 04/21/89 - CHANGE RELEASE LEVEL TO DSN230 KYS0003*/ 00550007
/* 09/01/92 - CHANGE RELEASE LEVEL TO DSN310 KDW0091*/ 00560007
/* 03/31/94 - CHANGE RELEASE LEVEL TO 410 KEW0160*/ 00570007
/* 06/27/95 - CHANGE RELEASE LEVEL TO 420 TU3270RC*/ 00580007
/* 10/22/96 - CHANGE RELEASE LEVEL TO 510 D9028/TU35332I*/ 00590007
/* 03/19/97 - CHANGE RELEASE LEVEL TO 610 LI350TSO*/ 00600007
/* */ 00610007
/* SERIALIZATION-(LATCHES/LOCKS) = NONE */ 00620007
/** PSEUDOCODE ******************************************************/ 00630007
/* IF THIS IS FIRST RUN EVER FOR THIS CLIST OR @BA17532*/ 00640007
/* DSNEMC01 HAS NOT BEEN CALLED FOR THIS RELEASE THEN @BA17532*/ 00650007
/* CALL DSNEMC01 FOR INITIALIZATION @BA17532*/ 00660007
/* IF THIS IS FIRST RUN EVER FOR THIS CLIST THEN */ 00670007
/* INITIALIZE VARIABLES @BA17532*/ 00680007
/* GET OLD VALUES OF ALL PANEL VARIABLES */ 00690007
/* IF TRACING WAS ON THEN START TRACING */ 00700007
/* DISPLAY THE SERVICE AIDS ENTRY PANEL (DSNEAP01) */ 00710007
/* DO WHILE USER DID NOT PRESS END OR RETURN PF KEY */ 00720007
/* DISPLAY THE TRACE CONTROL PANEL (DSNEAP02) */ 00730007
/* IF CLIST TRACING WAS TURNED ON, START TRACING */ 00740007
/* IF USER PRESSED ENTER THEN */ 00750007
/* SAVE ALL POOL VARIABLES SINCE THEY MAY HAVE CHANGED ON PANEL*/ 00760007
/* END DO LOOP */ 00770007
/**** END PROLOGUE **************************************************/ 00780007
CONTROL PROMPT 00790007
/********************************************************************/ 00800007
/* AVOID "UNDEFINED VARIABLE" ERROR MSGS ON A USER'S FIRST-EVER RUN.*/ 00810007
/********************************************************************/ 00820007
SET &DSNE1A = &STR() /* NO="NOT FIRST RUN OF THIS CLIST"*/ 00830007
SET &DSNEREL = &STR() /* NO=DSNEMC01 NOT CALLED @BA17532*/ 00840007
ISPEXEC VGET (DSNE1A,DSNEREL) PROFILE /* GET FIRST TIME INDICATORS */ 00850007
IF &DSNE1A ý= NO OR &DSNEREL ý= &STR(DIDFIRSTRUNAT610LEVEL) THEN -00860007
%DSNEMC01 /* INIT DEFAULTS PANEL VALS@BA17532*/ 00870007
IF &DSNE1A ý= NO THEN /* IF THIS CLIST HAS NEVER RUN, */-00880007
DO /* EVER BEFORE, THAN INITIALIZE ...*/ 00890007
SET &DSNE1A = NO /* DON'T DO THIS SECTION EVER AGAIN*/ 00900007
SET DSNEAV01 = &STR() 00910007
SET DSNEAV0G = &STR() 00920007
SET DSNEAV0H = &STR() 00930007
SET DSNEAV0I = &STR() 00940007
ISPEXEC VPUT (DSNE1A, /* SAVE THE INITIALIZATION */-00950007
DSNEAV01, - 00960007
DSNEAV0G, - 00970007
DSNEAV0H, - 00980007
DSNEAV0I) PROFILE 00990007
/* THIS LINE DELETED BY APAR PL17532 */ 01000007
END /* END FIRST TIME ONLY */ 01010007
ISPEXEC VGET (DSNEAV01 , - 01020007
DSNEAV03 , - 01030007
DSNEAV04 , - 01040007
DSNEAV05 , - 01050007
DSNEAV0G , - 01060007
DSNEAV0H , - 01070007
DSNEAV0I ) PROFILE 01080007
IF &DSNEAV05 = NO /* DECIDE IF AND HOW WE ARE TRACING*/-01090007
THEN CONTROL NOLIST NOCONLIST NOSYMLIST 01100007
ELSE - 01110007
DO 01120007
IF &DSNEAV05 = LIST THEN CONTROL LIST NOCONLIST NOSYMLIST 01130007
ELSE IF &DSNEAV05 = CONLIST - 01140007
THEN CONTROL LIST CONLIST NOSYMLIST 01150007
ELSE CONTROL LIST CONLIST SYMLIST 01160007
END 01170007
/********************************************************************/ 01180007
/* DISPLAY SERVICE AID PANEL */ 01190007
/********************************************************************/ 01200007
ISPEXEC DISPLAY PANEL(DSNEAP01) 01210007
SET &SAVECC = &LASTCC 01220007
DO WHILE (&SAVECC = 0) /* LOOP SO USER CAN STAY HERE IN*/ 01230007
ISPEXEC DISPLAY PANEL(DSNEAP02) /* SPLIT SCREEN MODE. SHOW PANEL*/ 01240007
SET &SAVECC = &LASTCC 01250007
IF &DSNEAV05 = NO /* MAYBE START CLIST TRACING NOW*/-01260007
THEN CONTROL NOLIST NOCONLIST NOSYMLIST 01270007
ELSE /* USER WANTS CLIST TRACING */-01280007
DO 01290007
IF &DSNEAV05 = LIST THEN CONTROL LIST NOCONLIST NOSYMLIST 01300007
ELSE IF &DSNEAV05 = CONLIST - 01310007
THEN CONTROL LIST CONLIST NOSYMLIST 01320007
ELSE CONTROL LIST CONLIST SYMLIST 01330007
END 01340007
/******************************************************************/ 01350007
/* PUT VARIABLES BACK IN VARIABLE POOL*/ 01360007
/******************************************************************/ 01370007
IF (&SAVECC = 0 ) THEN /* IF USER PRESSED ENTER */-01380007
ISPEXEC VPUT (DSNEAV01 , - 01390007
DSNEAV03 , - 01400007
DSNEAV04 , - 01410007
DSNEAV05 , - 01420007
DSNEAV0G , - 01430007
DSNEAV0H , - 01440007
DSNEAV0I ) PROFILE 01450007
END /* END OF MAIN LOOP */ 01460007
EXIT 01470007
01480007
01490007
|
|
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19243 Location: Inside the Matrix
|
|
|
|
Hello,
If you press F1 immediately after the error is shown, what happens?
Did this work before and now fails? |
|
Back to top |
|
|
kokwind
New User
Joined: 22 May 2008 Posts: 15 Location: Singapore
|
|
|
|
hi d.sch.
It was nothing to shown when I press F1.
It didn't work. |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19243 Location: Inside the Matrix
|
|
|
|
Hello,
F1 should have caused something to display. It might be only a message saying F1 is not active, but i believe somehting should have been shown. What happens if you press F1 twice. This will usually ahow additional info.
Are you able to run some other clists or rexx execs? |
|
Back to top |
|
|
kokwind
New User
Joined: 22 May 2008 Posts: 15 Location: Singapore
|
|
|
|
Hello,
sorry, something to be showned:
Code: |
TUTORIAL ------------------- ISPF COMMAND SHELL -----------------------TUTORIAL
OPTION ===>
The ISPF command shell option allows TSO commands, CLISTs, and REXX
execs to be executed under ISPF. When in Workstation mode the command
entered on option 6 is directed to the users workstation.
Note: ISPF allows TSO commands, CLISTs, and REXX execs to be entered in
the command input field of any panel. Example: Command ===> TSO LISTC
ISPF allows Workstation commands to be entered in the command input field
of any panel. Example: Command ===> WS E.EXE
- You may enter a long command that wraps to the next line(s).
The following topics are presented in sequence, or may be selected by number:
1 - ISPF command shell panel 4 - Session Manager mode
2 - Restrictions 5 - Command List / Action bars
3 - Line I/O mode
F1=Help F2=Split F3=Exit F4=Resize F5=Exhelp F6=Keyshelp
F7=PrvTopic F8=NxtTopic F9=Swap F10=PrvPage F11=NxtPage F12=Cancel |
I already run this code.
Code: |
File Edit Edit_Settings Menu Utilities Compilers Test Help
sssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss
VIEW DB8G.SDSNCLST(DELSTACK) - 01.00 Columns 00001 00072
Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001 /* REXX */
000002 SAY 'THERE ARE 'QUEUED()' ITEMS LEFT ON THE DATASTACK.'
000003 DELSTACK
****** **************************** Bottom of Data ****************************
|
Code: |
Menu List Mode Functions Utilities Help
ssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss
ISPF Command Shell
Enter TSO or Workstation commands below:
===> exec 'DB8G.SDSNCLST(DELSTACK)'
Place cursor on choice and press enter to Retrieve command
=> EXEC 'Dsn810.SDSNCLST(DSNEAC01)'
=> db8g
=> db2i
=> EXEC 'DB8G.SDSNCLST(DSNH)'
=> EXEC 'DB8G.SDSNCLST(DSNEBC02)'
=> EXEC 'DB8G.SDSNCLST(DSNEAC01)'
=> EXEC 'B8G.SDSNCLST(DSNEAC01)'
=> delstack
=> IND$FILE GET 'DB8G.SDSNSAMP(DSNTEJ1L)' ASCII CRLF
THERE ARE 0 ITEMS LEFT ON THE DATASTACK.
***
|
|
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19243 Location: Inside the Matrix
|
|
|
|
Hello,
Try tracing the code to see where it first encounters a problem. |
|
Back to top |
|
|
kokwind
New User
Joined: 22 May 2008 Posts: 15 Location: Singapore
|
|
|
|
hi d.sch.
the code is health,maybe something wrong in my system, maybe ...
i donnot know why |
|
Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8700 Location: Dubuque, Iowa, USA
|
|
|
|
Quote: |
the code is health,maybe something wrong in my system, maybe ...
i donnot know why |
I don't know how many times I've heard this from people -- and so far the odds of something being wrong with the system as opposed to being a problem in the code are less than 1 in 100. In other words, it's more than 99 times more likely that your code is not as "health" (sic) as you think then the system is messing your code up.
The number one problem I see in debugging is that people don't go in thinking their code is wrong, so they cannot find even obvious errors -- after all, their code is perfect, so that syntax error cannot exist, right? |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
Could it be the funky-looking characters?
Code: |
IF &DSNE1A ý= NO OR &DSNEREL ý= &STR(DIDFIRSTRUNAT610LEVEL) THEN -
...
|
|
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19243 Location: Inside the Matrix
|
|
|
|
Hello,
Is there some reason the code hasn't been traced and the trace result result posted?
I suspect that the IBM provided code was "healthy" originally, but that something happened to it since then. . . |
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2593 Location: Silicon Valley
|
|
|
|
Try removing the line numbers. |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19243 Location: Inside the Matrix
|
|
|
|
hello,
Quote: |
the code is health,maybe something wrong in my system, maybe ... |
Maybe not. . . It will be along time (if ever) until you discover something actually wrong with the operating system.
A very good mantra to adopt is "I know it is something i did - I know it is something is did" and repeat this until you no longer consider the problem being "the system".
To repeat:
Quote: |
I suspect that the IBM provided code was "healthy" originally, but that something happened to it since then. . . |
Consider that copying the code from wherever to your library caused some corruption or that something else required is missing/wrong.
And if you have not done so:
Quote: |
Try removing the line numbers. |
|
|
Back to top |
|
|
kokwind
New User
Joined: 22 May 2008 Posts: 15 Location: Singapore
|
|
|
|
hello,
Sorry,I got a wrong word.actually my english is not very well.
But it can work when I uesd the same code and the same way to run it in other system, so that time I think it maybe "healthy".
and thx d.sch. this way is very cool.
Quote: |
I suspect that the IBM provided code was "healthy" originally, but that something happened to it since then. . .
|
Quote: |
Try removing the line numbers.
|
I did it, but
Quote: |
IF &DSNE1A ý= NO OR &DSNEREL ý= &STR(DIDFIRSTRUNAT610LEVEL) THEN -
|
This is ok,
Code: |
IF &DSNE1A ¬= NO OR &DSNEREL ¬= &STR(DIDFIRSTRUNAT610LEVEL) THEN -
4CC445CEDCFC4574DD4DD45CEDCDCD45745EED4CCCCCDEEDEDCEFFFDCECD54ECCD444446
0960004255110FE0560690042559530FE00239D494699239451361035553D03855000000 |
|
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2593 Location: Silicon Valley
|
|
|
|
Quote: |
A command entered or contained in a CLIST has invalid syntax. |
Use
and use LOOKAT to search for the message description. |
|
Back to top |
|
|
MBabu
Active User
Joined: 03 Aug 2008 Posts: 400 Location: Mumbai
|
|
|
|
It looks like there is a character at the end that is invalid. This may just be from your transfer to the PC for posting but try F P'.' (which finds invalid characters).
If that doesn't help, try CONTROL LIST CONLIST SYMLIST at the start. That will tell you which line failed, if the CLIST is getting started at all. Also verify that you are not mixing FB and VB datasets in SYSPROC and that if the line numbers are still in cols 73-80, you are running from a fixed 80 data set. |
|
Back to top |
|
|
kokwind
New User
Joined: 22 May 2008 Posts: 15 Location: Singapore
|
|
|
|
hello
Quote: |
The displayed line lets the user choose DB2I. Both of the undisplayed lines invoke the DB2I main panel (DSNEPRI).DSNECPRI is a CLIST and can be invoked directly from another user CLIST. It is an alternative way to invoke DSNEPRI without updating the primary ISPF panel.
-----Chapter 7. Installing the DB2 subsystem page 271
db2 Installation Guide
|
when I run this clist(dsnepri).all the clist wokes.
and I got a mistake in this job
Quote: |
Job DSNTIJVC merges the tailored CLISTs from prefix.NEW.SDSNTEMP with unchanged CLISTs and REXX execs from prefix.SDSNCLST. Then job DSNTIJVC places all CLISTs and REXX execs in prefix.NEW.SDSNCLST. It also converts the record format of the DB2 CLISTs from fixed-block to variable-block format with a record length of 84 and a block size of 3120.
If you use fixed-block format for your CLIST libraries, modify job DSNTIJVC as follows:
v Change the SYSIN DD statement to DUMMY. <----this is my miss
v Change the allocation of prefix.NEW.SDSNCLST to match the data control block (DCB) attributes of your other CLIST libraries.
|
-------------------------
Thx for your help. |
|
Back to top |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2593 Location: Silicon Valley
|
|
|
|
Quote: |
If you use fixed-block format for your CLIST libraries, modify job DSNTIJVC as follows:
v Change the SYSIN DD statement to DUMMY. <----this is my miss |
It is not clear if you are asking for help, or what problem you are having. |
|
Back to top |
|
|
|