|
midrange.com
I want to pass the params year1 & term1 to a cl program after I enter the year
and date.
Here is the code. I have been racking my brain to solve this. Help!
Diane
Here is the code:
H DftActGrp(*No) BndDir('*LIBL/CGIBNDDIR')
D term s 2a
D year s 4a
D WriteWebData Pr ExtProc('QtmhWrStout')
D Data 2048A Const
D Length 10I 0 Const
D Error Like(APIError)
D APIError DS
D EBytesP 10I 0 INZ(%Size(APIError))
D EMsgID 7A
D EReserved 1A
D EData 40A
D HTTPHeader C 'Content-type: text/html'
D NewLine C X'15'
D WebData S 2048A Varying
C Eval WebData = HTTPHeader + NewLine + NewLine
C CallP WriteWebData(WebData : %Len(WebData) :
C APIError)
C Eval WebData = '<html><head><title>' +
C 'Registration Counts' +
C '</title></head><body>' +
C '<h1>Registration Counts</h1>' +
C '<form method=POST' +
C 'action="//lccc/tcgi-bin' +
C '/clhtml.pgm">' +
C '<p>Enter Year and Term' +
C '<p>Year:<input type=text' +
C 'name="year1" size=4>' +
C '<p>Term:<input type=text' +
C 'name="term1" size=2>' +
C '<br><br><br>' +
C '<input type="submit"' +
C 'value="ENTER">' +
C '<input type="reset"' +
C 'value="Start Over">' +
C '</form></html>' + NewLine
C CallP WriteWebData(WebData : %Len(WebData) :
C APIError)
C Eval *InLR = *On
C
*Quit
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
