On Wed, 20 Jun 2007 12:38:44 -0400, Schramm, Rob wrote: >I keep looking thru the manuals, but all I see is the use of RPTOPTS(ON) >on some current LE using program. > >I am sure (ok.. hoping) that there is a way list out all LE run-time >options? >
Run a stub with the LE report options on in the JCL:
Sorry about the length of this one. I clipped most of the comments and
unnecessary junk from the program, but it's still pretty long. Just compile the
program and run the JCL and you'll get an LE report. This is the only way I
know of to list currently active LE options.
//********************************************************
//DUMMY1 EXEC PGM=DUMMYPGM,
// PARM='/RPTOPTS(ON),RPTSTG(ON)'
//********************************************************
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SUBDAT DD DSN=MFD.PARMADLY.MFDE0S0G(POPDATE),
// DISP=SHR
//DUMMYFIL DD DUMMY,
// DCB=BLKSIZE=80
//*
IDENTIFICATION DIVISION.
PROGRAM-ID. DUMMYPGM.
AUTHOR. DAVE KOPISCHKE.
DATE-WRITTEN. JULY 23, 2003.
DATE-COMPILED.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM-370.
OBJECT-COMPUTER. IBM-370.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT DUMMY-FILE ASSIGN TO DUMMYFIL.
DATA DIVISION.
FILE SECTION.
FD DUMMY-FILE
LABEL RECORDS ARE STANDARD
RECORDING MODE IS F
BLOCK CONTAINS 0 RECORDS.
01 DUMMY-RECORD.
05 DUMMY-REC PIC X(80).
WORKING-STORAGE SECTION.
01 FILLER PIC X(40) VALUE
'WORKING STORAGE STARTS HERE'.
PROCEDURE DIVISION.
**************************************************
* *
* 0000-MAIN-PROCESSING. *
* *
**************************************************
0000-MAIN-PROCESSING.
PERFORM 1000-INITIALIZATION THRU
1000-INITIALIZATION-EXIT.
PERFORM 9000-TERMINATION THRU
9000-TERMINATION-EXIT.
GOBACK.
**************************************************
* *
* 1000-INITIALIZATION. *
* *
* THIS ROUTINE OPENS INPUT FILE AND INITIALIZES AREAS.*
* *
**************************************************
1000-INITIALIZATION.
OPEN INPUT DUMMY-FILE.
1000-INITIALIZATION-EXIT.
EXIT.
**************************************************
* *
* 9000-TERMINATION. *
* *
* THIS ROUTINE CLOSES THE FILE AT END OF PROCESSING. *
* *
**************************************************
9000-TERMINATION.
CLOSE DUMMY-FILE.
9000-TERMINATION-EXIT.
EXIT.
----------------------------------------------------------------------
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
