Deck LIBDECK

1 Modification

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.libdeck +++|*NOSEQ
00002  M01S00002.libdeck +++|LIBD00
00003  M01S00003.libdeck +++|*/
00004  M01S00004.libdeck +++|*/        LIBDECK WITH NO UEM OR ESM.
00005  M01S00005.libdeck +++|*/
00006  M01S00006.libdeck +++|*CALL COMLBAS

Line S00007 Modification History
`M01` (Added by)	`libdeck`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00007.274l797 ---|*CALL COMLPRC
00008  M01S00008.libdeck +++|*CALL COMLFLD
00009  M01S00009.libdeck +++|*CALL COMLSCD
00010  M01S00010.libdeck +++|*WEOR
00011  M01S00011.libdeck +++|LIBD01
00012  M01S00012.libdeck +++|*/
00013  M01S00013.libdeck +++|*/        LIBDECK WITH ESM.
00014  M01S00014.libdeck +++|*/
00015  M01S00015.libdeck +++|*CALL COMLESM

Line S00016 Modification History
`M01` (Added by)	`libdeck`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
00016  M02S00016.274l797 ---|*CALL COMLPRC
00017  M01S00017.libdeck +++|*CALL COMLFLD
00018  M01S00018.libdeck +++|*CALL COMLSCD
00019  M01S00019.libdeck +++|*WEOR
00020  M01S00020.libdeck +++|LIBD02
00021  M01S00021.libdeck +++|*/
00022  M01S00022.libdeck +++|*/        LIBDECK WITH UEM.
00023  M01S00023.libdeck +++|*/
00024  M01S00024.libdeck +++|*CALL COMLUEM

Line S00025 Modification History
`M01` (Added by)	`libdeck`
`M02` (Updated by)	`274l797`

Seq #  *Modification Id* Act 
----------------------------+
00025  M02S00025.274l797 ---|*CALL COMLPRC
00026  M01S00026.libdeck +++|*CALL COMLFLD
00027  M01S00027.libdeck +++|*CALL COMLSCD
00028  M01S00014.libdeck +++|RDFP

Line S162240 Modification History
`M01` (Yanked) (Updated by)	`@025796`
`M02` (Yanked) (Updated by)	`@058564`
`M03` (Yanked) (Added by)	`@013768`
`M04` (Yanked) (Added by)	`@016583`
`M05` (Yanked) (Updated by)	`@054223`
`M06` (Yanked) (Updated by)	`@037837`
`M07` (Yanked) (Added by)	`@015295`

Seq #  *Modification Id* Act 
----------------------------+
00029  M07S162240.@015295 +++|6

Line S82437 Modification History
`M01` (Yanked) (Updated by)	`@053454`
`M02` (Yanked) (Added by)	`@009348`
`M03` (Yanked) (Added by)	`@000973`
`M04` (Yanked) (Updated by)	`@016973`
`M05` (Yanked) (Updated by)	`@028671`
`M06` (Yanked) (Updated by)	`@000008`
`M07` (Added by)	`libdeck`

