i - web RPG

1
i - web RPG ???????
2
? ?
?.i-webRPG ???
P.3
?.????
P.5
?.i-webRPG ?????
P.9
1.????
1-1.GET_FORM (????)
1-2.OUT_HTML (HTML????)
1-3.HTML???
1-4.STD_OUT (HTML????)
2.????
P.17
2-1.CRTWEBRPG (?????)
2-2.CRTXLSF (??????????)
2-3.SENDMAIL (AS400????????)
P.20
3.????????
3-1.FILE UPLOAD(IFS????????????)
3-2.UPLOAD TO PF(?????QSYS???????)
3-3.HTMDRV (HTML???????)
?.?????????
P.27
1._at_WEB????????CGI????????
1-1.????????
1-2.?????HTML???
1-3.????????
1-4.?????HTML???
1-5.??????HTML???
P.33
2.HTML????????????CGI????????
2-1.URL??
2-2.?????HTML???
2-3.???????
2-4.?????HTML???
3
?.i-webRPG ???
RPG???web???????????????Web?????????????? ????????
????(???????????)????????????????????? (???????)??
?????? ?????????????????????????????web???????????
??????????? i-web RPG?????????API?????????????????
??????????????? Web?????????(HTML???)?Excel???????
?????????? 1?1????????????????????????????????????
?????????
4
1.???? RPG????????????????????????????????????
???5250???????????????????????WRITE/READ/EXFMT
??? ????????????????web?????????????
??????2???? GET_FORM READ??????????????????
???????????? OUT_HTML WRITE?????????????????
???????????
2.???? web???????????????????????????????????
CRTWEBRPG (?????) CGI?????????????????????????
?????? ?????????????????????????? CRTXLSF
(??????????) CSV???????????????IFS??????????????
CSV??????????5000????????????? SENDMAIL
(AS400???????) IBM ?? AS/400 ?????5250
?????????????????????????????
????????????????????????????
3.???????? web????????????????????????????
CRTXLSF (IFS????????????) _at_WEB????????????????
?????????AS400?????????????? HTMDRV
(HTML????) ???WEB???????????????????????????????
?????CGI??????????????????
5
?.????
1.??????
? http//www.axel.ne.jp/i-web/install.htm
???URL???i-webRPG???????(?3M)?????????
2.??????????
? AS400??SAVF??????? ????CRTSAVF
FILE(QGPL/IWEBRPG)
3.FTP????????
? AS400?FTP???????????? ????STRTCPSVR
SERVER(FTP)
4.DOS????????FTP??
? DOS??????????FTP?????????????? FTP
???AS400?IP???? (USER????)????ID
(PASSWORD????)????? binary put
C\iwebrpg.savf QGPL/IWEGRPG QUIT
5.?????????
? AS400?_at_WEB????????????? ????CRTLIB LIB(_at_WEB)
? RSTLIB ??????? _at_WEB ??????? ????RSTLIB
SAVLIB(_at_WEB) DEV(SAVF) SAVF(QGPL/SAVF)
MBROPT(ALL)
6._at_WEB??????????
??????????????????????????????????????????
? ?????????????????? ????_at_WEB/SETTPWD ?????
???????????????????????????????????????????
? ?????????????????? ????_at_WEB/SETPPWD ?????
6
7.?????????
? ???????????????? ????DLTF QGPL/IWEBRPG
? PC????????????? ????????????????????
8.???????????????????
? _at_WEB??????????????????????? ????WRKSYSVAL
QUSRLIBL ?????????????????????_at_WEB??????????
?????????????_at_WEB????????
9.HTTP?????
? HTTP????????????????????????? ????ENDTCPSVR
SERVER(HTTP) HTTP???????????
? ?????????????????????????????
???????????????????? ????????HTTP??????????????
(???????)???????
????WRKHTTPCFG
CCSID DIRECTIVES??????? DefaultFsCCSID 5035
DefaultNETCCSID 0932 ???? MAPPING
DIRECTIVES??????? Exec /_at_WEB/
/QSYS.LIB/_at_WEB.LIB/ ???? PASS
DIRECTIVES??????? Pass /_at_WEB-DOC/ /UPLD/ ????
????????????????
7
??????(??????)
-------------------------------------------------
----- AS/400 INTERNET CONNECTION SERVER
CONFIGURATION AXEL CORP,. --------------------
----------------------------------
HOSTNAME DIRECTIVES
HostName www.axel-net.co.jp
CCSID DIRECTIVES
DefaultFsCCSID
5035 DefaultNETCCSID 0932
PORT DIRECTIVES

