*
*	BISAC FORMAT TITLE STATUS RECORD
*
* Annotated 19th June 1998, Peter Gargano  mailto:peter@www.techedge.com.au
* This document  http://www.techedge.com.au/tech/bisac/bisac.txt
* 
!IF !1=
!LET!1=BA
!END
*
AREA	NAME	!1
*
.RECORD						(T=260A)
REDEFINE	!1.RECORD
*
*	HEADER RECORD
*
.HEADER-REC		(T=260A,R=0)		* offset Name
.H-HEADER-ID			(T=10A)		* 0    **HEADER**
.H-CREATED-DATE   		(T=6A)		* 10   YYMMDD
.H-SOURCE			(T=10A)		* 16   Initiators Name
.H-SAN				(T=12A)		* 26   Standard Address no. - LJ,BF
.H-BATCH-NO			(T=6A)		* 38   -RJ,ZF
.H-UPDATE-CODE			(T=1A)		* 44   1 if update data only, else 0 (complete records)
.H-PUBSTAT-ID			(T=10A)		* 45   **PUBSTAT*
.H-FORMAT-NO			(T=3A)		* 58   002
.				(T=202A)        * 61
.						* 260  TOTAL
*
REDEFINE		!1.RECORD
*
*	CHANGE RECORD
*
.CHANGE-REC		(T=260A,R=0)		* offset Name
.C-ISBN				(T=10A)		* 0    Full ISBN
.C-TYPE-1			(T=1A)		* 10   1=CHANGE, 2=AUTHOR, 3=TITLE, 4=MISCELLANEOUS
.C-TRAN-CODE			(T=1A)		* 11    N=NEW, C=CHANGE, D=DELETE, U=NOT USED
.C-FCI-MEDIA			(T=1A)		* 12    SEE NOTE 1 AT END
.C-MEDIA			(T=1A)		* 13    SEE NOTE 2 AT END
.C-FCI-TITLE			(T=1A)		* 14
.C-TITLE			(T=30A)		* 15    Title  (truncated to 30 characters)
.C-FCI-AUTHOR			(T=1A)		* 45
.C-AUTHOR			(T=30A)		* 46    Author's name  (but see 77 below)
.C-FCI-FUNCTION			(T=1A)		* 76
.C-FUNCTION			(T=1A)		* 77    A=AUTHOR, E=EDITOR, T=TRANSLATOR, I=ILLUSTRATOR
.C-FCI-PUB-PRICE		(T=1A)		* 78
.C-PUB-PRICE			(T=7A)		* 79    Publication Price
.C-FCI-PUB-DATE			(T=1A)		* 86
.C-PUB-DATE			(T=6A)		* 87    Publication date
.C-FCI-PUBLISHER		(T=1A)		* 93
.C-PUBLISHER			(T=10A)		* 94    Publisher name
.C-FCI-IMPRINT			(T=1A)		* 104
.C-IMPRINT			(T=14A)		* 105   Imprint name
.C-FCI-NO-OF-VOLS		(T=1A)		* 119
.C-NO-OF-VOLS			(T=3A)		* 120   Number of volumes in set
.C-FCI-EDITION			(T=1A)		* 123
.C-EDITION			(T=2A)		* 124   Edition
.C-FCI-BINDING			(T=1A)		* 126
.C-BINDING			(T=2A)		* 127   Binding code  (TC, TP)
.C-FCI-VOL-NO			(T=1A)		* 129
.C-VOL-NO			(T=3A)		* 130   Volume number
.C-FCI-NEXT-PRICE		(T=1A)		* 133
.C-NEXT-PRICE			(T=7A)		* 134
.C-FCI-NEXT-PRI-DATE		(T=1A)		* 141
.C-NEXT-PRI-DATE		(T=6A)		* 142
.C-FCI-AUDIENCE			(T=1A)		* 148
.C-AUDIENCE			(T=3A)		* 149   Audience
.C-FCI-STATUS			(T=1A)		* 152
.C-STATUS			(T=3A)		* 153
.C-FCI-AVAIL-DATE		(T=1A)		* 156
.C-AVAIL-DATE			(T=6A)		* 157   Available from date
.C-FCI-ALT-ISBN			(T=1A)		* 163
.C-ALT-ISBN			(T=10A)		* 164
.C-FCI-OP-DATE			(T=1A)		* 174
.C-OP-DATE			(T=6A)		* 175
.C-FCI-RESTRICT			(T=1A)		* 181
.C-RESTRICT			(T=3A)		* 182
.C-FCI-LC-NO			(T=1A)		* 185
.C-LC-NO			(T=8A)		* 193
.C-FCI-SERIES			(T=1A)		* 194
.C-SERIES			(T=40A)		* 195   Series name
.C-FCI-CURR-PRI-CODE		(T=1A)		* 235
.C-CURR-PRI-CODE		(T=1A)		* 236
.C-FCI-NEXT-PRI-CODE		(T=1A)		* 237
.C-NEXT-PRI-CODE		(T=1A)		* 239
.C-FCI-CURR-FREIGHT		(T=1A)		* 239
.C-CURR-FREIGHT			(T=7A)		* 240
.C-FCI-NEXT-FREIGHT		(T=1A)		* 247
.C-NEXT-FREIGHT			(T=7A)		* 248
.C-LAST-CHANGE-DATE		(T=5A)		* 255
.						* 260  TOTAL
*
REDEFINE	!1.RECORD
*
*	AUTHOR RECORD
*
.AUTHOR-REC		(T=260A,R=0)		* offset Name
.				(T=12A)		* 0
.A-FCI-AUTHOR			(T=1A)		* 12
.A-AUTHOR			(T=242A)	* 13   Author (list), up to 242 characters
.A-LAST-CHANGE-DATE		(T=5A)		* 255
.						* 260  TOTAL
*
REDEFINE	!1.RECORD
*
*	TITLE RECORD
*
.TITLE-REC		(T=260A,R=0)		* offset Name
.				(T=12A)		* 0
.T-FCI-TITLE			(T=1A)		* 12
.T-TITLE			(T=242A)	* 13    Title, up to 242 characters
.T-LAST-CHANGE-DATE		(T=5A)		* 255
.						* 260   TOTAL
*
REDEFINE	!1.RECORD
*
*	MISC. INFORMATION RECORD
*
.MISC-REC		(T=260A,R=0)		* offset Name
.				(T=12A)		* 0
.M-FCI-GRADE			(T=1A)		* 12
.M-GRADE			(T=2A)		* 13
.M-FCI-RETURNS			(T=1A)		* 15
.M-RETURNS			(T=1A)		* 16
.M-FCI-DISCOUNT			(T=1A)		* 17
.M-DISCOUNT			(T=1A)		* 18
.M-FCI-PACK			(T=1A)		* 19
.M-PACK				(T=1A)		* 20
.M-FCI-PACK-QTY			(T=1A)		* 21
.M-PACK-QTY			(T=3A)		* 22
.M-FCI-SUBJECT-CODE-1		(T=1A)		* 25
.M-SUBJECT-CODE-1		(T=9A)		* 26    Subject code
.M-FCI-SUBJECT-CODE-2		(T=1A)		* 35
.M-SUBJECT-CODE-2		(T=9A)		* 36    Subject code 2
.M-FCI-SUBJECT-CODE-3		(T=1A)		* 45
.M-SUBJECT-CODE-3		(T=9A)		* 46    Subject code 3
.M-FCI-WEIGHT			(T=1A)		* 55
.M-WEIGHT			(T=7A)		* 56    Weight in 10 gram units
.M-FCI-FOREIGN-CURR-1		(T=1A)		* 63
.M-FOREIGN-CURR-1		(T=3A)		* 64
.M-FCI-FOREIGN-PRI-1		(T=1A)		* 67
.M-FOREIGN-PRI-1		(T=7A)		* 68
.M-FCI-FOREIGN-CURR-2		(T=1A)		* 75
.M-FOREIGN-CURR-2		(T=3A)		* 76
.M-FCI-FOREIGN-PRI-2		(T=1A)		* 79
.M-FOREIGN-PRI-2		(T=7A)		* 80
.M-FCI-FOREIGN-CURR-3		(T=1A)		* 87
.M-FOREIGN-CURR-3		(T=3A)		* 88    Foreign currency code
.M-FCI-FOREIGN-PRI-3		(T=1A)		* 91
.M-FOREIGN-PRI-3		(T=7A)		* 92
.M-FCI-PRIOR-SBN-1		(T=1A)		* 99
.M-PRIOR-SBN-1			(T=10A)		* 100   Prior ISBN for this title
.M-FCI-PRIOR-SBN-2		(T=1A)		* 110
.M-PRIOR-SBN-2			(T=10A)		* 111   Prior ISBN 2
.M-FCI-PRIOR-SBN-3		(T=1A)		* 121
.M-PRIOR-SBN-3			(T=10A)		* 122   Prior ISBN 3
.M-FCI-PUBLICITY-DATE		(T=1A)		* 132
.M-PUBLICITY-DATE		(T=6A)		* 133
.M-FCI-UPC			(T=1A)		* 139
.M-UPC				(T=14A)		* 140   UPC
.M-FCI-EAN			(T=1A)		* 154
.M-EAN				(T=13A)		* 155   EAN
.M-FCI-CARTON-QTY		(T=1A)		* 168
.M-CARTON-QTY			(T=3A)		* 169   Carton Quantity
.M-FCI-MAX-DISC			(T=1A)		* 172
.M-MAX-DISC			(T=3A)		* 173
.M-FCI-FORMER-PUB		(T=1A)		* 176
.M-FORMER-PUB			(T=10A)		* 177
.M-FCI-CURRENT-PUB		(T=1A)		* 187
.M-CURRENT-PUB			(T=10A)		* 188
.M-FCI-NUM-PAGES		(T=1A)		* 198
.M-NUM-PAGES			(T=4A)		* 199   Pages
.				(T=52A)		* 203
.M-LAST-CHANGE-DATE		(T=5A)		* 255
.						* 260   TOTAL
*
REDEFINE	!1.RECORD
*
*	TRAILER RECORD
*
.TRAILER-REC		(T=260A,R=0)		* offset Name
.T-TRAILER-ID			(T=10A)		* 0
.T-CREATED-DATE   		(T=6A)		* 10
.T-BATCH-NO			(T=6A)		* 16
.T-RECORD-COUNT			(T=6A)		* 22
.T-PUBSTAT-ID			(T=10A)		* 28   **PUBSTAT*
.				(T=222A)	* 38   may be blank
*						* 260  TOTAL