{
    "header": {
        "version": 1,
        "type": "record"
    },
    "body": {
        "record1": {
            "<1>": "declare function entid, repository, start_window, msg, key_sort, rowexists\r\ndeclare subroutine make.list\r\n$insert msg_equates\r\n\r\nCustNo = .cust_no->text\r\nif CustNo then\r\n    * row one = call window with current key\r\n\t* row two = call window with no keys\r\n\tPopupId = entid( @appid<1>, 'POPUP', '', 'QUOTE_LOOKUP_OPTS3' )\r\n\tChoosenRow = repository( 'EXECUTE', PopupId, @window, '' )\r\n\tCurOldQuote = .quote_old_id->text\r\n\tif ChoosenRow = 1 then\r\n\t    ;* go view current quote\r\n\t    if CurOldQuote then\r\n\t        RetVal = start_window( 'QUOTE_OLD', @window, CurOldQuote:'*CENTER', '', '' ) \r\n\t\tend else\r\n\t\t    MsgInfo = ''\r\n\t\t    Text = 'You have not entered an old quote number...' \r\n\t\t    MsgInfo<mtext$> = Text\r\n\t\t    MsgInfo<micon$> = 'H'\r\n\t\t    Void = msg( '', MsgInfo )\r\n\t\t    return 0\r\n        end\r\n    end else\r\n        if ChoosenRow = 2 then\r\n\t        * call quote window\r\n\t\t\tRetVal = start_window( 'QUOTE_OLD', @window, '*Choosing*QUOTE', '', '' )\r\n\t\tend\r\n    end    \r\nend else\r\n    MsgRec = ''\r\n    MsgRec<mtext$> = 'You must enter a customer first...' \r\n    MsgRec<micon$> = 'H'\r\n    Void = msg( '', MsgRec )    \r\nend\r\nRETURN 0\r\n*===========================================================================*"
        }
    }
}