Port 80
METHOD DIRECTIVES
Enable
GET Enable HEAD Enable
POST
MAPPING DIRECTIVES Exec
/_at_WEB/ /QSYS.LIB/_at_WEB.LIB/ Pass /_at_WEB-DOC/
/UPLD/
? ??HTTP???????????? ???? STRTCPSVR
SERVER(HTTP) ?????????????????????
8
10.????????????????
10-1.web?????????????? web?????????????????????
????????????????IFS?? ???? WRKHTTPCFG
???????????? ?????????? CGILIB
????????????IFS?? CONTENTS ???????? ?
????WRKHTTPCFG ? MAPPING DIRECTIVES
? Exec /CGI-BIN/ /QSYS.LIB/CGILIB.LIB/
???? /CGI-BIN/ ???????? web ???????????????????
??? ? Pass / /HTML/ ? Pass
/CONT-DOC/ /CONTENTS/ ???? / CONT-DOC /
???????? web ??????????????????????
??????????????????IFS??? web ???????????? ???
9.HTTP????? ????????
10-2.?????????? ?API???????????????????????????
(CRTSRCPF)? ?????CCSID? 5035 ???????
????????CGILIB????????QHTMSRC ????? CRTSRCPF
FILE(CGILIB/QHTMSRC) RCDLEN(112) IGCDTA(YES)
CCSID(5035)
10-3.5250??????(P-COM)??? 5250??????????????????
??(PC5250?????????????? ?939 ??????????????)
?????????????????????????????F3?? 930 ????? ??
???????????
9
?.i-webRPG ?????
1.????
1-1.GET_FORM (????)
GET_FORM????????????????????????????? ???????????
GET_FORM(fieldoption) field?HTML??????????? opt
ion?????/1/9???????
???????????HTML????????CODE,HINMEI?? ????????
0001,??????????????????????? ??????
CODE0001HINMEIB1B2B3B4 ??????????????
?1) ?????? field 'CODE' / option
BLANK ??? 0001
????????????? EBCDIC ??????? ?2)
?????? field BLANK / option BLANK
??? CODE0001HINMEI ??
?????????????? EBCDIC ??????? ?3)
?????? field 'CODE' / option '1'
??? CODE0001
???????????? EBCDIC ??????? ?4)
?????? field BLANK / option '9'
??? CODE0001HINMEIB1B2B3B4
???????????????????? ?5)
?????? field 'HINMEI' / option '9'
??? HINMEIB1B2B3B4
????????????????????
??????????????????????? D???????????????
D GET_FORM PR 2000
EXTPROC('GET_FORM') D
10 VALUE D
1
10
C??????????????????????
? HTML????????????? CODE ????
???????4??????? WEB????????? 0001 ????
C CLEAR
field 10 C CLEAR
option 1 C
MOVEL(P) CODE' field C
EVAL W_CODE GET_FORM(fieldoption)
field ??????? CODE ???????? option
??????????????????????? W_CODE ?? 0001????????
???????????????????GET_FORM? ?????????
????????????????????????????????????????????
???????????????????????????
????
? QTEMP??TSTDTA?????????????????
??????????2000??????
????CRTDTAARA DTAARA(QTEMP/TSTDTA)
TYPE(CHAR) LEN(2000)
? ????????????????
????CHGDTAARA
?????????????? ??????????????????????
?????(?) ??????(TOKUCD)?????(TOKUNM)????
TOKUCD00000001TOKUNMAXEL??
? ???????????????????????????????????????????
???????QTMHHTTP??????????????????
11
1-2.OUT_HTML (HTML????)
?????????????HTML???????????????????????????HTML?
??????????????????????????????????????????? ?????
??????
CALLB OUT_HTMLPARM LIB
10 HTML??????PARM
FIL 10 HTML???? PARM
MBR 10 HTML????PARM
DATA 2000 ????
????????????????????? C??????????????????????
? ?????HTML?????? ??????QCGILIB ????
QHTMSRC ???? AP0010H ????
WEB??????????? ???? 'TOKUNM' ?? TOKADR
????
C EVAL DATA 'TOKUNM'
TRIM(TKTOKNAM) C
TRIM('') C
'ADR' TRIM(TKTOKADR) C
TRIM('') C
CALLB 'OUT_HTML' C
PARM 'CGILIB LIB
10 C PARM 'QHTMSRC
FIL 10 C PARM
AP0010H MBR 10 C
PARM DATA
2000
DATA ????????? ??????? ????????
12
HTML??????????????
CONTENT-TYPE TEXT/HTML ltHTMLgtltBODYgt
(??)ltTABLEgt ltTRgt ltTDgt ? ? ? lt/TDgt
ltTDgt ? ? lt/TDgt lt/TRgt ltTRgt lt!-- FLDREP
START --gt ltTDgtTOKUNMlt/TDgt
ltTDgtADRlt/TDgt lt!-- FLDREP END --gt
lt/TRgtlt/TABLEgtlt/BODYgtlt/HTMLgt
lt!-- FLDREP START --gt ?? lt!-- FLDREP END --gt
??? ????????????? ltTDgtTOKUNMlt/TDgt ?? TKTOKNAM
????? ltTDgtADRlt/TDgt ?? TKTOKADR ????????????
????? ??? ??????????
13
1-3.HTML???
i-webRPG??????????????HTML???????????
????????????????? ???????????????HTML??????????
??????? ?????????????????
????????HTML??????????????????????????
???????i-webRPG?????????????
1-3-1.???????
HTML??????????????
???????? TOKUNM?????
HTML???? ?????TOKUNM
OUT_HTML
??????HTML ??????????
?????????????????????????
1-3-2.??????
????????????????????????????????????
???????? TOKUNM?????
HTML???? ltTDgtltFLDTOKUNM"gtAB9876lt/FLDgt
OUT_HTML
??????HTML ltTDgt?????
14
1-3-3.???????
???????? lt!-- FLDREP START --gt ?? lt!--
FLDREP END --gt ?????????????????????
???????????????????????????????
??????????????????? ?????HTML??????????????????
??????
1-3-4.OUT_HTML???
lt!-- IGNORE START --gt ?? lt!-- IGNORE END --gt
???????????????????????????
1-3-5.???????
lt!-- EXEC CMD???? --gt ?????????????????
????????????????? ????lt!-- EXEC CMDCALL
DTLSET --gt??????? ????? DTLSET ????????
????????????????????????? ?????????
1-3-6.???????2
lt!-- EXEC CMD2???? --gt ?????????????????
?????????????????????????????????????????
???????????????? ????lt!-- EXEC CMD2CALL
DTLSET PARM(CODE) --gt??????? ?? CODE
????????????? DTLSET ????????
15
1-3.STD_OUT (HTML????)
?????????????HTML???????????????????????????
CALLB STD_OUTPARM OUT
2048 ???
????????????????????? C??????????????????????
? WEB??????????? ???? 'TOKUNM' ?? TOKADR
????
D ????????
DHTM S 80
DIM(52) PERRCD(1) CTDATA D ?????
DNL
C x'15'
?HTML????
C DO 52
i 3 0 C EVAL
OUT TRIM(OUT) TRIM(HTM(i)) C
TRIM(NL) ??????

