Deck ULIB

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.ulib    +++|*NOSEQ
00002  M00S00002.ulib    +++|*WIDTH 132
00003  M00S00003.ulib    +++|.PROC,ULIB*I,
00004  M00S00004.ulib    +++|OP[Operation - C, A, D, F OR R]=(C,A,D,F,R),
00005  M00S00005.ulib    +++|REC[Record/file name]=(*F),
00006  M00S00006.ulib    +++|LIB[Library name]=(*F).
00007  M00S00007.ulib    +++|.HELP
00008  M00S00008.ulib    +++|ULIB creates or changes user libraries, or extracts single records.
00009  M00S00009.ulib    +++|.HELP,OP,NOLIST
00010  M00S00010.ulib    +++|
00011  M00S00011.ulib    +++|Enter     To
00012  M00S00012.ulib    +++|C         Create a new user library
00013  M00S00013.ulib    +++|A         Add a record to a user library
00014  M00S00014.ulib    +++|D         Delete a record from a user library
00015  M00S00015.ulib    +++|R         Replace a record in a user library
00016  M00S00016.ulib    +++|F         Fetch a record from a user library
00017  M00S00017.ulib    +++|          and make it a local file
00018  M00S00018.ulib    +++|
00019  M00S00019.ulib    +++|  Create, Add, Delete and Replace return the original copy of the user
00020  M00S00020.ulib    +++|library and create a new copy as a local file.
00021  M00S00021.ulib    +++|
00022  M00S00022.ulib    +++|   Default: None - must be specified.
00023  M00S00023.ulib    +++|.HELP,REC,NOLIST
00024  M00S00024.ulib    +++|
00025  M00S00025.ulib    +++|   REC is the name of the record in the user library and the name of the
00026  M00S00026.ulib    +++|local file which:
00027  M00S00027.ulib    +++|     For Create  - contains the original contents of the library, or
00028  M00S00028.ulib    +++|     For Replace - contains the record(s) to be replaced, or
00029  M00S00029.ulib    +++|     For Fetch   - is to contain the extracted record.
00030  M00S00030.ulib    +++|
00031  M00S00031.ulib    +++|   Default: None - Record name must be specified.
00032  M00S00032.ulib    +++|.HELP,LIB,NOLIST
00033  M00S00033.ulib    +++|
00034  M00S00034.ulib    +++|   LIB is the local file name of the library to be created or the
00035  M00S00035.ulib    +++|library which contains the record to be Added, Deleted, Replaced, or
00036  M00S00036.ulib    +++|Fetched.
00037  M00S00037.ulib    +++|
00038  M00S00038.ulib    +++|   Default: None - LIB must be specified.
00039  M00S00039.ulib    +++|.ENDHELP
00040  M00S00040.ulib    +++|.*
00041  M00S00041.ulib    +++|.* CREATE
00042  M00S00042.ulib    +++|.*
00043  M00S00043.ulib    +++|.IFE($OP$.EQ.$C$,CREATE)
00044  M00S00044.ulib    +++| REWIND,LIB.
00045  M00S00045.ulib    +++|.IFE(FILE(REC,AS),CMEM)
00046  M00S00046.ulib    +++| LIBRARY,LIB/D.
00047  M00S00047.ulib    +++| LIBGEN,F=REC,P=LIB,NX.
00048  M00S00048.ulib    +++| REVERT,NOLIST.
00049  M00S00049.ulib    +++|.ELSE,CMEM.
00050  M00S00050.ulib    +++| NOTE,OUTPUT./RECORD FILE REC NOT FOUND/
00051  M00S00051.ulib    +++| REVERT,EX.ULIB,OP,,LIB.
00052  M00S00052.ulib    +++|.ENDIF,CMEM.
00053  M00S00053.ulib    +++|.ELSE,CREATE.
00054  M00S00054.ulib    +++|.*
00055  M00S00055.ulib    +++|.* SEE IF LIBRARY FILE EXISTS
00056  M00S00056.ulib    +++|.*
00057  M00S00057.ulib    +++|.IFE(.NOT.FILE(LIB,AS),HAVELIB)
00058  M00S00058.ulib    +++| NOTE,OUTPUT./LIBRARY FILE NOT FOUND/
00059  M00S00059.ulib    +++| REVERT,EX.ULIB,OP,REC.
00060  M00S00060.ulib    +++|.ENDIF,HAVELIB.
00061  M00S00061.ulib    +++|.*
00062  M00S00062.ulib    +++|.* FETCH
00063  M00S00063.ulib    +++|.*
00064  M00S00064.ulib    +++|.IFE($OP$.EQ.$F$,FETCH)
00065  M00S00065.ulib    +++| RETURN,REC.
00066  M00S00066.ulib    +++| REWIND,LIB.

