7 47 FETCH

LANSA Technical

7.47 FETCH

The FETCH command is used to fetch fields from the first record in a file that matches a nominated key, condition or relative record number.

Portability Considerations

Refer to parameters: FROM_FILE and LOCK

Also See

7.47.1 FETCH Parameters

7.47.2 FETCH Examples

                                                       Required

 

  FETCH -------- FIELDS ------- field name  field attributes --->

                                |           |               | |

                                |            --- 7 max -----  |

                                |*ALL                         |

                                |*ALL-REAL                    |

                                |*ALL-VIRT                    |

                                |*INCLUDING                   |

                                |*EXCLUDING                   |

                                | expandable group            |

                                |------ 1000 max for RDMLX----|

                                 ------- 100 max for RDML ----

 

             >-- FROM_FILE ---- file name . *FIRST ------------->

                                            library name

 

 -----------------------------------------------------------------

                                                         Optional

             >-- WHERE -------- 'condition' -------------------->

 

             >-- WITH_KEY ----- key field values --------------->

                                expandable group expression

 

             >-- IO_STATUS ---- *STATUS ------------------------>

                                field name

 

             >-- IO_ERROR ----- *ABORT ------------------------->

                                *NEXT

                                *RETURN 

                                label

 

             >-- VAL_ERROR ---- *LASTDIS ----------------------->

                                *NEXT

                                *RETURN

                                label

 

             >-- NOT_FOUND ---- *NEXT -------------------------->

                                *RETURN

                                label

 

             >-- ISSUE_MSG ---- *NO ---------------------------->

                                *YES

 

             >-- LOCK --------- *NO ---------------------------->

                                *YES

 

             >-- WITH_RRN ----- *NONE -------------------------->

 

             >-- RETURN_RRN --- *NONE -------------------------->

 

             >-- KEEP_LAST ---- *NONE --------------------------|

                                1 - 9999