C IF i 25 OR C
i 52 C
CALLB 'STD_OUT'
C PARM OUT
2048 C CLEAR
OUT C
ENDIF C ENDDO C
SETON
LR C RETURN
????????????
STD_OUT ?????2048???????HTML??????????????
???????? OUT ???????HTML??????????????
???HTML????????????????????????
16
????????
CTDATA HTML
CONTENT-TYPE TEXT/HTML

ltHTMLgt
ltHEADgt

ltTITLEgt ????? lt/TITLEgt
lt/HEADgt
ltBODY bgcolor"lightGrey"gt
ltFORM name"FORM1"
method"GET"
action"HTTP//WWW1.AXEL.NE.JP/CGI-BIN/AP0040.PGM"
gt lt!------ ??????? --gt
ltCENTERgt
ltTABLE border"3"gt
ltTRgtltTD bgcolor"navy"gt
ltP
align"center"gtltBgtltFONT size"4" color"White"gt
????? lt/FONTgtlt/Bgtlt/Pgt
lt/TDgtlt/TRgt
lt/TABLEgt lt/CENTERgtltBRgtltBRgt
lt!-------
?????? --gt
ltCENTERgt
ltTABLE border"0"gt
ltTRgt

ltTDgtltFONT size"2"gt ??? lt/TDgt
ltTDgtltINPUT type"TEXT" name"TOKUCD"
maxlength"6"gtlt/TDgt lt/TRgt
lt/TABLEgt

