APAR status
Closed as canceled.
Error description
DESCRIPTION OF MODULE IESINSRT THIS PROGRAM COPIES ALL INPUT RECORDS FROM 'SYSIPT' UP TO A '* $$ END' RECORD TO SYSPCH. THE '* $$ END' IS NOT COPIED, BUT CAUSES THE PROGRAM TO EXIT. THE PUNCHED OUTPUT OF THIS PROGRAM IS INTENDED TO BUILD A NEW ENTRY IN THE POWER READER QUEUE BECAUSE OF THE '* $$ PUN DISP=I' STATEMENT THAT IS SUPPOSED TO BE PART OF THE JCL FOR THIS PROGRAM. ANY NESTING LEVEL IS SUPPORTED. '* $$ END' MAY BE HIDDEN LIKE POWER JCL BY A '$' INSTEAD OF '*'. ON THE HIGHEST NESTING LEVEL ALL STATEMENTS STARTING WITH '$ $$' ARE CHANGED TO '* $$'. '/*' AND '/&' MAY BE HIDDEN BY A '#' INSTEAD OF '/'. ON THE HIGHEST NESTING LEVEL THE '#' IS USED TO AVOID A PREMATURE EOF CONDITION. All JCL statements between a GOTO and the target label statement are ignored except for // JOB and /&. In order to avoid job termination these statements must be hidden by #. INVOCATION OF THE MODULE THROUGH: '// EXEC IESINSRT' CHANGES WITH ESA 1.3.0 : - SYSIPT HAS TO BE ASSIGNED INSTEAD OF SYS005. - ANY NESTING LEVEL IS SUPPORTED NOW. ********************************************************* C$QASONL IS SHOWN AS AN EXAMPLE: * $$ JOB JNM=COMUSER,DISP=D,CLASS=A,NTFY=YES 1 * $$ LST DISP=D,CLASS=Q,PRI=3 1 * $$ PUN DISP=I,PRI=9,CLASS=A 1 // JOB COMUSER SQL PRE PROCESS TEST 1 // ASSGN SYSIPT,SYSRDR 1 // EXEC IESINSRT 1 $ $$ LST DISP=D,CLASS=Q,PRI=3 2 $ $$ PUN DISP=I,PRI=9,CLASS=A 2 // JOB COMUSER CICS PRE PROCESS TEST 2 // ASSGN SYSIPT,SYSRDR 2 // EXEC IESINSRT 2 $ $$ LST DISP=D,CLASS=Q,PRI=3 3 // JOB COMUSER COMPILE PROGRAM TEST 3 // SETPARM CATALOG=2 3 // IF CATALOG = 1 THEN 3 // GOTO CAT 3 // OPTION ERRS,SXREF,SYM,LIST,NODECK 3 // GOTO ENDCAT 3 /. CAT 3 // LIBDEF PHASE,CATALOG=LIB.SUBLIB 3 // LIBDEF *,SEARCH=PRD2.SQL320 3 // OPTION ERRS,SXREF,SYM,CATAL,NODECK 3 // OPTION ERRS,SXREF,SYM,CATAL,NODECK 3 PHASE TEST,* 3 INCLUDE DFHEAI 3 /. ENDCAT 3 // EXEC ASSEMBLY,SIZE=256K 3 $ $$ END 3 // ON $CANCEL OR $ABEND GOTO ENDJ3 2 // OPTION NOLIST,NODUMP,DECK 2 // EXEC DFHEAP1$,SIZE=512K 2 *ASM XOPTS(CICS) 2 * $$ END 2 // ON $CANCEL OR $ABEND GOTO ENDJ2 1 // LIBDEF *,SEARCH=PRD2.SQL320 1 // EXEC PROC=ARIS32DB 1 // EXEC PROC=ARIS32PL // EXEC ARIPRPA,SIZE=AUTO,PARM='ISOLATION(CS),NOBLK, 1 * USERID=SQLDBA/SQLDBAPW,PREP=TEST' 1 * $$ SLI ICCF=(TEST),LIB=(0099) 1 /* 1 /. ENDJ2 1 // EXEC IESINSRT 1 /* 2 /. ENDJ3 2 // EXEC IESINSRT 2 /* 3 // IF CATALOG NE 1 OR $MRC GT 4 THEN 3 // GOTO NOLNK 3 INCLUDE ARIRRTED 3 // EXEC LNKEDT,SIZE=256K 3 /. NOLNK 3 #& 3 $ $$ EOJ 3 $ $$ END 3 #& 2 $ $$ EOJ 2 * $$ END 2 /& 1 * $$ EOJ 1 =========================================================== FOLLOWING 3 JOBS ARE GENERATED : $ $$ JOB JNM=COMUSER,DISP=D,CLASS=A,NTFY=YES 1 * $$ LST DISP=D,CLASS=Q,PRI=3 1 * $$ PUN DISP=I,PRI=9,CLASS=A 1 // JOB COMUSER SQL PRE PROCESS TEST 1 // ASSGN SYSIPT,SYSRDR 1 // EXEC IESINSRT 1 // ON $CANCEL OR $ABEND GOTO ENDJ2 1 // LIBDEF *,SEARCH=PRD2.SQL320 1 // EXEC PROC=ARIS32DB 1 // EXEC PROC=ARIS32PL // EXEC ARIPRPA,SIZE=AUTO,PARM='ISOLATION(CS),NOBLK, 1 * USERID=SQLDBA/SQLDBAPW,PREP=TEST' 1 * $$ SLI ICCF=(TEST),LIB=(0099) 1 /* 1 /* 1 /. ENDJ2 1 // EXEC IESINSRT 1 /& 1 * $$ EOJ 1 -------------------------------------------------------- * $$ LST DISP=D,CLASS=Q,PRI=3 2 * $$ PUN DISP=I,PRI=9,CLASS=A 2 // JOB COMUSER CICS PRE PROCESS TEST 2 // ASSGN SYSIPT,SYSRDR 2 // EXEC IESINSRT 2 // ON $CANCEL OR $ABEND GOTO ENDJ3 2 // OPTION NOLIST,NODUMP,DECK 2 // EXEC DFHEAP1$,SIZE=512K 2 *ASM XOPTS(CICS) 2 /* 2 /. ENDJ3 2 // EXEC IESINSRT 2 /& 2 * $$ EOJ 2 -------------------------------------------------------- * $$ LST DISP=D,CLASS=Q,PRI=3 3 // JOB COMUSER COMPILE PROGRAM TEST 3 // SETPARM CATALOG=2 3 // IF CATALOG = 1 THEN 3 // GOTO CAT 3 // OPTION ERRS,SXREF,SYM,LIST,NODECK 3 // GOTO ENDCAT 3 /. CAT 3 // LIBDEF PHASE,CATALOG=LIB.SUBLIB 3 // LIBDEF *,SEARCH=PRD2.SQL320 3 // OPTION ERRS,SXREF,SYM,CATAL,NODECK 3 PHASE TEST,* 3 INCLUDE DFHEAI 3 /. ENDCAT 3 // EXEC ASSEMBLY,SIZE=256K 3 /* 3 // IF CATALOG NE 1 OR $MRC GT 4 THEN 3 // GOTO NOLNK 3 INCLUDE ARIRRTED 3 // EXEC LNKEDT,SIZE=256K 3 /. NOLNK 3 /& 3 * $$ EOJ 3
Local fix
Problem summary
Problem conclusion
Temporary fix
Comments
APAR Information
APAR number
II07191
Reported component name
PA LIB INFO ITE
Reported component ID
INFOPALIB
Reported release
001
Status
CLOSED CAN
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt / Xsystem
Submitted date
1993-10-12
Closed date
1993-10-12
Last modified date
1994-10-21
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
Fix information
Applicable component levels
[{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SG19N","label":"APARs - OS\/390 environment"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"001","Edition":"","Line of Business":{"code":"","label":""}},{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SG32M","label":"APARs - VSE\/ESA environment"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"001","Edition":"","Line of Business":{"code":"","label":""}},{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SG19M","label":"APARs - z\/OS environment"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"001","Edition":"","Line of Business":{"code":"","label":""}},{"Business Unit":{"code":null,"label":null},"Product":{"code":"SG19O","label":"APARs - MVS environment"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"001","Edition":"","Line of Business":{"code":"","label":""}},{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SSSN3L","label":"z\/OS Communications Server"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"001","Edition":"","Line of Business":{"code":"LOB35","label":"Mainframe SW"}},{"Business Unit":{"code":"BU054","label":"Systems w\/TPS"},"Product":{"code":"SG27M","label":"APARs - z\/VM environment"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"001","Edition":"","Line of Business":{"code":"LOB16","label":"Mainframe HW"}}]
Document Information
Modified date:
14 December 2020