Expanded description
| Topic |
Description |
| Name |
getid |
| Synopsis |
/infobank/programs/dbase/validnav/getid.for |
| Description |
Subroutine to obtain an non-hyphenated ID and convert it into
a hypenated ID.
|
| Reads |
read (5, '(q,a)', end = 99) IDLength, ID(1:IDLength)
|
| Writes |
write (ID, '(255x)')
write (LongID, '(255x)')
|
| Calls |
call changecase ('SMALLS', ID(1:IDLength))
|
|