lt/CENTERgtltBRgtltBRgt
ltCENTERgt
ltTABLE border"0"gt

ltTRgtltTDgtltINPUT type"SUBMIT" value" ??
"gtlt/TDgtlt/TRgt lt/TABLEgt
lt/CENTERgt

lt/FORMgt
lt/BODYgt
lt/HTMLgt
17
2.????
2-1.CRTWEBRPG (?????) CGI???????????????????????
???????? ??????????????????????????
??????
????? . . . . . . . . . . gt PGMID ??
?????? . . . . . . . . gt LIB ?? ,
LIBL ??????? . . . . . . . . gt SRCFILE
?? ?????? . . . . . . . . gt SRCLIB
?? , LIBL ????? . . . . . . . . . . gt MODNAME
?? , PGM ?????? . . . . . . . . gt
MODLIB ?? , LIBL , CURLIB ???????????
. . . . gt BNDDIR ?? ?????? . . . . .
. . . gt _at_WEB ?? , LIBL , CURLIB
????? ???????????????? ??????????????????????
?????????????????????? ????????????????????
????????????? ??????????????????
??????????????????????????? ???????????????????
????
18
2-2.CRTXLSF (??????????) CSV???????????????IFS??
???????????? CSV??????????5000?????????????
??????
CSVF . . . . . . . . . . . CSVFILE
?? ?????? . . . . . . . . LIBL
?? , LIBL ???? . . . . . . . . . .
FIRST ?? , FIRST XLSF??? . . . . . . .
. (80???) ???? . . . . . . . . . .
. (50???) ??? . . . . . . . . . .
. . (20???) ?????
(50?????)
????? CSVF???CSV????? ??????CSV???????????
????CSV?????????? XLSF?????????????????IFS?????
??????????????????????? ?????????????????????
?)????????????????????????????????
EXCEL97????????????
19
2-3.SENDMAIL (AS400???????) IBM ?? AS/400
?????5250 ?????????????????????????????
????????????????????????????
??????
????? ????????? E-MAIL ??????????????
???????????????? ?????????????????????????????
???????? ????????92???????????????????
?????? ???? ??????? E-MAIL ??????????????
???????????????????????????? ???????????????
IFS ???????????????????? ??????? NONE
????????
??! ???????????????????CCSID?5035?????????????
?????????????????
20
3.????????
3-1.FILE UPLOAD(IFS????????????)
_at_WEB?????????????????????????AS400??????????????
????? ???HTML?????????????????????????????
????STRSEU SRCFILE(_at_WEB/QHTMSRC)
SRCMBR(AP0010) OPTION(2) STRSEU
SRCFILE(_at_WEB/QHTMSRC) SRCMBR(AP0020) OPTION(2)
ltFORM name"FORM1" method"GET"
action"HTTP//XXXXXXXXXXX//_at_WEB/AP0020.PGM"
onSubmit"return inchk()"gt ??? XXXXXXXXXXX
?????TCP/IP?????????????? ??????????????????
???? ????????URL?????????xxxxxxxxxxx
????TCP/IP????????????? http//xxxxxxxxxxx/_at_WEB/A
P0010.PGM
? ??????????2?????? IFS???????????????????
IFS???????????_at_WEB?????IFS?????? UPLD?
???????????????????????????????
??????AS400????????????????????????????
????????? ????????????????? ???????????????????
????????????? ????????????????????
21
? ??????????????????(??)3???3????????
??????????????????????? ???????????????????????
??????????? ????????????? ????????????????
???????????????AS400?IFS?????? UPLD?
????????????????????
22
3-1.UPLOAD TO PF(?????QSYS???????)
_at_WEB?????????????????????????
AS400?QSYS?????????????
????? ???HTML?????????????????????????????
????STRSEU SRCFILE(_at_WEB/QHTMSRC)
SRCMBR(AP0060) OPTION(2) ltFORM name"FORM1"
method"POST action"HTTP//XXXXXXXXXXXXXXX/
_at_WEB/AP0070.PGM" ENCTYPE"multipart/form-data"
onSubmit"return inchk()"gt ???
XXXXXXXXXXX ?????TCP/IP??????????????
??????????????????
???? ????????URL?????????xxxxxxxxxxx
????TCP/IP????????????? http//xxxxxxxxxxx/_at_WEB/U
LTOPF.PGM
?????????????
23
????????????
? PC?????????????????????????????????
???(AS)?????????
? ????????????????????????? ???????????????????
???????????????????? ?) ????CRTSRCPF
FILE(TESTLIB/QUPLDSRC) RCDLEN(240) IGCDTA(YES)
TEXT( ?????????????? )
???????????WEKOBJ ???????/????? ???????
?????2???????????? ????PUBLIC?????????ALL
?????????? HTTP????????????????????????????????
?????????? ?????????????????????????????????????
???? ? ????????????????????????? ?
??????????????????????????????????????????????
FIRST????????? ? ??????????????????
24
? ?????????????????????????????????
?)TXT,HTM ? ????????????????????????
????????AS???5000??????????????????????
??????????????????????????????????????????? ?
????????????????????????????????????
????????????????????????????????????? ?
???????????????????????????????????????
?????????????????????????
25
3-3.HTMDRV (HTML????) ???WEB??????????????????
????????????? ?????CGI??????????????????
????????????URL?? http//xxxx.xxxx.xx.xx/_at_WEB/H
TMDRV.PGM?PGMIDXXXXXXX HTMDRV?HTML???????? ?
????? PGMIDXXXXXXX ???????HTML??????????
???????????????????????
HTML??????????????
CONTENT-TYPE TEXT/HTMLltHTMLgtltBODYgtltFORM
nameXXXXXX methodGET
actionhttp//xxxx.xxxx.xx.xx/_at_WEB/HTMDRV.PGMgtlt!-
----- ??????????? --gtltinput type"hidden"
name"PGMID" value"XXXXXXXXXX"gt
(??)ltTABLEgt ltTRgt ltTDgt ??? lt/TDgt
ltTDgtltINPUT type"TEXT" name"KEY"
maxlength"6"gtlt/TDgt lt/TRgtlt/TABLEgt
action ???????????URL???????????
_at_WEB/HTMDRV.PGM ????????? lt!------ ???????????
--gt????????? ltinputgt ? value ????????????????????
??????? ???????(????????)? ltinputgt ? name ????
KEY ????????? ???????????HTML??????????????????
??
26
?????????(?)
???????FTOKUF IF E K DISK
PREFIX(TK) ??????C ENTRY PLISTC
PARM P_KEY
1000 ???C
PARM P_RTDATA 2000
???? C CALL
'EXTKEY'C PARM
LRKB 1 LR??C
PARM P_KEY KEY
1000 ???C PARM
RTDATA 1000
????C MOVEL(P) RTDATA
W_TOKUCD 10C W_TOKUCD CHAIN
TOKUFR 90C
EVAL P_RTDATA 'TOKUNM'
TRIM(TKTOKNAM) ????C
TRIM('') C
'ADR'
TRIM(TKTOKADR) ??C
TRIM('')C
SETON LRC
RETURN
???????????????????????????1000
????????????????????2000 ????????????????????????
???????????????EXTKEY ????????(_at_WEB???????)??????
LR?????????????????? E ???????????????????????
??????????????????????????????????????????????2?
????????????????????????????????????????????????
??????????????????CALL??????????HTML?????????????
?????????????????? ???????? ???????????????
???????????????? ??????????????????????????HTML??
??????? ?????????????????????? EX)???????????PGM01
?????HTML??PGM01?
???????? HTML??????????????????????? CGILIB
?????????? HTML?????? CGLIB/QHTMSRC ??????????
HTML????????????CGILIB??????? QHTMSRC ??????
HTML?????????????
27
?.?????????
i-webRPG???????????????????????
?????????????QSMPSRC????????
1._at_WEB????????CGI????????
1-1.????????
???? ?????SP0010

