Re: JES2 Question: Which command to change all output class=1 to class=2?
Lee, I believe this command will do what you want. $TO JOB(*),/Q=Z,Q=J Kurt Gramling snip We try to keep certain JES output classes on our spool for from 1 to 5 days and keep it clean using daily auto-commands to delete all output over 5 days old. But the console operators delete one of the output classes throughout the day. Is there a JES command to change all output class Z, for instance, to class J? We have been unable to find such a command in the JES commands manual. Maybe we overlooked such a command. Thanks for your suggestions. Regards, Lee McKnight TRC, Inc. snip -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: Anybody use IBM Softcopy Librarian?
Yup, strictly on windows - just fine with me. That's the entire question. Well, with a secondary question of Does anybody else wish it would run on Linux or a Mac? Or maybe even on z/OS itself under TSO or a UNIX shell or both? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
DFHSM output and JESLOG parm
Ladies Gents, Just thought I would share this with everyone since I just happen to stumble across it. Our DFHSM tasks create an extraordinary amount of output in the job log. Our SMS group would have to do a controlled shutdown and restart of these tasks on a regular basis so that the output would not fill up the JES spool as well as be small enough to be loaded into the JCL archive system. We found that we could use the JESLOG parm on the start command to make sure that these are spun off when they get to a certain size. You can also specify a specific time of day to spin off the data. You can find more information on the JESLOG parm in the JCL reference manuals. In order to use it on a started task, you can enter the start command like this: S x,JESLOG=(SPIN,) where is the number of lines ( you can also specify K M for thousands and millions of lines) OR S x,JESLOG=(SPIN,hh:mm) where hh:mm is the time of day Hope this helps! Kurt Gramling -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: TSO XMIT and RECEIVE commands in batch
Ale, We use a process that we can compress many datasets using ADRDSSU DUMP (DFDSS Utility) into a single dataset, XMIT this dataset into a secondary dataset which can then be FTP'd to the final destination. This allows us to do many different kinds of datasets within a single transfer. On the other side, we do a RECEIVE and then a ADRDSSU RESTORE. Hope this helps. Kurt Gramling Ale Eba [EMAIL PROTECTED]To: IBM-MAIN@BAMA.UA.EDU cc: Sent by: IBMSubject: [IBM-MAIN] TSO XMIT and RECEIVE commands in batch Mainframe Discussion List [EMAIL PROTECTED] .EDU 05/23/2007 01:24 PM Please respond to IBM Mainframe Discussion List I want to copy datasets from one z/OS image to another. There is no shared DASD. To use a tape is not easy because of management problems. I tried to XMIT using a batch job. When I ran the batch receive job, the datasets were not received in correct DD names . Is there a way to get around this problem ? Ale - Bored stiff? Loosen up... Download and play hundreds of games for free on Yahoo! Games. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: TSO XMIT and RECEIVE commands in batch
Ale, We use a process that we can compress many datasets using ADRDSSU DUMP (DFDSS Utility) into a single dataset, XMIT this dataset into a secondary dataset which can then be FTP'd to the final destination. This allows us to do many different kinds of datasets within a single transfer. On the other side, we do a RECEIVE and then a ADRDSSU RESTORE. Hope this helps. Kurt Gramling I want to copy datasets from one z/OS image to another. There is no shared DASD. To use a tape is not easy because of management problems. I tried to XMIT using a batch job. When I ran the batch receive job, the datasets were not received in correct DD names . Is there a way to get around this problem ? Ale -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: calling ISPLINK from COBOL
Like I said before, the ZTERMCID value should be TCCSID. OK, I've now got the batch ISPF set up and working and the program now looks like this - CBL DYNAM IDENTIFICATION DIVISION. PROGRAM-ID. CCSID. ENVIRONMENT DIVISION. CONFIGURATION SECTION. DATA DIVISION. WORKING-STORAGE SECTION. 01 ISPLINK PIC X(8) VALUE 'ISPLINK '. 01 TCCSID PIC X(5). 01 LCCSID PIC S9(8) COMP VALUE 5. 01 VDEFINE PIC X(8) VALUE 'VDEFINE '. 01 ZTERMCID PIC X(8) VALUE 'ZTERMCID'. 01 CHAR PIC X(4) VALUE 'CHAR'. 01 VGET PIC X(8) VALUE 'VGET'. 01 SHARED PIC X(8) VALUE 'SHARED '. PROCEDURE DIVISION. CALL ISPLINK USING VDEFINE ZTERMCID TCCSID CHAR LCCSID. DISPLAY RETURN-CODE UPON SYSOUT. CALL ISPLINK USING VGET ZTERMCID SHARED. DISPLAY RETURN-CODE UPON SYSOUT. DISPLAY TCCSID UPON SYSOUT GOBACK. I'm now getting rc=0 from the VDEFINE but the VGET returns rc=8 - variable not found. Jim McAlpine -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: calling ISPLINK from COBOL
Jim,
Change the W-S fields to this:
01 ZTERMCID PIC X(8) VALUE '(TCCSID)'.
01 LCCSID PIC 9(6) comp VALUE 5.
Kurt Gramling
I'm trying to convert the following pseudo code to run under COBOL -
DCL TCCSID CHAR(5); /* TERMINAL CCSID */
CALL ISPLINK('VDEFINE','ZTERMCID',TCCSID,'CHAR',
LENGTH(TCCSID));
CALL ISPLINK('VGET ','ZTERMCID','SHARED ');
and I've come up with -
WORKING-STORAGE SECTION.
01 TCCSID PIC X(5).
01 LCCSID PIC S9(8) VALUE 5.
01 VDEFINE PIC X(8) VALUE 'VDEFINE '.
01 ZTERMCID PIC X(8) VALUE 'ZTERMCID'.
01 CHAR PIC X(4) VALUE 'CHAR'.
01 VGET PIC X(8) VALUE 'VGET'.
01 SHARED PIC X(8) VALUE 'SHARED '.
PROCEDURE DIVISION.
CALL 'ISPLINK' USING
VDEFINE ZTERMCID TCCSID CHAR LCCSID.
DISPLAY RETURN-CODE UPON SYSOUT.
CALL 'ISPLINK' USING
VGET ZTERMCID SHARED.
DISPLAY RETURN-CODE UPON SYSOUT.
DISPLAY TCCSID UPON SYSOUT
GOBACK.
but I'm getting rc=20 - severe error from both calls to ISPLINK. It's 20
years since I've done any of this stuff and I've been looking at it all
afternoon without success. Can someone put me out of my Friday afternoon
misery please. Is it time to go home yet.
Jim
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: calling ISPLINK from COBOL
Jim, You may not have all of the allocations correct in the batch JCL. Try putting the load in a dataset allocated in your ISPLLIB of your TSO session and executing it directly - TSO CCSID. Kurt Gramling OK, I've changed the calls to dynam and changed the length and ZTERMCID as follows - CBL DYNAM IDENTIFICATION DIVISION. PROGRAM-ID. CCSID. ENVIRONMENT DIVISION. CONFIGURATION SECTION. DATA DIVISION. WORKING-STORAGE SECTION. 01 ISPLINK PIC X(8) VALUE 'ISPLINK '. 01 TCCSID PIC X(5). 01 LCCSID PIC S9(8) COMP VALUE 5. 01 VDEFINE PIC X(8) VALUE 'VDEFINE '. 01 ZTERMCID PIC X(8) VALUE 'TCCSID '. 01 CHAR PIC X(4) VALUE 'CHAR'. 01 VGET PIC X(8) VALUE 'VGET'. 01 SHARED PIC X(8) VALUE 'SHARED '. PROCEDURE DIVISION. CALL ISPLINK USING VDEFINE ZTERMCID TCCSID CHAR LCCSID. DISPLAY RETURN-CODE UPON SYSOUT. CALL ISPLINK USING VGET ZTERMCID SHARED. DISPLAY RETURN-CODE UPON SYSOUT. DISPLAY TCCSID UPON SYSOUT GOBACK. but still rc=20. I'm getting the feeling it's something more basic. It's running just as a batch COBOL program BTW. Jim McAlpine -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: calling ISPLINK from COBOL
Jim, When you execute the program, are you running under a batch job or in TSO? Are you sure the call to ISPLINK is dynamic? I don't know if static links will work. Kurt Gramling OK, I've changed both of those but still getting rc=20. WORKING-STORAGE SECTION. 01 TCCSID PIC X(5). 01 LCCSID PIC S9(8) COMP VALUE 5. 01 VDEFINE PIC X(8) VALUE 'VDEFINE '. 01 ZTERMCID PIC X(8) VALUE '(TCCSID)'. 01 CHAR PIC X(4) VALUE 'CHAR'. 01 VGET PIC X(8) VALUE 'VGET'. 01 SHARED PIC X(8) VALUE 'SHARED '. PROCEDURE DIVISION. CALL 'ISPLINK' USING VDEFINE ZTERMCID TCCSID CHAR LCCSID. DISPLAY RETURN-CODE UPON SYSOUT. CALL 'ISPLINK' USING VGET ZTERMCID SHARED. DISPLAY RETURN-CODE UPON SYSOUT. DISPLAY TCCSID UPON SYSOUT GOBACK. Jim McAlpine On 5/18/07, Kurt Gramling [EMAIL PROTECTED] wrote: Jim, Change the W-S fields to this: 01 ZTERMCID PIC X(8) VALUE '(TCCSID)'. 01 LCCSID PIC 9(6) comp VALUE 5. Kurt Gramling -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: rexx sample
Ali,
You can use some code similar to this:
/* REXX */
CONSOLE ACTIVATE
CONSPROF SOLDISPLAY(NO) SOLNUM(100)
ADDRESS CONSOLE
console command
DISPMSG = ''
MCODE = GETMSG('DISPMSG.','SOL',,,10)
DO UNTIL DISPMSG.1 = ''
SAY DISPMSG.1
DISPMSG.1 = ''
MCODE = GETMSG('DISPMSG.','SOL',,,10)
END
EXIT 0
Kurt Gramling
Hi all,
Does anybody out there have a sample in REXX to send a message to console
and get a response from operator ,something like WTOR(write to operator
with reply) macro in assembly?
Any help is highly appretiated.
Regards,
Ali
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: jcl.
Raj,
If you have Enterprise COBOL available, it can dynamically allocate
datasets using a call to PUTENV.
Here's some sampe code:
IDENTIFICATION DIVISION.
PROGRAM-ID.DYNAMFIL.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT VIEW-FILE
ASSIGN TO DYNAMDSN.
DATA DIVISION.
FILE SECTION.
FD VIEW-FILE
RECORD CONTAINS 80 CHARACTERS
BLOCK CONTAINS RECORDS.
01 VIEW-FILE-REC.
05 FILLER PIC X(80).
WORKING-STORAGE SECTION.
01 DYN-WORK.
05 DYN-POINTER POINTER.
05 DYN-RCPIC S9(9) COMP SYNC VALUE ZERO.
01 DYN-WORK.
05 DYN-POINTER POINTER.
05 DYN-RCPIC S9(9) COMP SYNC VALUE ZERO.
05 DYN-WORK-AREA PIC X(2000).
01 FILE-TEMP-DATAPIC X(56)
VALUE ' THIS DATA WILL BE WRITTEN'.
01 WS-CURRENT-DATE.
05 WS-CC PIC X(02).
05 WS-DATEPIC X(06).
05 WS-TIMEPIC X(13).
PROCEDURE DIVISION.
MOVE FUNCTION CURRENT-DATE TO WS-CURRENT-DATE
STRING 'DYNAMDSN=DSN(' DELIMITED BY SIZE
'KXG.TEST.D' DELIMITED BY SIZE
WS-DATE DELIMITED BY SIZE
') NEW CYL ' DELIMITED BY SIZE
'SPACE(10,10) ' DELIMITED BY SIZE
'CATALOG ' DELIMITED BY SIZE
'MGMTCLAS(MU01DAY) ' DELIMITED BY SIZE
'STORCLAS(SU0BASE) ' DELIMITED BY SIZE
INTO DYN-WORK-AREA.
SET DYN-POINTER TO ADDRESS OF DYN-WORK-AREA.
CALL 'PUTENV' USING BY VALUE DYN-POINTER
RETURNING DYN-RC.
IF DYN-RC = 0
OPEN OUTPUT VIEW-FILE
WRITE VIEW-FILE-REC
FROM FILE-TEMP-DATA
CLOSE VIEW-FILE
ELSE
DISPLAY '**ALLOCATED FILE FAILED*'
DISPLAY 'RETURN-CODE=' DYN-RC
DISPLAY 'DYN-WORK-AREA = ' DYN-WORK-AREA
END-IF.
GOBACK.
Hope this helps.
Kurt Gramling
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
Re: jcl.
You must compile the program with the NODYNAM option. Kurt Gramling -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
