Thursday, 4 October 2012

Remnants from Dynix

When we migrated from Dynix to Spydus I was keen that we didn't lose more management information than we needed. I ran copies of the canned reports and all the usual suspects but there were two things I particularly wanted to preserve:

  • I wanted to be able to give the stock manager an overview of the state of the collections at each library.
  • We had 21 years' worth of data in Dynix's Statistical Reports Manager and I wasn't keen to lose all that management information.

So I wrote some Recall reports to strip out the data in text format. These are the Recall Vocs and the local dictionary items that I used.

     COLLECTIONS.REPORT
0001 PA Saved at 15:15:22 23 SEP 2005 by steveh
0002 CS
0003 DISPLAY
0004 DISPLAY
0005 DISPLAY          The system is now sorting all the Holdings records
0006 DISPLAY          A report will be sent to the screen
0007 DISPLAY
0008 DISPLAY          This will take some time
0009 DISPLAY
0010 DISPLAY          If you want a copy of this report in Word or Excel
0011 DISPLAY          please ask the Systems Manager
0012 DISPLAY
0013 DISPLAY         working.....
0014 DISPLAY
0015 SORT HOLDINGS BY AGENCY2 BY COLLECTION BY L-ITEM.AGE BREAK-ON L-LIBNAME "TOTAL FOR 'V'" BREAK-ON T-COLL "TOTAL FOR 'V'" BREAK-ON L-ITEM.AGE "'V'" TOTAL COUNTER HEADING "LIBRARY CATALOGUE STOCK AS OF 'TL'" (CDIP

 
Enter DICT NAME : L-ITEM.AGE
1  FIELD NAME         1/ YEARS
                      2/ OLD
2  FIELD NUMBER          0
3  JUSTIFICATION         L
4  DISPLAY LENGTH        25
5  CONVERSION         1/ MCT
6  CORRELATIVE        1/ A; IF N(L-YEARS.OWNED2) < "5" THEN "LESS THAN FIVE YEARS OLD" ELSE IF N(L-YEARS.OWNED2) > "10" THEN "MORE THAN TEN YEARS OLD" ELSE IF N(L-YEARS.OWNED2) = "" THEN "MORE THAN TEN YEARS OLD" ELSE "5 TO 10 YEARS OLD"


Enter DICT NAME : L-YEARS.OWNED2
1  FIELD NAME         1/ YEARS OWNED
2  FIELD NUMBER          0
3  JUSTIFICATION         R
4  DISPLAY LENGTH        10
5  CONVERSION         1/
6  CORRELATIVE        1/ A;(D-N(DATE.ADDED))/"365"

 

     STAT.MGR.DUMP.REPORT
0001 PA Saved at 16:29:48 30 APR 2012 by steveh
0002 SELECT STAT.MGR WITH L-PERIOD="DAY"
0003 SELECT STAT.MGR WITH L-KEY NOT "[.OV"
0004 SELECT STAT.MGR WITH L-KEY NOT "[.PO.]"
0005 SORT STAT.MGR BY L-DATE BY L-CODE.TRANSLATE BY L-LIBRARY L-DATE L-CODE.TRANSLATE L-LIBRARY L-TOTAL (CHIP


     STAT.MGR.MONTH.DUMP
0001 PA Saved at 10:55:50 10 MAY 2012 by steveh
0002 SETPTR ,500,5000,,,3
0003 SELECT STAT.MGR WITH L-PERIOD="MONTH"
0004 SELECT STAT.MGR WITH L-ELEMENT2 GT "3000"
0005 SORT STAT.MGR BY L-PERIOD BY L-DATE BY L-CODE.TRANSLATE BY L-LIBRARY L-PERIOD L-DATE L-CODE.TRANSLATE L-LIBRARY L-TOTAL HEADING "Monthly issue statistics from Dynix as of 'TL'" (NIP
 

Enter DICT NAME : L-PERIOD
1  FIELD NAME         1/ PERIOD
2  FIELD NUMBER          0
3  JUSTIFICATION         L
4  DISPLAY LENGTH        10
5  CONVERSION         1/
6  CORRELATIVE        1/ A;IF N(L-ELEMENT1)="M" THEN "MONTH" ELSE IF N(L-ELEMENT1)="D" THEN "DAY" ELSE ""

Enter DICT NAME : L-ELEMENT1
1  FIELD NAME         1/ FIRST BIT
2  FIELD NUMBER          0
3  JUSTIFICATION         L
4  DISPLAY LENGTH        10
5  CONVERSION         1/
6  CORRELATIVE        1/ G.1
 
Enter DICT NAME : L-KEY
1  FIELD NAME         1/ KEY
2  FIELD NUMBER          0
3  JUSTIFICATION         L
4  DISPLAY LENGTH        80
5  CONVERSION         1/
6  CORRELATIVE        1/
 
Enter DICT NAME : L-DATE
1  FIELD NAME         1/ DATE
2  FIELD NUMBER          0
3  JUSTIFICATION         L
4  DISPLAY LENGTH        10
5  CONVERSION         1/ D2
6  CORRELATIVE        1/ G1.1

Enter DICT NAME : L-CODE.TRANSLATE
1  FIELD NAME         1/ TRANSLATED CODE
2  FIELD NUMBER          0
3  JUSTIFICATION         L
4  DISPLAY LENGTH        50
5  CONVERSION         1/ MCT
6  CORRELATIVE        1/ G3.2
                      2/ TCODES;X;;1

Enter DICT NAME : L-LIBRARY
1  FIELD NAME         1/ LIBRARY
2  FIELD NUMBER          0
3  JUSTIFICATION         L
4  DISPLAY LENGTH        35
5  CONVERSION         1/
6  CORRELATIVE        1/ A;"EX.";N(L-AGENCY);:
                      2/ TCODES;X;;1

Enter DICT NAME : L-AGENCY
1  FIELD NAME         1/ AGENCY
2  FIELD NUMBER          0
3  JUSTIFICATION         L
4  DISPLAY LENGTH        25
5  CONVERSION         1/
6  CORRELATIVE        1/ G2.1

Enter DICT NAME : L-TOTAL
1  FIELD NAME         1/ TOTAL
2  FIELD NUMBER          0
3  JUSTIFICATION         R
4  DISPLAY LENGTH        6
5  CONVERSION         1/
6  CORRELATIVE        1/ F;2;S
 
Enter DICT NAME : L-PERIOD
1  FIELD NAME         1/ PERIOD
2  FIELD NUMBER          0
3  JUSTIFICATION         L
4  DISPLAY LENGTH        10
5  CONVERSION         1/
6  CORRELATIVE        1/ A;IF N(L-ELEMENT1)="M" THEN "MONTH" ELSE IF N(L-ELEMENT1)="D" THEN "DAY" ELSE ""

Enter DICT NAME : L-ELEMENT2
1  FIELD NAME         1/ SECOND BIT
2  FIELD NUMBER          0
3  JUSTIFICATION         R
4  DISPLAY LENGTH        10
5  CONVERSION         1/
6  CORRELATIVE        1/ G1.1