???



??????

C CALLB 'OUT_HTML'
C
PARM 'XXXXXX' LIB
10 ?????? C PARM
'XXXXXXX' FIL 10
????? C PARM 'SP0010H'
MBR 10 ????? C
PARM DATA
2000 ??

????

C SETON
LR
C RETURN
_at_WEB???????????????? CALLB????????? LIB????????
HTML?????????? ????????????????? FIL???????HTML
?????????? ????????????????? MBR????????HTML???
??????????????? DATA????????????????? ????????
???????????
28
1-2.?????HTML???
?????????? ???????????????????
HTML???(SP0010H)
CONTENT-TYPE TEXT/HTML


ltHTMLgt

ltHEADgt
ltTITLEgt ?????
lt/TITLEgt

lt/HEADgt



ltBODY bgcolor"lightGrey"gt
ltFORM
name"FORM1" method"GET" action"HTTP//XXX.XXXX.
XX.XX/XXXX/SP0020.PGM"gt

lt!------ ??????? --gt
ltCENTERgt

ltTABLE border"3"gt

ltTRgtltTD bgcolor"navy"gt
ltP
align"center"gtltBgtltFONT size"4" color"White"gt
????? lt/FONTgtlt/Bgtlt/Pgt lt/TDgtlt/TRgt

