1. Forum
  2. Usenet
  3. COMP.SYS.UNISYS

  • ALGOL KEYEDIOII Example

    From mperew@gmail.com@21:1/5 to All on Tue Dec 22 14:49:33 2020
    Would anyone have a good skeleton for a KEYEDIOII program written in ALGOL? I seem to be having some trouble navigating the necessary procedure call invocations to make a new KEYEDIOII file.

    Thanks.

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From TKosfeld@21:1/5 to mpe...@gmail.com on Wed Dec 23 13:14:48 2020
    On 12/22/2020 7:49 PM, mpe...@gmail.com wrote:
    Would anyone have a good skeleton for a KEYEDIOII program written in ALGOL? I seem to be having some trouble navigating the necessary procedure call invocations to make a new KEYEDIOII file.

    Thanks.

    REAL RRSLT;
    ARRAY FILEINFO[0:15];

    FILEINFO[0]:=0 & 1 UNITSF
    & 1 NUMKEYSF;
    FILEINFO[1]:=0 & BLK_SZ BLOCKSIZEF
    & REC_SZ MAXRECSIZEF;
    FILEINFO[2]:=0 & 1 KEYFLAGF
    & 0 ALTERNATEKEYF
    & 0 DUPLICATEF
    & 1 KEYORGANIZATIONF
    & 0 KEYGROUPF
    & 0 KEYINTLF
    & 0 KEYSIGNPOSITIONF
    & 8 KEYTYPEF
    & 7 KEYLENGTHF
    & 0 KEYOFFSETF;

    MYFILE.NEWFILE:=TRUE;
    RRSLT:=ISMOPEN(MYFILE,FILEINFO,VALUE(OUT));

    This will create a new file. Once created, use the other ISMxxx
    procedures to write to the file.

    Hope this helps. Let me know if you need a more complete/detailed sample.

    ...Thomas




    --
    This email has been checked for viruses by Avast antivirus software. https://www.avast.com/antivirus

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From mperew@gmail.com@21:1/5 to TKosfeld on Wed Dec 23 15:47:20 2020
    On Wednesday, December 23, 2020 at 8:14:55 AM UTC-8, TKosfeld wrote:
    On 12/22/2020 7:49 PM, mpe...@gmail.com wrote:
    Would anyone have a good skeleton for a KEYEDIOII program written in ALGOL? I seem to be having some trouble navigating the necessary procedure call invocations to make a new KEYEDIOII file.

    Thanks.


    This will create a new file. Once created, use the other ISMxxx
    procedures to write to the file.

    Hope this helps. Let me know if you need a more complete/detailed sample.

    ...Thomas

    Thanks, Thomas. That snippet was what I needed. It helped me correctly understand the information described under ISMGETKEYSTRUCTURE in the KEYEDIOII Programming Reference Manual.

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)