The Page

<<< Log from axelib.pittstate.edu started February 06, 2002, 11:38:08 >>>

254 lines long.

----: P
0001: PA
0002:  
0003: ** URL SELECT PARAGRAPH : SELECTS TO SPECIFIC SAVED LISTS
0004: ** FIRST DELETES EXISTING SAVEDLISTS AND ESTABLISHES NEW SAVEDLISTS AGAIN
 ST BIB
0005: ** 
0006: SELECT &SAVEDLISTS& WITH @ID LIKE "URL..."
0007: DELETE &SAVEDLISTS& REQUIRE.SELECT
0008: SELECT BIB WITH ELECTLOC <> ""
0009: SAVE.LIST URL.ALL
0010: **
0011: ** URL.ALL IS MASTER LIST OF ALL BIBS HAVING A URL IN 856 TAG
0012: ** NEXT, ISOLATES MAIN TYPES: X=EBOOKS, I,J=DOCS, 
0013: **
0014: GET.LIST URL.ALL
0015: SELECT BIB WITH JW049UPCASE LIKE "...KFPX..."
0016: SAVE.LIST URL.NETLIBRARY
0017: GET.LIST URL.ALL
0018: SELECT BIB WITH JW049UPCASE LIKE "...KFPI..."
0019: SAVE.LIST URL.KFPI
0020: GET.LIST URL.ALL
0021: SELECT BIB WITH JW049UPCASE LIKE "...KFPJ..."
0022: SAVE.LIST URL.KFPJ
0023: **
0024: ** BREAKS DOWN SUDOC J BY CALL NUMBER TO SEE WHICH ARE MORE THAN 500
0025: **
0026: GET.LIST URL.KFPJ
0027: SELECT BIB WITH CALL < "C"
0028: SAVE.LIST URL.KFPJ.AB
0029: GET.LIST URL.KFPJ
0030: SELECT BIB WITH CALL LIKE "C..."
0031: SAVE.LIST URL.KFPJ.C
0032: GET.LIST URL.KFPJ
0033: SELECT BIB WITH CALL LIKE "D..."
0034: SAVE.LIST URL.KFPJ.D
0035: GET.LIST URL.KFPJ
0036: SELECT BIB WITH CALL LIKE "E..."
0037: SAVE.LIST URL.KFPJ.E
0038: GET.LIST URL.KFPJ
0039: SELECT BIB WITH CALL LIKE "F..."
0040: SAVE.LIST URL.KFPJ.F
0041: GET.LIST URL.KFPJ
0042: SELECT BIB WITH CALL LIKE "G..."
0043: SAVE.LIST URL.KFPJ.G
0044: GET.LIST URL.KFPJ
0045: SELECT BIB WITH CALL LIKE "H..."
0046: SAVE.LIST URL.KFPJ.H
0047: GET.LIST URL.KFPJ
0048: SELECT BIB WITH CALL LIKE "I..."
0049: SAVE.LIST URL.KFPJ.I
0050: GET.LIST URL.KFPJ
0051: SELECT BIB WITH CALL LIKE "J..."
0052: SAVE.LIST URL.KFPJ.J
0053: GET.LIST URL.KFPJ
0054: SELECT BIB WITH CALL LIKE "K..." OR CALL LIKE "L..."  OR CALL LIKE "M..."
0055: SAVE.LIST URL.KFPJ.KLM
0056: GET.LIST URL.KFPJ
0057: SELECT BIB WITH CALL LIKE "N..."  OR WITH CALL LIKE "O..." OR WITH CALL L
 IKE "P..."  OR WITH CALL LIKE "R..."
0058: SAVE.LIST URL.KFPJ.NOPR
0059: GET.LIST URL.KFPJ
0060: SELECT BIB WITH CALL LIKE "S..."
0061: SAVE.LIST URL.KFPJ.S
0062: GET.LIST URL.KFPJ
0063: SELECT BIB WITH CALL LIKE "T..." OR CALL LIKE "V..." OR CALL LIKE "X..." 
0064: SAVE.LIST URL.KFPJ.TVX
0065: GET.LIST URL.KFPJ
0066: SELECT BIB WITH CALL LIKE "Y..."
0067: SAVE.LIST URL.KFPJ.Y
0068: GET.LIST URL.KFPJ
0069: SELECT BIB WITH CALL LIKE "Z..."
0070: SAVE.LIST URL.KFPJ.Z
0071: **
0072: ** EXTRACTS J,I, AND X FROM EXISTING SAVEDLIST FOR OTHER AGENCIES AND NON
 -BIBS