lt/TABLEgt

lt/CENTERgtltBRgtltBRgt


lt!------- ?????? --gt ltCENTERgt

ltTABLE border"0"gt
ltTRgt
ltTDgtltFONT
size"2"gt ??? lt/TDgt
ltTDgtltINPUT type"TEXT" name"TOKUCD"
maxlength"6"gtlt/TDgt lt/TRgt
lt/TABLEgt

lt/CENTERgtltBRgtltBRgt

ltCENTERgt
ltTABLE
border"0"gt
ltTRgtltTDgtltINPUT type"SUBMIT" value" ??
"gtlt/TDgtlt/TRgt lt/TABLEgt
lt/CENTERgt


lt/FORMgt
lt/BODYgt


lt/HTMLgt
ltFORMgt lt/FORMgt ????? ltINPUTgt???????????????????
?????????TOKUCD????????? (????TOKUCD?????)
29
1-3.????????
???? ?????SP0020
???????
FTOKUI IF E
K DISK PREFIX(TK)


??????????
TOKCD
10A COLHDG(' ??? ')
TOKNAM 30O
COLHDG(' ???? ')
TOKADR 30O COLHDG(' ????? ')


??? TOKCOD


?????(DS)



_at_WEB??????


???? (GET)
D
GET_FORM PR 2000
EXTPROC('GET_FORM') D
10 VALUE
D
1

_at_WEB?????????? GET_FORM ????????????????? ????????
?? 2000???????????????????? ??????????? 10??????
?????????????? ?????????????????? 1??????????????
?????? ??????????????????????? ????????????????
30
???? ?????SP0020

???



??????????????
C
CLEAR W_TOKUCD 10 C
CLEAR field
10 C
CLEAR option 1
???

C MOVEL(P)
'TOKUCD' field
C EVAL W_TOKUCD
GET_FORM(fieldoption)


????????????????
C W_TOKUCD CHAIN
TOKUIR 90
????????????????
C
IF IN90 ON
C
MOVEL(P) 'AP9999' _at__at_PGMID
??????????????????????
?? C
ELSE
C
EVAL DATA 'TOKUNM' TRIM(TKTOKNAM)
???? C
TRIM('')
C
'ADR' TRIM(TKTOKADR) ??
C TRIM('')
C
ENDIF


??????

