Deck ULIB

2 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.ulib    +++|*NOSEQ
00002  M01S00002.ulib    +++|*WIDTH 132
00003  M01S00003.ulib    +++|.PROC,ULIB*I,
00004  M01S00004.ulib    +++|OP[Operation - C, A, D, F OR R]=(C,A,D,F,R),
00005  M01S00005.ulib    +++|REC[Record/file name]=(*F),
00006  M01S00006.ulib    +++|LIB[Library name]=(*F).
00007  M01S00007.ulib    +++|.HELP
00008  M01S00008.ulib    +++|ULIB creates or changes user libraries, or extracts single records.
00009  M01S00009.ulib    +++|.HELP,OP,NOLIST
00010  M01S00010.ulib    +++|
00011  M01S00011.ulib    +++|Enter     To
00012  M01S00012.ulib    +++|C         Create a new user library
00013  M01S00013.ulib    +++|A         Add a record to a user library
00014  M01S00014.ulib    +++|D         Delete a record from a user library
00015  M01S00015.ulib    +++|R         Replace a record in a user library
00016  M01S00016.ulib    +++|F         Fetch a record from a user library
00017  M01S00017.ulib    +++|          and make it a local file
00018  M01S00018.ulib    +++|
00019  M01S00019.ulib    +++|  Create, Add, Delete and Replace return the original copy of the user
00020  M01S00020.ulib    +++|library and create a new copy as a local file.
00021  M01S00021.ulib    +++|
00022  M01S00022.ulib    +++|   Default: None - must be specified.
00023  M01S00023.ulib    +++|.HELP,REC,NOLIST
00024  M01S00024.ulib    +++|
00025  M01S00025.ulib    +++|   REC is the name of the record in the user library and the name of the
00026  M01S00026.ulib    +++|local file which:
00027  M01S00027.ulib    +++|     For Create  - contains the original contents of the library, or
00028  M01S00028.ulib    +++|     For Replace - contains the record(s) to be replaced, or
00029  M01S00029.ulib    +++|     For Fetch   - is to contain the extracted record.
00030  M01S00030.ulib    +++|
00031  M01S00031.ulib    +++|   Default: None - Record name must be specified.
00032  M01S00032.ulib    +++|.HELP,LIB,NOLIST
00033  M01S00033.ulib    +++|
00034  M01S00034.ulib    +++|   LIB is the local file name of the library to be created or the
00035  M01S00035.ulib    +++|library which contains the record to be Added, Deleted, Replaced, or
00036  M01S00036.ulib    +++|Fetched.
00037  M01S00037.ulib    +++|
00038  M01S00038.ulib    +++|   Default: None - LIB must be specified.
00039  M01S00039.ulib    +++|.ENDHELP
00040  M01S00040.ulib    +++|.*
00041  M01S00041.ulib    +++|.* CREATE
00042  M01S00042.ulib    +++|.*
00043  M01S00043.ulib    +++|.IFE($OP$.EQ.$C$,CREATE)
00044  M01S00044.ulib    +++| REWIND,LIB.
00045  M01S00045.ulib    +++|.IFE(FILE(REC,AS),CMEM)
00046  M01S00046.ulib    +++| LIBRARY,LIB/D.
00047  M01S00047.ulib    +++| LIBGEN,F=REC,P=LIB,NX.
00048  M01S00048.ulib    +++| REVERT,NOLIST.
00049  M01S00049.ulib    +++|.ELSE,CMEM.
00050  M01S00050.ulib    +++| NOTE,OUTPUT./RECORD FILE REC NOT FOUND/
00051  M01S00051.ulib    +++| REVERT,EX.ULIB,OP,,LIB.
00052  M01S00052.ulib    +++|.ENDIF,CMEM.
00053  M01S00053.ulib    +++|.ELSE,CREATE.
00054  M01S00054.ulib    +++|.*
00055  M01S00055.ulib    +++|.* SEE IF LIBRARY FILE EXISTS
00056  M01S00056.ulib    +++|.*
00057  M01S00057.ulib    +++|.IFE(.NOT.FILE(LIB,AS),HAVELIB)
00058  M01S00058.ulib    +++| NOTE,OUTPUT./LIBRARY FILE NOT FOUND/
00059  M01S00059.ulib    +++| REVERT,EX.ULIB,OP,REC.
00060  M01S00060.ulib    +++|.ENDIF,HAVELIB.
00061  M01S00061.ulib    +++|.*
00062  M01S00062.ulib    +++|.* FETCH
00063  M01S00063.ulib    +++|.*
00064  M01S00064.ulib    +++|.IFE($OP$.EQ.$F$,FETCH)
00065  M01S00065.ulib    +++| RETURN,REC.
00066  M01S00066.ulib    +++| REWIND,LIB.

