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