C CALLB
'OUT_HTML'
C PARM 'XXXXXX'
LIB 10 ?????? C
PARM 'XXXXXXX' FIL
10 ????? C
PARM SP0020H MBR 10
????? C PARM
DATA 2000 ??

????

C SETON
LR C
RETURN
???????????????? Field?TOKUCD???????? Option????
??????? W_TOKUCD?????????????
_at_WEB????OUT_HTML?????? DATA????????????? ?????
??????? TOKUNM(?)??????ADR????? 2-?-3 ??????
? ????????? ????????? ????????? ???????
31
1-4.?????HTML???
HTML???(SP0020H)
CONTENT-TYPE TEXT/HTML


ltHTMLgt
ltHEADgt

ltTITLEgt ????? lt/TITLEgt


lt/HEADgt


ltBODY bgcolor"lightGrey"gt


lt!------
??????? --gt
ltCENTERgt

ltTABLE border"3"gt
ltTRgtltTD
bgcolor"navy"gt
ltP align"center"gtltBgtltFONT
size"4" color"white"gt ????? lt/FONTgtlt/Bgtlt/Pgt
lt/TDgtlt/TRgt
lt/TABLEgt

lt/CENTERgtltBRgtltBRgt


lt!------- ?????? --gt

ltCENTERgt ltTABLE border"1" cellspacing"0"gt
ltTR
bgcolor"6666FF"gt
ltTDgtltP
align"center"gtltBgtltFONT color"white"gt ? ? ?
lt/FONTgtlt/Bgtlt/TDgt ltTDgtltP align"center"gtltBgtltF
ONT color"white"gt ? ? lt/FONTgtlt/Bgtlt/TDgt lt/TRgt

ltTR bgcolor"white"gt

lt!-- FLDREP START --gt

ltTDgtTOKUNMlt/TDgt
ltTDgtADRlt/TDgt

lt!-- FLDREP END --gt
lt/TRgt

lt/TABLEgt

lt/CENTERgt


lt/BODYgt


lt/HTMLgt
????? TOKUNM ?ADR ? _at_WEB????OUT_HTML? DATA
?????? ?????????????????????? ????????????? lt!--
FLDREP START --gt?lt!-- FLDREP END --gt ? ?????????
??? ??????? ??? TOKUNM ? (?)?????? ADR
? ?????2-?-3 ????????????????? lt!-- FLDREP
START --gt?lt!-- FLDREP END --gt? WEB?HTML???????????
32
1-5.?????HTML???
HTML???(SP9999H)
CONTENT-TYPE TEXT/HTML


ltHTMLgt
ltHEADgt

ltTITLEgt ????? lt/TITLEgt


lt/HEADgt


ltBODY bgcolor"LightGrey"gt


lt!------
??????? --gt
ltCENTERgt

ltTABLE border"3"gt
ltTRgtltTD
bgcolor"Navy"gt
ltP align"center"gtltBgtltFONT
size"4" color"White"gt ????? lt/FONTgtlt/Bgtlt/Pgt
lt/TDgtlt/TRgt
lt/TABLEgt

lt/CENTERgtltBRgtltBRgtltBRgt


lt!------- ?????? --gt

ltCENTERgt ltHR SIZE"3" WIDTH"360"gt
ltTABLE border"0"gt

ltTRgtltTDgtltFONT size"3"gt ??????????????
lt/TDgtlt/TRgt lt/TABLEgt
ltHR SIZE"3"
WIDTH"360"gt
lt/CENTERgt

lt/BODYgt


lt/HTMLgt
33
2.HTML????????????CGI????????
2-1.URL??
URL??????????????
http//xxx.xxxx.xx.xx/xxxx/QHTMDRV.PGM?PGMIDAP003
0H
HTML????????
??????HTML?????
34
2-2.?????HTML???
HTML???(SP0030H)
CONTENT-TYPE TEXT/HTML


ltHTMLgt

ltHEADgt
ltTITLEgt ?????
lt/TITLEgt

lt/HEADgt


ltBODY
bgcolor"lightGrey"gt
ltFORM name"FORM1"
method"GET" action"HTTP//xxx.xxxx.xx.xx/_at_WEB/HT
MDRV.PGM"gt

