You must be logged in to use the copy button.

        
dcl-ds d_wsds;                    // Workstation display file info
    ##wsFile   char(10)  pos(83);    // Name of the file being opened
    ##wsLib    char(10)  pos(93);   // Name of the library containing the file
    ##wsKey    char(1)   pos(369);  // Keypress value
    ##wsCsr    Bindec(4) pos(370);  // Binary cursor location
    ##wsSfRn   Bindec(4) pos(376);  // Current subfile relative record number
    ##wsSrLr   Bindec(4) pos(378);  // Current lowest subfile relative record no. dis
    ##wsSFtr   Bindec(4) pos(380);  // Total number of records in a subfile
    ##wsWcsr   Bindec(4) pos(382);  // Binary cursor location in a window

    // Major and Minor Return Codes are used for Display TimeOut
    //  and multiple device support
    ##wsMjRtCd Char(2)   pos(401);      // Major Return Code
    ##wsMnRtCd Char(2)   pos(403);      // Minor Return Code
end-ds;

// Named hexadecimal constants for function keys
dcl-c ##wsF01             CONST(X'31');
dcl-c ##wsF02             CONST(X'32');
dcl-c ##wsF03             CONST(X'33');
dcl-c ##wsF04             CONST(X'34');
dcl-c ##wsF05             CONST(X'35');
dcl-c ##wsF06             CONST(X'36');
dcl-c ##wsF07             CONST(X'37');
dcl-c ##wsF08             CONST(X'38');
dcl-c ##wsF09             CONST(X'39');
dcl-c ##wsF10             CONST(X'3A');
dcl-c ##wsF11             CONST(X'3B');
dcl-c ##wsF12             CONST(X'3C');
dcl-c ##wsF13             CONST(X'B1');
dcl-c ##wsF14             CONST(X'B2');
dcl-c ##wsF15             CONST(X'B3');
dcl-c ##wsF16             CONST(X'B4');
dcl-c ##wsF17             CONST(X'B5');
dcl-c ##wsF18             CONST(X'B6');
dcl-c ##wsF19             CONST(X'B7');
dcl-c ##wsF20             CONST(X'B8');
dcl-c ##wsF21             CONST(X'B9');
dcl-c ##wsF22             CONST(X'BA');
dcl-c ##wsF23             CONST(X'BB');
dcl-c ##wsF24             CONST(X'BC');
dcl-c ##wsClear           CONST(X'FD');
dcl-c ##wsEnter           CONST(X'F1');
dcl-c ##wsHelp            CONST(X'F3');
dcl-c ##wsPgUp            CONST(X'F4');
dcl-c ##wsPgDn            CONST(X'F5');
dcl-c ##wsPrint           CONST(X'F6');
dcl-c ##wsHome            CONST(X'31');