Seq #  *Modification Id* Act 
----------------------------+
00030  M07S82437.libdeck +++|*         SENSE SWITCH IS SET *ON*.
00031  M01S00012.libdeck +++|*                ABORTS.  THIS WILL RETAIN USERS ACROSS A RECOVERY
00032  M01S00013.libdeck +++|*                DEADSTART.
00033  M01S00014.libdeck +++|*
00034  M01S00015.libdeck +++|*         SSW2   DO NOT RELOAD AFTER AN ABORT.  RELEASE OUTPUT FILE TO
00035  M01S00016.libdeck +++|*                THE OUTPUT QUEUE.
00036  M01S00017.libdeck +++|*
00037  M01S00018.libdeck +++|*         SSW3   ABORT ON ABNORMAL CONDITIONS.  THIS WILL FORCE AN
00038  M01S00019.libdeck +++|*                INTERNALLY GENERATED ABORT WHEN AN INTERNAL ERROR
00039  M01S00020.libdeck +++|*                SITUATION OCCURS.  A DAYFILE MESSAGE WILL BE ISSUED
00040  M01S00021.libdeck +++|*                GIVING THE NAME OF THE SUBROUTINE BY WHICH THE ERROR
00041  M01S00022.libdeck +++|*                WAS DETECTED.
00042  M01S00023.libdeck +++|*
00043  M01S00024.libdeck +++|*         SSW4   DUMP FIELD LENGTH TO THE OUTPUT FILE AFTER OPERATOR
00044  M01S00025.libdeck +++|*                IDLE.
00045  M01S00026.libdeck +++|*
00046  M01S00027.libdeck +++|*         SSW5   DUMP FIELD LENGTH TO THE OUTPUT FILE AFTER AN
00047  M01S00028.libdeck +++|*                INTERNAL ABORT ON ABNORMAL CONDITIONS.  THE OUTPUT
00048  M01S00029.libdeck +++|*                FILE WILL NOT BE RELEASED TO THE OUTPUT QUEUE UNTIL
00049  M01S00030.libdeck +++|*                AFTER IAFEX TERMINATION UNLESS SENSE SWITCH 6 IS SET.
00050  M01S00031.libdeck +++|*                THIS SWITCH IS SET AUTOMATICALLY DURING INITIALIZA-
00051  M01S00032.libdeck +++|*                TION AND SHOULD BE CLEARED VIA AN *OFFSW* WHILE IAF
00052  M01S00033.libdeck +++|*                IS RUNNING IF THIS OPTION IS NOT DESIRED.
00053  M01S00034.libdeck +++|*
00054  M01S00035.libdeck +++|*         SSW6   RELEASE THE DUMP OUTPUT FILE TO THE OUTPUT QUEUE
00055  M01S00036.libdeck +++|*                IMMEDIATELY AFTER A IDLE OR AN ABORT.
00056  M01S00037.libdeck +++|ONSW(1,6)
00057  M01S00038.libdeck +++|RETURN(RDF)
00058  M01S00039.libdeck +++|IFE(OT.EQ.SYO,OTERR)
00059  M01S00040.libdeck +++|  NOEXIT.
00060  M01S00041.libdeck +++|  SET,EFG=1.
00061  M01S00042.libdeck +++|  WHILE((EFG.NE.0).AND.(EF.LT.SPE).AND.(SW2.EQ.0),LOOP)
00062  M01S00043.libdeck +++|    SET,EFG=0.
00063  M01S00044.libdeck +++|    RFL,0.
00064  M01S00045.libdeck +++|    RDFEX.
00065  M01S00046.libdeck +++|    IAFEX2.
00066  M01S00047.libdeck +++|    IFE,FILE(OUTPUT,AS),DUMP.
00067  M01S00048.libdeck +++|      SET,EFG=1.
00068  M01S00049.libdeck +++|      IFE,FILE(ZZZZDMM,AS),DSDI.
00069  M01S00050.libdeck +++|        RFL,70000.
00070  M01S00051.libdeck +++|        DSDI,F=ZZZZDMM,L=OUTPUT,Z.$EJT.$RDF.$CP,1/X.
00071  M01S00052.libdeck +++|        RETURN,ZZZZDMM.
00072  M01S00053.libdeck +++|      ENDIF(DSDI)
00073  M01S00054.libdeck +++|      DAYFILE,OP=I.
00074  M01S00055.libdeck +++|      IFE,SW6,ROUTE.
00075  M01S00056.libdeck +++|        ROUTE,OUTPUT,DC=PR.
00076  M01S00057.libdeck +++|      ELSE(ROUTE)
00077  M01S00058.libdeck +++|        SKIPEI,ZZZZOUT.
00078  M01S00059.libdeck +++|        REWIND,OUTPUT.
00079  M01S00060.libdeck +++|        COPYEI,OUTPUT,ZZZZOUT.
00080  M01S00061.libdeck +++|        RETURN,OUTPUT.
00081  M01S00062.libdeck +++|      ENDIF(ROUTE)
00082  M01S00063.libdeck +++|    ENDIF(DUMP)
00083  M01S00064.libdeck +++|  ENDW(LOOP)
00084  M01S00065.libdeck +++|  IFE,FILE(ZZZZOUT,AS),ZOUT.
00085  M01S00066.libdeck +++|    ROUTE,ZZZZOUT,DC=PR.
00086  M01S00067.libdeck +++|  ENDIF(ZOUT)
00087  M01S00068.libdeck +++|  REVERT.  RDF END.
00088  M01S00069.libdeck +++|ENDIF,OTERR.
00089  M01S00070.libdeck +++|REVERT,ABORT.  INCORRECT ORIGIN TYPE.