/* browse FDR database */
signal on syntax
trace o
cgi = 'BROWSE'; vers = '1.2'; errto = 'STMK@VM.MARIST.EDU'
e1 = time('R')
cmdstat1 = fdrstats() /* vtime ttime reads writes sios */
'REXX FDRHTTP' cgi vers
max = 50
text = getvar('TEXT')
db = getvar('DB')
pos = getvar('POS')
if 0 = datatype(pos,'NUM') Then pos = 0
next = getvar('NEXT')
prev = getvar('PREV')
inc = getvar('INC')
if 0 = datatype(pos,'NUM') Then pos = max
If prev <> '' Then pos = pos - (2*inc)
pos = max(0,pos)
CELLFORM = 'LID;15-DATE;17-JUNK;2-TITLE;1024-',
'FILEID;50'
'OUTPUT
'
'OUTPUT
' ,
'
Library ID
' ,
'
Date
' ,
'
Title
' ,
'
Photo
' ,
'
'
/* Handle the different eras */
select
when (db == "1") then
ndb="DEPRESSV"
when (db == "2") then
ndb="WWIIV"
when (db == "3") then
ndb="FDRV"
otherwise
ndb="DEPRESSV"
end
if (pos == 'POS') then pos=0
endpos = pos+max
prevpos = max(0,pos-max)
sel = "SELECT lid, dt1, title, number" ,
"from FDR."ndb" ORDER BY LID"
'OUTPUT' ''
"CALLPIPE (name browse03 end ?) sql noind release" sel ,
"| drop first "pos ,
"| take first" max ,
"| c: count lines" ,
"| rexx stempros "CELLFORM"%&%PHOTO" ,
"|*:" ,
"?" ,
"c: | var num"
If rc <> 0 Then signal sqlerr
prevbutton = ''
If prevpos > 0 Then ,
prevbutton = ''
nextbutton = ''
If num < max then nextbutton = ''
me = cgi'.cgi'
'OUTPUT' '