Line S00067 Modification History
`M01` (Removed by)	`ulib1`

Seq #  *Modification Id* Act 
----------------------------+
00067  M01S00067.ulib1   ---| COPYX,LIB,0,REC,1.

Line S00001 Modification History
`M01` (Added by)	`ulib1`

Seq #  *Modification Id* Act 
----------------------------+
00068  M01S00001.ulib1   +++| COPYX,LIB,LIB,REC,1.
00069  M00S00068.ulib    +++| COPYBR,LIB,REC.

Line S00002 Modification History
`M01` (Added by)	`ulib1`

Seq #  *Modification Id* Act 
----------------------------+
00070  M01S00002.ulib1   +++| RETURN,ZZZZZUV.
00071  M01S00003.ulib1   +++| WRITER,ZZZZZUV.
00072  M01S00004.ulib1   +++| ERRMSG,OFF.
00073  M01S00005.ulib1   +++| VERIFY,REC,ZZZZZUV,L=LISTVE,A,R.
00074  M01S00006.ulib1   +++| ERRMSG,ON.
00075  M01S00007.ulib1   +++| NOTE,OUTPUT./RECORD FILE REC NOT FOUND/
00076  M01S00008.ulib1   +++| RETURN,REC,LISTVE,ZZZZZUV.
00077  M01S00009.ulib1   +++| REVERT,EX.ULIB,OP,,LIB.
00078  M01S00010.ulib1   +++| EXIT.
00079  M01S00011.ulib1   +++| ERRMSG,ON.
00080  M01S00012.ulib1   +++| RETURN,LISTVE,ZZZZZUV.
00081  M00S00069.ulib    +++| REWIND,LIB,REC.
00082  M00S00070.ulib    +++| REVERT,NOLIST.
00083  M00S00071.ulib    +++|.ENDIF,FETCH.
00084  M00S00072.ulib    +++|.*
00085  M00S00073.ulib    +++|.* REPLACE OR ADD
00086  M00S00074.ulib    +++|.*
00087  M00S00075.ulib    +++|.IFE($OP$.EQ.$R$.OR.$OP$.EQ.$A$,REPLACE)

Line S00013 Modification History
`M01` (Added by)	`ulib1`

Seq #  *Modification Id* Act 
----------------------------+
00088  M01S00013.ulib1   +++|.IFE(.NOT.FILE(REC,AS),ADDREC)
00089  M01S00014.ulib1   +++| NOTE,OUTPUT./RECORD FILE REC NOT FOUND/
00090  M01S00015.ulib1   +++| REVERT,EX.ULIB,OP,,LIB.
00091  M01S00016.ulib1   +++|.ENDIF,ADDREC.
00092  M00S00076.ulib    +++| REWIND,LIB,REC,ZZZZZUU.
00093  M00S00077.ulib    +++| COPY,LIB,ZZZZZUU.
00094  M00S00078.ulib    +++| LIBRARY,LIB/D.
00095  M00S00079.ulib    +++| RETURN,LIB.

Line S00080 Modification History
`M01` (Removed by)	`ulib1`

Seq #  *Modification Id* Act 
----------------------------+
00096  M01S00080.ulib1   ---| LIBEDIT,P=ZZZZZUU,N=LIB,L=0,I=0,U,B=REC.
00097  M01S00081.ulib1   ---| RETURN,ZZZZZUU.

Line S00017 Modification History
`M01` (Added by)	`ulib1`

