AMBCLIST by Mark Zelden.

[Rima Bali]

Hi,

I have trying to run the AMBCLIST by Mark Zelden from here: http://mzelden.com/mvsutilr.html#tso

I am getting the below error, can someone please guide on how to resolve it:

Code: Select all

 	Command ===> 	                                                                  
                                                                    	More:     + 
 	****************************************************************************** 
 	* 	ISPP133                                                                    	* 
 	*  	  	                                                                        	* 
 	* 	Panel 'AMBPANEL' error   	                                                  	* 
 	* 	Invalid statement found within )INIT, )REINIT, or )PROC section.           	* 
 	* 	                                                                           	* 
 	* 	                                                                           	* 
 	* 	                                                                           	* 
 	* 	                                                                           	* 
 	* 	                                                                           	* 
 	* 	                                                                           	* 
 	* 	Panel line where error was detected:                                       	* 
 	* 	)PROC                                                                      	* 
 	* 	                                                                           	* 
 	* 	Enter 	HELP 	command for further information regarding this error. 	          	* 
 	* 	Press 	ENTER 	key to terminate the dialog. 	                                  	* 
 	*  	  	                                                                        	* 
 	* 	   	   	   	                                                                  	* 
 	*  	  	                                                                        	* 
 	*  	  	                                                                        	* 
 	  	*DSLIST  	                                                                    

Can someone please guide how to debug it?

[enrico-sorichetti]

how the heck can we do it ?
if You had posted also the panel source in Your panel library
we might have some suggestions,
without looking at the panel source nothing we can do.

[Rima Bali]

Hi Enrico,

This is the Panel info:

Code: Select all

)ATTR                                                                           
      + TYPE(TEXT)  INTENS(LOW)                                                 
      % TYPE(TEXT)  INTENS(HIGH)                                                
      _ TYPE(INPUT) INTENS(HIGH)                                                
)BODY EXPAND (//)                                                               
%-/-/ Interactive AMBLIST  -/-/                                                 
%COMMAND ===>_ZCMD                                                     +        
+                                                                               
+    Valid options:                                                             
+    1=LISTIDR  2=LISTLOAD XREF  3=LISTLOAD  4=LISTOBJ  5=LISTLPA               
+                                                                               
+    List option  ===>_O+                                                       
+    Library name ===>_AMBDSN                                      +            
+    Member name  ===>_AMBMEM  +                                                
+    Volser       ===>_AMBVOL+                                                  
+                                                                               
+                                                                               
+    Choose an AMBLIST option. You must enter a valid library name and a        
+    member name when using options 1 through 4. An "*" can also be used        
+    to process all members when using options 1 through 4.  The library        
+    name and member name are ignored when using option 5 (LISTLPA).            
+                                                                               
+                                                                               
+    Press%PF3+to EXIT+                                                         
)INIT                                                                           
  &ZPRIM = NO                                                                   
 .CURSOR = O                                                                    
 &O = &AMBOPT                                                                   
 IF (&O = &Z )                                                                  
    &O = 1                                                                      
)PROC                                                                           
  VER (&O,NONBLANK)                                                             
  VER (&O,LIST,1,2,3,4,5)                                                       
  IF  (&O NE 5)                                                                 
    VER (&AMBDSN,NONBLANK)                                                      
    VER (&AMBDSN,DSNAME)                                                        
    VER (&AMBMEM,NONBLANK)                                                      
    IF  (&AMBMEM NE '*')                                                        
      VER (&AMBMEM,NAME)                                                        
  &AMBOPT = &O                                                                  
  VPUT (AMBDSN AMBMEM AMBOPT AMBVOL) PROFILE                                    
)END                

And this is the CLIST:

Code: Select all

PROC 0 UNIT(SYSALLDA)                                                           
CONTROL NOMSG NOLIST NOCONLIST NOFLUSH                                          
/*                           */                                                 
/* AUTHOR: MARK ZELDEN       */                                                 
/*                           */                                                 
/* LAST UPDATE: 06/20/2006   */                                                 
LOOP: +                                                                         
ISPEXEC DISPLAY PANEL(AMBPANEL)                                                 
                                                                                
  /*  IF "END" WAS ENTERED, EXIT */                                             
                                                                                