Line S00067 Modification History
`M01` (Added by)	`ulib`
`M02` (Updated by)	`ulib1`

Seq #  *Modification Id* Act 
----------------------------+
00067  M02S00067.ulib1   ---| COPYX,LIB,0,REC,1.
00068  M01S00001.ulib1   +++| COPYX,LIB,LIB,REC,1.
00069  M01S00068.ulib    +++| COPYBR,LIB,REC.
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  M01S00069.ulib    +++| REWIND,LIB,REC.
00082  M01S00070.ulib    +++| REVERT,NOLIST.
00083  M01S00071.ulib    +++|.ENDIF,FETCH.
00084  M01S00072.ulib    +++|.*
00085  M01S00073.ulib    +++|.* REPLACE OR ADD
00086  M01S00074.ulib    +++|.*
00087  M01S00075.ulib    +++|.IFE($OP$.EQ.$R$.OR.$OP$.EQ.$A$,REPLACE)
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  M01S00076.ulib    +++| REWIND,LIB,REC,ZZZZZUU.
00093  M01S00077.ulib    +++| COPY,LIB,ZZZZZUU.
00094  M01S00078.ulib    +++| LIBRARY,LIB/D.
00095  M01S00079.ulib    +++| RETURN,LIB.

Line S00080 Modification History
`M01` (Added by)	`ulib`
`M02` (Updated by)	`ulib1`

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

Line S00081 Modification History
`M01` (Added by)	`ulib`
`M02` (Updated by)	`ulib1`

Seq #  *Modification Id* Act 
----------------------------+
00097  M02S00081.ulib1   ---| RETURN,ZZZZZUU.
00098  M01S00017.ulib1   +++| LIBEDIT,P=ZZZZZUU,N=LIB,L=0,I=0,U=LIB,B=REC.
00099  M01S00018.ulib1   +++| RETURN,ZZZZZUU,ZZZZZG2.
00100  M01S00082.ulib    +++| REVERT,NOLIST.
00101  M01S00083.ulib    +++|.ENDIF,REPLACE.
00102  M01S00084.ulib    +++|.*
00103  M01S00085.ulib    +++|.*   DELETE
00104  M01S00086.ulib    +++|.*
00105  M01S00087.ulib    +++|.IFE($OP$.EQ.$D$,DELETE)
00106  M01S00088.ulib    +++| REWIND,LIB,REC,ZZZZZUU.

Line S00089 Modification History
`M01` (Added by)	`ulib`
`M02` (Updated by)	`ulib1`

Seq #  *Modification Id* Act 
----------------------------+
00107  M02S00089.ulib1   ---| COPYX,LIB,ZZZZZUU,REC,3.

Line S00090 Modification History
`M01` (Added by)	`ulib`
`M02` (Updated by)	`ulib1`

Seq #  *Modification Id* Act 
----------------------------+
00108  M02S00090.ulib1   ---| COPYBR,LIB,ZZZZZUD.

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

Seq #  *Modification Id* Act 
----------------------------+
00109  M02S00019.ulib2   ---| COPYX,LIB,ZZZZZUU,REC,2.
00110  M01S00001.ulib2   +++| COPYX,LIB,ZZZZZUU,REC,3.
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  M01S00091.ulib    +++| COPY,LIB,ZZZZZUU.
00123  M01S00092.ulib    +++| LIBRARY,LIB/D.

Line S00093 Modification History
`M01` (Added by)	`ulib`
`M02` (Updated by)	`ulib1`

Seq #  *Modification Id* Act 
----------------------------+
00124  M02S00093.ulib1   ---| RETURN,LIB.
00125  M01S00031.ulib1   +++| RETURN,LIB,LISTVE,ZZZZZUV,REC.
00126  M01S00094.ulib    +++| LIBGEN,F=ZZZZZUU,P=LIB.
00127  M01S00095.ulib    +++| RETURN,ZZZZZUU.
00128  M01S00096.ulib    +++| REVERT,NOLIST.
00129  M01S00097.ulib    +++|.ENDIF,DELETE.
00130  M01S00098.ulib    +++|.ENDIF,CREATE.
00131  M01S00099.ulib    +++| EXIT.

Line S00100 Modification History
`M01` (Added by)	`ulib`
`M02` (Updated by)	`ulib1`

Seq #  *Modification Id* Act 
----------------------------+
00132  M02S00100.ulib1   ---| NOTE,OUTPUT./ULIB ERROR - LIB FORMAT BAD OR RECORD REC NOT FOUND

Line S00101 Modification History
`M01` (Added by)	`ulib`
`M02` (Updated by)	`ulib1`

Seq #  *Modification Id* Act 
----------------------------+
00133  M02S00101.ulib1   ---| REVERT,EX.ULIB?.
00134  M01S00102.ulib    +++|*WEOR