/* 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 ' , '' , '' , '' , '' , '' /* 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' '
Library IDDateTitlePhoto
' 'OUTPUT' '
' 'OUTPUT' '' 'OUTPUT' '' 'OUTPUT' '' 'OUTPUT' nextbutton 'OUTPUT' prevbutton 'OUTPUT' '' 'OUTPUT' '
' /*%include fdrsuff */