Seq #  *Modification Id* Act 
----------------------------+
00098  M01S00017.ulib1   +++| LIBEDIT,P=ZZZZZUU,N=LIB,L=0,I=0,U=LIB,B=REC.
00099  M01S00018.ulib1   +++| RETURN,ZZZZZUU,ZZZZZG2.
00100  M00S00082.ulib    +++| REVERT,NOLIST.
00101  M00S00083.ulib    +++|.ENDIF,REPLACE.
00102  M00S00084.ulib    +++|.*
00103  M00S00085.ulib    +++|.*   DELETE
00104  M00S00086.ulib    +++|.*
00105  M00S00087.ulib    +++|.IFE($OP$.EQ.$D$,DELETE)
00106  M00S00088.ulib    +++| REWIND,LIB,REC,ZZZZZUU.

Line S00089 Modification History
`M01` (Removed by)	`ulib1`

Seq #  *Modification Id* Act 
----------------------------+
00107  M01S00089.ulib1   ---| COPYX,LIB,ZZZZZUU,REC,3.
00108  M01S00090.ulib1   ---| COPYBR,LIB,ZZZZZUD.

Line S00019 Modification History
`M01` (Added by)	`ulib1`
`M02` (Removed by)	`ulib2`

Seq #  *Modification Id* Act 
----------------------------+
00109  M02S00019.ulib2   ---| COPYX,LIB,ZZZZZUU,REC,2.

Line S00001 Modification History
`M01` (Added by)	`ulib2`

Seq #  *Modification Id* Act 
----------------------------+
00110  M01S00001.ulib2   +++| COPYX,LIB,ZZZZZUU,REC,3.

Line S00020 Modification History
`M01` (Added by)	`ulib1`

Seq #  *Modification Id* Act 
----------------------------+
00111  M01S00020.ulib1   +++| COPYBR,LIB,REC.
00112  M01S00021.ulib1   +++| RETURN,ZZZZZUV.
00113  M01S00022.ulib1   +++| WRITER,ZZZZZUV.
00114  M01S00023.ulib1   +++| ERRMSG,OFF.
00115  M01S00024.ulib1   +++| VERIFY,REC,ZZZZZUV,L=LISTVE,A,R.
00116  M01S00025.ulib1   +++| ERRMSG,ON.
00117  M01S00026.ulib1   +++| NOTE,OUTPUT./RECORD FILE REC NOT FOUND/
00118  M01S00027.ulib1   +++| RETURN,REC,LISTVE,ZZZZZUV.
00119  M01S00028.ulib1   +++| REVERT,EX.ULIB,OP,,LIB.
00120  M01S00029.ulib1   +++| EXIT.
00121  M01S00030.ulib1   +++| ERRMSG,ON.
00122  M00S00091.ulib    +++| COPY,LIB,ZZZZZUU.
00123  M00S00092.ulib    +++| LIBRARY,LIB/D.

Line S00093 Modification History
`M01` (Removed by)	`ulib1`

Seq #  *Modification Id* Act 
----------------------------+
00124  M01S00093.ulib1   ---| RETURN,LIB.

Line S00031 Modification History
`M01` (Added by)	`ulib1`

Seq #  *Modification Id* Act 
----------------------------+
00125  M01S00031.ulib1   +++| RETURN,LIB,LISTVE,ZZZZZUV,REC.
00126  M00S00094.ulib    +++| LIBGEN,F=ZZZZZUU,P=LIB.
00127  M00S00095.ulib    +++| RETURN,ZZZZZUU.
00128  M00S00096.ulib    +++| REVERT,NOLIST.
00129  M00S00097.ulib    +++|.ENDIF,DELETE.
00130  M00S00098.ulib    +++|.ENDIF,CREATE.
00131  M00S00099.ulib    +++| EXIT.

Line S00100 Modification History
`M01` (Removed by)	`ulib1`

Seq #  *Modification Id* Act 
----------------------------+
00132  M01S00100.ulib1   ---| NOTE,OUTPUT./ULIB ERROR - LIB FORMAT BAD OR RECORD REC NOT FOUND
00133  M01S00101.ulib1   ---| REVERT,EX.ULIB?.
00134  M00S00102.ulib    +++|*WEOR