0073: **
0074: LIST.DIFF URL.ALL
0075: DATA URL.KFPJ
0076: DATA URL.TEMP1
0077: LIST.DIFF URL.TEMP1
0078: DATA URL.KFPI
0079: DATA URL.TEMP2
0080: LIST.DIFF URL.TEMP2
0081: DATA URL.NETLIBRARY
0082: DATA URL.OTHERS
0083: **
0084: ** SORTS OUT OTHER AGENCIES AND OTHER MATERIAL TYPES INTO SAVEDLISTS
0085: **
0086: GET.LIST URL.OTHERS
0087: SELECT BIB WITH AGENCIES LIKE "...FSCC..."
0088: SAVE.LIST URL.FSCC
0089: GET.LIST URL.OTHERS
0090: SELECT BIB WITH AGENCIES LIKE "...PHS..." OR WITH AGENCIES LIKE "...PMS..
 ."
0091: SAVE.LIST URL.USD
0092: GET.LIST URL.OTHERS
0093: SELECT BIB WITH AGENCIES LIKE "...PPL..."
0094: SAVE.LIST URL.PPL
0095: GET.LIST URL.OTHERS
0096: SELECT BIB WITH AGENCIES LIKE "...AXE..."
0097: SAVE.LIST URL.NON.DOCS
0098: GET.LIST URL.OTHERS
0099: SELECT BIB WITH AGENCIES LIKE "...IRC..."
0100: SAVE.LIST URL.IRC
0101: GET.LIST URL.OTHERS
0102: SELECT BIB WITH AGENCIES LIKE "...KTC..."
0103: SAVE.LIST URL.KTC
0104: SELECT NEWS WITH NEWS.ELEC.RESOURCE <> ""
0105: SAVE.LIST URL.NEWS
0106: SELECT INFO.REFERRAL WITH IR.ELEC.RESOURCE <> ""
0107: SAVE.LIST URL.CLOUD
0108: **
0109: ** SORTS LISTS BY URL WITH SSELECTS
0110: **
0111: *** SORTING THE LISTS BY URL SITE
0112: GET.LIST URL.NETLIBRARY
0113: SSELECT MARC.BIB BY SJ.856U
0114: SAVE.LIST URL.NETLIBRARY
0115: GET.LIST URL.KFPI
0116: SSELECT MARC.BIB BY SJ.856U
0117: SAVE.LIST URL.KFPI
0118: GET.LIST URL.KFPJ.AB
0119: SSELECT MARC.BIB BY SJ.856U
0120: SAVE.LIST URL.KFPJ.AB
0121: GET.LIST URL.KFPJ.C
0122: SSELECT MARC.BIB BY SJ.856U
0123: SAVE.LIST URL.KFPJ.C
0124: ** 
0125: ** BREAKING DOWN THE LARGER CALL NUMBER GROUPS OF J BY 500 TO SAVEDLIST
0126: **
0127: GET.LIST URL.KFPJ.C
0128: SSELECT MARC.BIB SAMPLE 500
0129: SAVE.LIST URL.KFPJ.C.1
0130: LIST.DIFF URL.KFPJ.C
0131: DATA URL.KFPJ.C.1
0132: DATA URL.KFPJ.C.TEMP1
0133: GET.LIST URL.KFPJ.C.TEMP1
0134: SSELECT MARC.BIB SAMPLE 500
0135: SAVE.LIST URL.KFPJ.C.2
0136: LIST.DIFF URL.KFPJ.C.TEMP1
0137: DATA URL.KFPJ.C.2
0138: DATA URL.KFPJ.C.TEMP2
0139: GET.LIST URL.KFPJ.C.TEMP2
0140: SSELECT MARC.BIB SAMPLE 500
0141: SAVE.LIST URL.KFPJ.C.3
0142: **
0143: *** CONTINUE  TO DO THIS IF URL.KFPJ.C.3 GOES OVER 500
0144: **
0145: GET.LIST URL.KFPJ.D
0146: SSELECT MARC.BIB BY SJ.856U
0147: SAVE.LIST URL.KFPJ.D
0148: GET.LIST URL.KFPJ.E
0149: SSELECT MARC.BIB BY SJ.856U
0150: SAVE.LIST URL.KFPJ.E
0151: **
0152: 
0153: ** BREAKDOWN OF KFPJ.E BY 500 IN A LIST
0154: **
0155: GET.LIST URL.KFPJ.E
0156: SSELECT MARC.BIB BY SJ.856U SAMPLE 500
0157: SAVE.LIST URL.KFPJ.E.1
0158: LIST.DIFF URL.KFPJ.E 
0159: DATA URL.KFPJ.E.1
0160: DATA URL.KFPJ.E.TEMP1
0161: GET.LIST URL.KFPJ.E.TEMP1
0162: SSELECT MARC.BIB BY SJ.856U SAMPLE 500
0163: SAVE.LIST URL.KFPJ.E.2
0164: **
0165: ** CONTINUE TO DO THIS IF URL.KFPJ.E.2 IS OVER 500
0166: **
0167: GET.LIST URL.KFPJ.F
0168: SSELECT MARC.BIB BY SJ.856U
0169: SAVE.LIST URL.KFPJ.F
0170: GET.LIST URL.KFPJ.G
0171: SSELECT MARC.BIB BY SJ.856U 
0172: SAVE.LIST URL.KFPJ.G
0173: GET.LIST URL.KFPJ.G
0174: SSELECT MARC.BIB BY SJ.856U SAMPLE 500
0175: SAVE.LIST URL.KFPJ.G.1
0176: LIST.DIFF URL.KFPJ.G
0177: DATA URL.KFPJ.G.1
0178: DATA URL.KFPJ.G.TEMP1
0179: GET.LIST URL.KFPJ.G.TEMP1
0180: SSELECT MARC.BIB BY SJ.856U SAMPLE 500
0181: SAVE.LIST URL.KFPJ.G.2
0182: LIST.DIFF URL.KFPJ.G.TEMP1
0183: DATA URL.KFPJ.G.2
0184: DATA URL.KFPJ.G.TEMP2
0185: GET.LIST URL.KFPJ.G.TEMP2
0186: SSELECT MARC.BIB BY SJ.856U SAMPLE 500
0187: SAVE.LIST URL.KFPJ.G.3
0188: DATA URL.KFPJ.G.3
0189: **
0190: ** CONTINUE TO DO THIS IF URL.KFPJ.G.3 GOES OVER 500
0191: **
0192: GET.LIST URL.KFPJ.H
0193: SSELECT MARC.BIB BY SJ.856U
0194: SAVE.LIST URL.KFPJ.H
0195: GET.LIST URL.KFPJ.I
0196: SSELECT MARC.BIB BY SJ.856U
0197: SAVE.LIST URL.KFPJ.I
0198: GET.LIST URL.KFPJ.J
0199: SSELECT MARC.BIB BY SJ.856U
0200: SAVE.LIST URL.KFPJ.J
0201: GET.LIST URL.KFPJ.KLM
0202: SSELECT MARC.BIB BY SJ.856U
0203: SAVE.LIST URL.KFPJ.KLM
0204: GET.LIST URL.KFPJ.NOPR
0205: SSELECT MARC.BIB BY SJ.856U
0206: SAVE.LIST URL.KFPJ.NOPR
0207: GET.LIST URL.KFPJ.S
0208: SSELECT MARC.BIB BY SJ.856U
0209: SAVE.LIST URL.KFPJ.S
0210: GET.LIST URL.KFPJ.TVX
0211: SSELECT MARC.BIB BY SJ.856U
0212: SAVE.LIST URL.KFPJ.TVX
0213:   
0214: GET.LIST URL.KFPJ.Y
0215: SSELECT MARC.BIB BY SJ.856U SAMPLE 500
0216: SAVE.LIST URL.KFPJ.Y.1
0217: LIST.DIFF URL.KFPJ.Y
0218: DATA URL.KFPJ.Y.1
0219: DATA URL.KFPJ.Y.TEMP1
0220: GET.LIST URL.KFPJ.Y.TEMP1
0221: SSELECT MARC.BIB BY SJ.856U SAMPLE 500
0222: SAVE.LIST URL.KFPJ.Y.2
0223: LIST.DIFF URL.KFPJ.Y.TEMP1
0224: DATA URL.KFPJ.Y.2
0225: DATA URL.KFPJ.Y.TEMP3
0226: GET.LIST URL.KFPJ.Y.TEMP3
0227: SSELECT MARC.BIB BY SJ.856U SAMPLE 500
0228: SAVE.LIST URL.KFPJ.Y.3
0229: **
0230: ** CONTINUE TO DO THIS IF URL.KFPJ.Y.3 GOES OVER 500
0231: **
0232:   
0233:   
0234: GET.LIST URL.KTC
0235: SSELECT MARC.BIB BY SJ.856U
0236: SAVE.LIST URL.KTC
0237: GET.LIST URL.IRC
0238: SSELECT MARC.BIB BY SJ.856U
0239: SAVE.LIST URL.IRC
0240: GET.LIST URL.OTHERS
0241: SSELECT MARC.BIB BY SJ.856U
0242: SAVE.LIST URL.OTHERS
0243: GET.LIST URL.FSCC
0244: SSELECT MARC.BIB BY SJ.856U
0245: SAVE.LIST URL.FSCC
0246: GET.LIST URL.USD
0247: SSELECT MARC.BIB BY SJ.856U
0248: SAVE.LIST URL.USD
0249: GET.LIST URL.PPL
0250: SSELECT MARC.BIB BY SJ.856U
0251: SAVE.LIST URL.PPL
0252: GET.LIST URL.NON.DOCS
0253: SSELECT MARC.BIB BY SJ.856U
0254: SAVE.LIST URL.NON.DOCS
Bottom at line 254.
----: FI
"SUZY.URL.PARA" filed in file "VOC".
>
<<< Log from axelib.pittstate.edu ended February 06, 2002, 11:38:29 >>>

Send comments to: suzyq@pittstate.edu

Susan M. Johns-Smith
Axe Library
Pittsburg State University
1605 South Joplin Street
Pittsburg, KS 66762
Phone: 620-235-4115

This page last updated Monday, 28-Oct-2002 15:58:26 CST