IF &LASTCC = 8 THEN DO                                                          
  EXIT CODE(0)                                                                  
END                                                                             
                                                                                
                                                                                
FREE FI(SYSLIB SYSIN SYSPRINT)                                                  
FREE ATTRLIST(DCB1 DCB2)                                                        
CONTROL MSG                                                                     
IF &O ^= 5 THEN DO                                                              
  IF &STR(&AMBVOL) = &STR() THEN +                                              
    ALLOC FI(SYSLIB) DA(&AMBDSN) SHR                                            
  ELSE +                                                                        
    ALLOC FI(SYSLIB) DA(&AMBDSN) VOLUME(&AMBVOL) SHR                            
END                                                                             
SET &CC = &LASTCC                                                               
CONTROL NOMSG                                                                   
IF &CC NE 0 THEN GOTO LOOP                                                      
ATTRIB DCB1 RECFM(F) LRECL(80) BLKSIZE(80)                                      
ATTRIB DCB2 RECFM(F) LRECL(121) BLKSIZE(5687)                                   
ALLOC FILE(SYSIN) UNIT(&UNIT) SP(1,1) TRACK US(DCB1)                            
ALLOC FILE(SYSPRINT) UNIT(&UNIT) SP(1,10) CYL US(DCB2)                          
OPENFILE SYSIN OUTPUT                                                           
IF &O = 1 AND &STR(&AMBMEM) = &STR(*) THEN DO                                   
  SET &SYSIN=&STR( LISTIDR)                                                     
END                                                                             
ELSE IF &O = 1 THEN DO                                                          
  SET &SYSIN=&STR( LISTIDR MEMBER=&AMBMEM)                                      
END                                                                             
IF &O = 2 AND &STR(&AMBMEM) = &STR(*) THEN DO                                   
  SET &SYSIN=&STR( LISTLOAD OUTPUT=XREF)                                        
END                                                                             
ELSE IF &O = 2 THEN DO                                                          
  SET &SYSIN=&STR( LISTLOAD OUTPUT=XREF,MEMBER=&AMBMEM)                         
END                                                                             
IF &O = 3 AND &STR(&AMBMEM) = &STR(*) THEN DO                                   
  SET &SYSIN=&STR( LISTLOAD)                                                    
END                                                                             
ELSE IF &O = 3 THEN DO                                                          
  SET &SYSIN=&STR( LISTLOAD MEMBER=&AMBMEM)                                     
END                                                                             
IF &O = 4 AND &STR(&AMBMEM) = &STR(*) THEN DO                                   
  SET &SYSIN=&STR( LISTOBJ)                                                     
END                                                                             
ELSE IF &O = 4 THEN DO                                                          
  SET &SYSIN=&STR( LISTOBJ MEMBER=&AMBMEM)                                      
END                                                                             
IF &O = 5 THEN DO                                                               
  SET &SYSIN=&STR( LISTLPA)                                                     
END                                                                             
PUTFILE SYSIN                                                                   
CLOSFILE SYSIN                                                                  
CALL 'SYS1.LINKLIB(AMBLIST)'                                                    
ISPEXEC LMINIT DATAID(AMBROWSE) DDNAME(SYSPRINT)                                
ISPEXEC BROWSE DATAID(&AMBROWSE)                                                
ISPEXEC LMFREE DATAID(&AMBROWSE)                                                
FREE FI(SYSLIB SYSIN SYSPRINT)                                                  
FREE ATTRLIST(DCB1 DCB2)                                                        
ALLOC FI(SYSPRINT) DA(*)                                                        
                                                                                
GOTO LOOP                                                                       

They are there in the link I post so I did not post them before.

[enrico-sorichetti]

I knew that ...
I wanted to know if there were any differences between the original and the ones in Your ISP Libraries
and ... guess what?
THEY ARE NOT THE SAME

dowloaded the clist and the panel
FTPed to my host ...
tested and working

just start over the whole process

[enrico-sorichetti]

since I spent time testing
I would like to know if You solved Your problem

[Rima Bali]

Hi Enrico,

I did it again but I see the same problem again.

1. I downloaded the CLIST and PANEL definition on the PC. Clicked on the links from Mark Zelden website, right-click and save as. Saved CLIST and PANEL as text file on the desktop.

2. Uploaded them to mainframe using command line FTP. This is the attribute of uploaded files:

Code: Select all

DSLIST 	                      	Data Set Information 	                            
Command ===> 	                                                                 
                                                                   	More:     +
Data Set Name . . . . : 	ABCDEF.AMBCLIST                              	         
 	  	                                                                           
General Data 	                          	Current Allocation 	                  	  
 	Management class . . : 	TESTSQ   	       	Allocated tracks  . : 	1              	 
 	Storage class  . . . : 	TESTSQ   	       	Allocated extents . : 	1               
  	Volume serial . . . : 	PRGS84 	  	        	  	                                   
  	Device type . . . . : 	3390     	       	  	                                    
 	Data class . . . . . : 	**None** 	       	  	                                    
  	Organization  . . . : 	PS       	      	Current Utilization 	                  	 
  	Record format . . . : 	VB     	         	Used tracks . . . . : 	1             	  
  	Record length . . . : 	256     	        	Used extents  . . . : 	1             	  
  	Block size  . . . . : 	6233     	        	  	                                   
  	1st extent tracks . : 	1               	  	                                    
  	Secondary tracks  . : 	1              	Dates 	                               	  
  	Data set name type  : 	           	     	Creation date . . . : 	2018/10/01 	     
  	                      	  	              	Referenced date . . : 	2018/10/01 	     
  	                      	           	     	Expiration date . . : 	***None*** 	     
  	SMS Compressible  . : 	NO   	                                                 

Panel:

Code: Select all

 	DSLIST 	                      	Data Set Information 	                         
 	Command ===> 	                                                              
                                                                    	More:   
 	Data Set Name . . . . : 	ABCDEF.AMBPANEL                              	      
  	  	                                                                        
 	General Data 	                          	Current Allocation 	                 
  	Management class . . : 	TESTSQ   	       	Allocated tracks  . : 	1            
  	Storage class  . . . : 	TESTSQ   	       	Allocated extents . : 	1            
   	Volume serial . . . : 	PRGS89 	  	        	  	                                
   	Device type . . . . : 	3390     	       	  	                                 
  	Data class . . . . . : 	**None** 	       	  	                                 
   	Organization  . . . : 	PS       	      	Current Utilization 	                
   	Record format . . . : 	VB     	         	Used tracks . . . . : 	1            
   	Record length . . . : 	256     	        	Used extents  . . . : 	1            
   	Block size  . . . . : 	6233     	        	  	                                
   	1st extent tracks . : 	1               	  	                                 
   	Secondary tracks  . : 	1              	Dates 	                              
   	Data set name type  : 	           	     	Creation date . . . : 	2018/10/01 	  
   	                      	  	              	Referenced date . . : 	2018/10/01 	  
   	                      	           	     	Expiration date . . : 	***None*** 	  
   	SMS Compressible  . : 	NO   	                                              
   	                      	     	                                              
   	                      	         	                                          
 	  	*DSLIST  	REXX     	-PANEL   	ISPTERM  	                                     

I have then copied them (ISPF cut/paste) to my PDS which is concatenated to my REXX SYSPROC libraries. CLIST is copied to the PDS ABCDEF.REXX(AMBCLIST) and ABCDEF.PANEL(AMBPANEL).

On START, when I typed TSO AMBCLIST, it shows the Panel error I posted before.

[nicc]

Why cut and paste? Why not select the member in your PDS and copy the data set.

[Rima Bali]

Why cut and paste? Why not select the member in your PDS and copy the data set.

I did that because the data-sets created after FTP has these attrbutes:

Record format : VB
Data length . : 252

But my PDS in which I have the CLIST and PANEL are of FB and 80 LRECL.

[nicc]

so? ISPF will happily copy them with a warning about truncation. But as the data is only in the first 80 bytes that is not a problem.

[Rima Bali]

I just wanted to any possible errors.

I was thinking when I pass the PANEL like this in the CLIST

Code: Select all

ISPEXEC DISPLAY PANEL(AMBPANEL)

Will the CLIST pick it up from correct location? Or do I need to make some adjustments to refer to my personal PDS of panel?

[nicc]

Are you running the clist in your online session? Is your personal panel PDS allocated to your session? Is AMBPANEL only found in your personal panel PDS and not in any of the other PDSes that are allocated to your panel DD?