* "F" (file) specs define files and other i/o devices
FARMstF1 UF E K Disk Rename(ARMST:RARMST)
* "D" specs are used to define variables and parameters
* The "prototype" for the program is in a separate file
* allowing other programs to call it
/copy cust_pr
* The "procedure interface" describes the *ENTRY parameters
D getCustInf PI
D pCusNo 6p 0 const
D pName 30a
D pAddr1 30a
D pAddr2 30a
D pCity 25a
D pState 2a
D pZip 10a
/free
// The "chain" command is used for random access of a keyed file
chain pCusNo ARMstF1;
// If a record is found, move fields from the file into parameters
if %found;
pName = ARNm01;
pAddr1 = ARAd01;
pAddr2 = ARAd02;
pCity = ARCy01;
pState = ARSt01;
pZip = ARZp15;
endif;
// RPG makes use of switches. One switch "LR" originally stood for "last record"
//LR actually flags the program and its dataspace as removable from memory.
*InLR = *On;
/end-free
Объяснение:
.
<html> ... </html> - говорит браузеру, что имеем дело именно с гипертекстовым документом
<head> ... </head> - описание заголовочной части документа
<title> ... </title> - текст между тегами пойдет в заголовок окна
<body> ... </body> - ограничивает тело документа (то, что мы видим на экране)
Некоторые теги могут иметь аттрибуты (различие в оформлении):
<body text="цвет текста" bgcolor="цвет фона" background="путь к фоновой картинке">
Цвет задается с палитры: #RRGGBB
Каждые два символа задают яркость соответствующего оттненка (R - красный, G - зеленый, B - синий).
В качестве символов можно использовать цифры 16-ричной системы (0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f).
Яркость может лежать в диапазоне 0 ... 255 (00 ... ff).
* "F" (file) specs define files and other i/o devices
FARMstF1 UF E K Disk Rename(ARMST:RARMST)
* "D" specs are used to define variables and parameters
* The "prototype" for the program is in a separate file
* allowing other programs to call it
/copy cust_pr
* The "procedure interface" describes the *ENTRY parameters
D getCustInf PI
D pCusNo 6p 0 const
D pName 30a
D pAddr1 30a
D pAddr2 30a
D pCity 25a
D pState 2a
D pZip 10a
/free
// The "chain" command is used for random access of a keyed file
chain pCusNo ARMstF1;
// If a record is found, move fields from the file into parameters
if %found;
pName = ARNm01;
pAddr1 = ARAd01;
pAddr2 = ARAd02;
pCity = ARCy01;
pState = ARSt01;
pZip = ARZp15;
endif;
// RPG makes use of switches. One switch "LR" originally stood for "last record"
//LR actually flags the program and its dataspace as removable from memory.
*InLR = *On;
/end-free
Объяснение:
.
Объяснение:
<html> ... </html> - говорит браузеру, что имеем дело именно с гипертекстовым документом
<head> ... </head> - описание заголовочной части документа
<title> ... </title> - текст между тегами пойдет в заголовок окна
<body> ... </body> - ограничивает тело документа (то, что мы видим на экране)
Некоторые теги могут иметь аттрибуты (различие в оформлении):
<body text="цвет текста" bgcolor="цвет фона" background="путь к фоновой картинке">
Цвет задается с палитры: #RRGGBB
Каждые два символа задают яркость соответствующего оттненка (R - красный, G - зеленый, B - синий).
В качестве символов можно использовать цифры 16-ричной системы (0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f).
Яркость может лежать в диапазоне 0 ... 255 (00 ... ff).