* "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
Объяснение:
Задание 15.
Переведём размер файла в биты:
1 Кбайт = 1024 байт
1 байт = 8 бит
80 Кбайт = 80 * 1024 * 8 = 655360 бит
Найдём время передачи:
655360 / 512 = 1280 секунд.
ответ: 1280 секунд.
Задание 16.
Заметим, что скорость передачи второго файла в 2 раза меньше, чем скорость первого. Так как время одинаковое, то со скоростью передачи, меньшей в 2 раза и передастся файл размером в 2 раза меньше:
200 / 2 = 100 Кбайт
ответ: 100 Кбайт.
Задание 17.
Заметим, что скорость передачи второго соединения в 16 раз меньше, чем скорость первого (2048 / 128 = 16). Так как время одинаковое, то со скоростью передачи, меньшей в 16 раз и передастся файл в 16 раз меньше:
320 / 16 = 20 Кбайт
ответ: 20 Кбайт.