lt!------ ??????????? --gt
ltinput type"hidden"
name"PGMID" valueSP0040"gt


lt!------ ??????? --gt
ltCENTERgt

ltTABLE border"3"gt

ltTRgtltTD bgcolor"navy"gt
ltP
align"center"gtltBgtltFONT size"4" color"White"gt
????? lt/FONTgtlt/Bgtlt/Pgt lt/TDgtlt/TRgt

lt/TABLEgt

lt/CENTERgtltBRgtltBRgt lt!------- ?????? --gt
ltCENTERgt
ltTABLE
border"0"gt
ltTRgt
ltTDgtltFONT size"2"gt ??? lt/TDgt
ltTDgtltINPUT type"TEXT"
name"KEY" maxlength"6"gtlt/TDgt lt/TRgt
lt/TABLEgt

lt/CENTERgtltBRgtltBRgt

ltCENTERgt
ltTABLE border"0"gt

ltTRgtltTDgtltINPUT type"SUBMIT" value" ??
"gtlt/TDgtlt/TRgt lt/TABLEgt
lt/CENTERgt


lt/FORMgt
lt/BODYgt

lt/HTMLgt
HTML???????? ????????????
??????????????????? ????HTML?????????????????????

??????HTML???????????????????
35
HTML?????????????????????? ??????????1???????????
????????? ???????????????????? ???????????HTML???
??????? ??????????????????
2-3.???????
?????SP0040
???????
FTOKUI2L01 IF E
K DISK PREFIX(TK)


?????


C ENTRY PLIST

C PARM
P_KEY 1000 ??? C
PARM P_RTDATA
2000 ????

???


??????

C CALL
QEXTKEY'
C PARM
LRKB 1 ???? C
PARM P_KEY KEY
1000 ??? C PARM
RTDATA 1000
???? C MOVEL(P) RTDATA
W_TOKUCD 10

????????????????
C
W_TOKUCD CHAIN TOKUI2R
90 C
IF IN90 ON
C MOVEL(P)
BLANK TKTOKNAM C
MOVEL(P) BLANK TKTOKADR
C ENDIF

???????????????????
C EVAL
P_RTDATA 'TOKUNM' TRIM(TKTOKNAM)
???? C
TRIM('') C
'ADR'
TRIM(TKTOKADR) ?? C
TRIM('')


????
C
SETON
LR C RETURN
???????????????????1?????? ??????????????????????
?????????????? ???????????????????
E????????? ??????????????? ?????????HTML???????
?????? ????????????????????2?????? ???????? ?????
????????????????????????
?????????????? ??????_at_WEB???? OUT_HTML(????)?????
? DATA ?????????????????
36
2-4.?????HTML???
HTML???(SP0040)
CONTENT-TYPE TEXT/HTML


ltHTMLgt
ltHEADgt

ltTITLEgt ????? lt/TITLEgt


lt/HEADgt


ltBODY bgcolor"lightGrey"gt


lt!------ ??????? --gt

ltCENTERgt
ltTABLE border"3"gt

ltTRgtltTD bgcolor"navy"gt
ltP
align"center"gtltBgtltFONT size"4" color"white"gt
????? lt/FONTgtlt/Bgtlt/Pgt lt/TDgtlt/TRgt

lt/TABLEgt
lt/CENTERgtltBRgtltBRgt



lt!------- ?????? --gt
ltCENTERgt

ltTABLE border"1" cellspacing"0"gt
ltTR
bgcolor"6666FF"gt ltTDgtltP align"center"gtltBgtltFON
T color"white"gt ? ? ? lt/FONTgtlt/Bgtlt/TDgt
ltTDgtltP align"center"gtltBgtltFONT color"white"gt ?
? lt/FONTgtlt/Bgtlt/TDgt lt/TRgt

ltTR bgcolor"white"gt
lt!-- FLDREP
START --gt
ltTDgtTOKUNMlt/TDgt

ltTDgtADRlt/TDgt
lt!-- FLDREP END --gt

lt/TRgt
lt/TABLEgt

lt/CENTERgt


lt/BODYgt


lt/HTMLgt
SP0020H?????????