/* search FDR database */
signal on syntax
trace o
cgi = 'SEARCH'; vers = '1.2'; errto = 'STMK@VM.MARIST.EDU'
e1 = time('R')
cmdstat1 = fdrstats() /* vtime ttime reads writes sios */
'REXX FDRHTTP' cgi vers
search = getvar('SEARCH')
type = getvar('TYPE')
aname = getvar('ANAME')
imonth = getvar('IMONTH')
iday = getvar('IDAY')
iyear = getvar('IYEAR')
onyr = getvar('ONYR')
aname = fdresc(aname)
if (search = 'yes') then do
CELLFORM = 'LID;16-DATE;10-TITLE;512-',
'PHOTONUM;10-FILEID;12'
'OUTPUT
Search FDR
'
'OUTPUT '
'OUTPUT ' ,
'Library ID | ' ,
'Date | ' ,
'Title | ' ,
'Photo Num | ',
'Photo | ' ,
'
'
if (type == "title") then
srch = "(TITLE like '%"aname"%')"
else do
if (onyr == "1") then
srch = "(DT1 like '%"iyear"')"
else
srch = "(DT1 = '"imonth"/"iday"/"iyear"')"
end /* else */
sel = "SELECT * from FDR.WWIIV where" srch
'OUTPUT' ''
"CALLPIPE (name search03) sql noind release" sel ,
'| spec 1-16 1' , /* lid char 16 */
' 17-27 17 ' , /* dt1 char 10 */
' 29-541 27' , /* title varchar 512 */
' 542-544 strip C2D 539 left' , /* photonum int */
' 545-* 549' , /* fileid char 12 */
"| rexx stempros "CELLFORM"%&%TITLE" ,
"| change /\// |*: "
'OUTPUT
'
end /* search */
else do
'CALLPIPE (name search04) < HEADER RESPON | *:'
'OUTPUT '
'OUTPUT Search by TITLE'
'OUTPUT '
'OUTPUT | '
'OUTPUT Search by DATE'
'OUTPUT '
'OUTPUT |
'
end /* else */
/* suffix */
e2 = time('R')
'REXX FDRCLEAN' cmdstat1 e1 e2
'OUTPUT