Pathway/iTS Web Client Programming Manual (G06.24+)
SCREEN COBOL-to-Web Conversion Mappings
Compaq NonStop Pathway/iTS Web Client Programming Manual—520270-001
5-8
Mappings to User HTML Pages
Example 5-7 shows a sample Screen Section in a SCREEN COBOL program.
Example 5-8
illustrates the corresponding HTML code.
Example 5-7. SCREEN COBOL Screen Section
01 NAME-SCREEN BASE SIZE 24, 80.
05 FILLER AT 05, 10 VALUE "ENTER FIRST NAME".
05 EMP-FIRST-NAME AT 05, 30 PIC X(10) USING FIRST-NAME.
05 FILLER AT 10, 10 VALUE "ENTER LAST NAME".
05 EMP-LAST-NAME AT 10, 30 PIC X(30) USING LAST-NAME.
05 OV-AREA AREA AT 12, 10 SIZE 5, 50
Example 5-8. HTML Code Resulting From Conversion of SCREEN COBOL
Screen Section
<HTML><HEAD><TITLE>Base screen for TESTPROGRAM </TITLE>
<STYLE TYPE="text/css">
INPUT {font-family:Courier; font-size:12; color:BLACK; border-style:none;
border-bottom-style:inset; }
BODY {font-family:Courier; font-size:12; color:BLACK; }
</STYLE>
<SCRIPT TYPE="text/javascript" LANGUAGE="JavaScript" SRC="BPathwayiTS.js">
</SCRIPT>
</HEAD>
<BODY OnLoad= "onLoadFunc()" BGColor="WHITE" onContextMenu="return false">
<FORM NAME="SCRFORM">
<SPAN STYLE="position:absolute; top:98; left:87; ">ENTER FIRSTNAME</SPAN>
<INPUT STYLE="position:absolute; top:98; left:267;" type="text"
name="s_FIRST_NAME01" value = "" MAXLENGTH = "010" SIZE = "010"
onFocus="saveFieldName('s_FIRST_NAME01')" >
<SPAN STYLE="position:absolute; top:208; left:87; ">ENTER LASTNAME</SPAN>
<INPUT STYLE="position:absolute; top:208; left:267;" type="text"
name="s_LAST_NAME01" value = "" MAXLENGTH = "030" SIZE = "030"
onFocus="saveFieldName('s_LAST_NAME01')" >
<IFRAME STYLE="position:absolute; top:252; left:87;" id="OA0000"
name="OA0000" width="450" height="110" marginWidth="0"
frameborder="0" >
</IFRAME>
</FORM></BODY></HTML>